FreeXP

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