CVS daily diff
FreeXP CVS-Server
cvs-list at freexp.de
Mon Jan 3 00:01:11 CET 2005
Index: freexp/xp0.pas
===================================================================
RCS file: /server/cvs/freexp/xp0.pas,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -r1.72 -r1.73
--- freexp/xp0.pas 1 Jan 2005 11:16:28 -0000 1.72
+++ freexp/xp0.pas 2 Jan 2005 02:29:59 -0000 1.73
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp0.pas,v 1.72 2005/01/01 11:16:28 mw Exp $ }
+{ $Id: xp0.pas,v 1.73 2005/01/02 02:29:59 mw Exp $ }
{ CrossPoint - Deklarationen }
@@ -848,6 +848,7 @@
PGP2 = '2.6.x';
PGP5 = '5.x';
PGP6 = '6.5.x';
+ GPG = 'GnuPG';
PGPVersion : string[5] = PGP2;
mheadercustom : array[1..2] of string[custheadlen] = ('','');
@@ -1256,6 +1257,9 @@
{
$Log: xp0.pas,v $
+ Revision 1.73 2005/01/02 02:29:59 mw
+ MW: - Neue experimentelle GnuPG-Unterstützung.
+
Revision 1.72 2005/01/01 11:16:28 mw
MW: - Willkommen im Jahr 2005
Index: freexp/xp2c.pas
===================================================================
RCS file: /server/cvs/freexp/xp2c.pas,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- freexp/xp2c.pas 1 Jan 2005 11:16:28 -0000 1.46
+++ freexp/xp2c.pas 2 Jan 2005 02:29:59 -0000 1.47
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp2c.pas,v 1.46 2005/01/01 11:16:28 mw Exp $ }
+{ $Id: xp2c.pas,v 1.47 2005/01/02 02:29:59 mw Exp $ }
{ CrossPoint - Config bearbeiten }
@@ -1466,7 +1466,7 @@
dialog(ival(getres2(271,0)),iif(sall,14,13),getres2(271,1),x,y); { 'PGP-Einstellungen' }
maddstring(3,2,'PGP-Version ',PGPVersion,5,5,'');
- mappsel(false,PGP2+'∙'+PGP5+'∙'+PGP6);
+ mappsel(false,PGP2+'∙'+PGP5+'∙'+PGP6+'∙'+GPG);
mhnr(1010);
maddbool(3,4,getres2(271,2),UsePGP); { 'ZCONNECT-PGP-Unterstützung' }
mset1func(testpgpexe);
@@ -1479,9 +1479,9 @@
maddbool(3,11,getres2(271,9),PGP_signall); { 'alle Nachrichten signieren' }
maddstring(3,iif(sall,13,12),getres2(271,7),PGP_UserID,33,80,''); { 'User-ID' }
mhnr(1018);
-(* maddbool(3,12,getres2(271,12),PGP_UUCP); { 'PGP auch für RFC/UUCP verwenden' }
+(* maddbool(3,12,getres2(271,10),PGP_UUCP); { 'PGP auch für RFC/UUCP verwenden' }
mset1func(testxpgp);
- maddbool(3,13,getres2(271,13),PGP_Fido); { 'PGP auch für Fido verwenden' }
+ maddbool(3,13,getres2(271,11),PGP_Fido); { 'PGP auch für Fido verwenden' }
mset1func(testxpgp); *)
readmask(brk);
if not brk and mmodified then
@@ -1541,6 +1541,9 @@
{
$Log: xp2c.pas,v $
+ Revision 1.47 2005/01/02 02:29:59 mw
+ MW: - Neue experimentelle GnuPG-Unterstützung.
+
Revision 1.46 2005/01/01 11:16:28 mw
MW: - Willkommen im Jahr 2005
Index: freexp/xp_pgp.pas
===================================================================
RCS file: /server/cvs/freexp/xp_pgp.pas,v
retrieving revision 1.23
retrieving revision 1.25
diff -u -r1.23 -r1.25
--- freexp/xp_pgp.pas 1 Jan 2005 11:16:31 -0000 1.23
+++ freexp/xp_pgp.pas 2 Jan 2005 08:10:22 -0000 1.25
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp_pgp.pas,v 1.23 2005/01/01 11:16:31 mw Exp $ }
+{ $Id: xp_pgp.pas,v 1.25 2005/01/02 08:10:22 mw Exp $ }
{ PGP-Codierung }
@@ -179,6 +179,34 @@
end;
{ /oh }
+{ GnuPG 1.x+ }
+procedure RunGPG(par:string);
+const
+ PGPEXE = 'GPG.EXE';
+ PGPBAT = 'XGPG.BAT';
+var
+ path : string;
+begin
+ if exist(PGPBAT) then
+ path:=PGPBAT
+ else begin
+ path:=getenv('PGPPATH');
+ if path<>'' then begin
+ if lastchar(path)='\' then dellast(path);
+ path:=fsearch(PGPEXE,path);
+ end;
+ if path='' then
+ path:=fsearch(PGPEXE,getenv('PATH'));
+ end;
+ if path='' then
+ trfehler(217,30) { 'PGP ist nicht vorhanden oder nicht per Pfad erreichbar.' }
+ else begin
+ shellkey:=PGP_WaitKey;
+ shell(path+' '+par,500,1);
+ shellkey:=false;
+ end;
+end;
+
{ User-ID für Command-Line-Aufruf in Anführungszeichen setzen }
function IDform(s:string):string;
@@ -200,6 +228,8 @@
if exist(PGPkeyfile) then _era(PGPkeyfile);
if PGPVersion=PGP2 then
RunPGP('-kx +armor=off '+IDform(PGP_UserID)+' '+PGPkeyfile)
+ else if PGPVersion=GPG then
+ RunGPG('--extract '+IDform(PGP_UserID)+' '+PGPkeyfile)
else
RunPGP5('PGPK.EXE','-x +armor=off '+IDform(PGP_UserID)+' -o '+PGPkeyfile);
end;
@@ -343,6 +373,8 @@
RunPGP('-ea'+t+' '+filename(source)+' '+IDform(UserID)+' -o '+tmp)
else if PGPVersion=PGP5 then
RunPGP5('PGPE.EXE','-a '+t+' '+filename(source)+' -r '+IDform(UserID)+' -o '+tmp)
+ else if PGPVersion=GPG then
+ RunGPG('-e'+t+' -o '+tmp+' -r '+IDform(UserID)+' '+filename(source))
else begin
{ Sourcefile xxxx.TMP nach xxxx kopieren }
_source:=GetFileDir(filename(source))+GetBareFileName(filename(source));
@@ -359,6 +391,8 @@
RunPGP('-sa'+t+' '+filename(source)+uid+' -o '+tmp )
else if PGPVersion=PGP5 then
RunPGP5('PGPS.EXE','-a '+t+' '+filename(source)+uid+' -o '+tmp )
+ else if PGPVersion=GPG then
+ RunGPG(iifs(hd.typ='T','--clearsign','-s')+' --force-v3-sigs -o '+tmp+' '+uid+' '+filename(source))
else begin
{ Sourcefile xxxx.TMP nach xxxx kopieren }
_source:=GetFileDir(filename(source))+GetBareFileName(filename(source));
@@ -376,6 +410,8 @@
RunPGP('-esa'+t+' '+filename(source)+' '+IDform(UserID)+uid+' -o '+tmp)
else if PGPVersion=PGP5 then
RunPGP5('PGPE.EXE','-sa '+t+' '+filename(source)+' -r '+IDform(UserID)+uid+' -o '+tmp)
+ else if PGPVersion=GPG then
+ RunGPG('-es'+t+' --force-v3-sigs -o '+tmp+' '+uid+' -r '+IDform(UserID)+' '+filename(source))
else begin
{ Sourcefile xxxx.TMP nach xxxx kopieren }
_source:=GetFileDir(filename(source))+GetBareFileName(filename(source));
@@ -545,6 +581,8 @@
{ ... RUNPGP5 hängt sie selbst mit an, falls nötig. }
end else if PGPVersion=PGP5 then
RunPGP5('PGPV.EXE',tmp+' -o '+tmp2)
+ else if PGPVersion=GPG then
+ RunGPG('-o '+tmp2+' '+tmp)
else begin
{ Sourcefile xxxx.TMP nach xxxx kopieren }
_source:=GetFileDir(tmp)+GetBareFileName(tmp)+'.asc';
@@ -735,6 +773,8 @@
if not auto then PGP_WaitKey:=true;
if PGPVersion<>PGP5 then
RunPGP('-ka '+tmp)
+ else if PGPVersion=GPG then
+ RunGPG('--import '+tmp)
else
RunPGP5('PGPK.EXE','-a '+tmp);
@@ -752,6 +792,8 @@
PGPBatchMode:=false;
if PGPVersion<>PGP5 then
RunPGP('-ke '+IDform(PGP_UserID))
+ else if PGPVersion=GPG then
+ RunGPG('--edit-key '+IDform(PGP_UserID))
else
RunPGP5('PGPK.EXE','-e '+IDform(PGP_UserID));
@@ -766,6 +808,8 @@
PGPBatchMode:=false;
if PGPVersion<>PGP5 then
RunPGP('-kr '+IDform(PGP_UserID))
+ else if PGPVersion=GPG then
+ RunGPG('--delete-key '+IDform(PGP_UserID))
else
RunPGP5('PGPK.EXE','-ru '+IDform(PGP_UserID));
@@ -802,6 +846,12 @@
end.
{
$Log: xp_pgp.pas,v $
+ Revision 1.25 2005/01/02 08:10:22 mw
+ MW: - GnuPG-Signaturtest angefügt.
+
+ Revision 1.24 2005/01/02 02:29:59 mw
+ MW: - Neue experimentelle GnuPG-Unterstützung.
+
Revision 1.23 2005/01/01 11:16:31 mw
MW: - Willkommen im Jahr 2005
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.26
retrieving revision 1.28
diff -u -r1.26 -r1.28
--- freexp/doc/snapshot.dq 1 Jan 2005 10:12:27 -0000 1.26
+++ freexp/doc/snapshot.dq 2 Jan 2005 12:02:58 -0000 1.28
@@ -59,7 +59,8 @@
E. Snapshot vom 28.04.2002, 20:00 Uhr
F. Snapshot vom 31.08.2003, 01:30 Uhr
G. Inoffizelle DOSBOX-Edition vom 03.05.2004, 10:35 Uhr
-H. Snapshot vom xx.xx.2005, xx:xx Uhr
+H. GnuPG-Testversion Nr. 1 vom 02.01.2005, 13:00 Uhr
+I. Snapshot vom xx.xx.2005, xx:xx Uhr
###
1. FreeXP - Support und Kontakte
@@ -4511,13 +4512,12 @@
Versionsnummer).
XP2.PAS, XP5.PAS, CLIP.PAS
-
%
%
-%Snapshot vom xx.xx.2005, xx:xx Uhr
-%----------------------------------
-H. Snapshot vom xx.xx.2005, xx:xx Uhr
----------------------------------------
+%GnuPG-Testversion Nr. 1 vom 02.01.2005, 13:00 Uhr
+%-------------------------------------------------
+H. GnuPG-Testversion Nr. 1 vom 02.01.2005, 13:00 Uhr
+------------------------------------------------------
■ 22.09.2004
-------------
@@ -4589,3 +4589,21 @@
Anzahl Datensätze aktualisiert.
XP4O.INC
+■ 01+02.01.2005
+----------------
+MW:
+%+ Einbau einer experimentellen GnuPG-Unterstützung
+- Neue experimentelle GnuPG-Unterstützung:
+ Es kann jetzt mit Hilfe von GnuPG-Klartextsignaturen
+ angefügt werden.
+
+ Achtung:
+ Die Implementation ist noch nicht fehlerfrei bei
+ Verwendung von Umlauten.
+
+%
+%
+%Snapshot vom xx.xx.2005, xx:xx Uhr
+%----------------------------------
+I. Snapshot vom xx.xx.2005, xx:xx Uhr
+---------------------------------------
Mehr Informationen über die CVS-List Mailingliste
