Index: freexp/xp-d.rq =================================================================== RCS file: /server/cvs/freexp/xp-d.rq,v retrieving revision 1.63 retrieving revision 1.64 diff -u -r1.63 -r1.64 --- freexp/xp-d.rq 1 Jan 2005 11:16:31 -0000 1.63 +++ freexp/xp-d.rq 6 Jan 2005 16:59:20 -0000 1.64 @@ -3,7 +3,7 @@ K (c) 1993-1999 Peter Mandrella K (c) 2000-2001 OpenXP-Team K (c) 2002-2005 FreeXP, http://www.freexp.de -# $Id: xp-d.rq,v 1.63 2005/01/01 11:16:31 mw Exp $ +# $Id: xp-d.rq,v 1.64 2005/01/06 16:59:20 mw Exp $ # Online-Hilfe, Tastenmakros 1 XP.HLP @@ -833,6 +833,7 @@ 9 alle Nachrichten signieren 10 PGP auch fr RFC/UUCP verwenden 11 PGP auch fr Fido verwenden +12 GPG-Optionen + 272 # 06.02.2000 MH: RFC: X-Priority: 1, 2, 3, 4, 5 0 30 Index: freexp/xp-e.rq =================================================================== RCS file: /server/cvs/freexp/xp-e.rq,v retrieving revision 1.97 retrieving revision 1.98 diff -u -r1.97 -r1.98 --- freexp/xp-e.rq 1 Jan 2005 11:16:31 -0000 1.97 +++ freexp/xp-e.rq 6 Jan 2005 16:59:20 -0000 1.98 @@ -3,7 +3,7 @@ K (c) 1993-1999 Peter Mandrella K (c) 2000-2001 OpenXP-Team K (c) 2002-2005 FreeXP, http://www.freexp.de -# $Id: xp-e.rq,v 1.97 2005/01/01 11:16:31 mw Exp $ +# $Id: xp-e.rq,v 1.98 2005/01/06 16:59:20 mw Exp $ # Online Help File, Key Macros 1 XP-E.HLP @@ -824,6 +824,7 @@ 9 Sign all messages 10 Use PGP for RFC/UUCP 11 Use PGP for Fido (not allowed in FidoNet!) +12 GPG options + 272 # 06.02.2000 MH: RFC: X-Priority: 1, 2, 3, 4, 5 0 30 Index: freexp/xp0.pas =================================================================== RCS file: /server/cvs/freexp/xp0.pas,v retrieving revision 1.73 retrieving revision 1.74 diff -u -r1.73 -r1.74 --- freexp/xp0.pas 2 Jan 2005 02:29:59 -0000 1.73 +++ freexp/xp0.pas 6 Jan 2005 16:59:20 -0000 1.74 @@ -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.73 2005/01/02 02:29:59 mw Exp $ } +{ $Id: xp0.pas,v 1.74 2005/01/06 16:59:20 mw Exp $ } { CrossPoint - Deklarationen } @@ -1086,6 +1086,7 @@ PGP_waitkey : boolean; { 'Taste drcken ...' nach PGP } PGP_log : boolean; { Logfile fr PGP-Aktivit„ten } PGP_signall : boolean; { alle Nachrichten signieren } + PGP_GPGEncodingOptions : string; { Standardparameter fuer GPG } IntVorwahl : string[15]; { internationale Vorwahl } NatVorwahl : string[10]; { nationale Vorwahl, normalerweise 0 } @@ -1257,6 +1258,9 @@ { $Log: xp0.pas,v $ + Revision 1.74 2005/01/06 16:59:20 mw + MW: - Erweiterte GnuPG-Untersttzung. + Revision 1.73 2005/01/02 02:29:59 mw MW: - Neue experimentelle GnuPG-Untersttzung. Index: freexp/xp2c.pas =================================================================== RCS file: /server/cvs/freexp/xp2c.pas,v retrieving revision 1.47 retrieving revision 1.48 diff -u -r1.47 -r1.48 --- freexp/xp2c.pas 2 Jan 2005 02:29:59 -0000 1.47 +++ freexp/xp2c.pas 6 Jan 2005 16:59:20 -0000 1.48 @@ -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.47 2005/01/02 02:29:59 mw Exp $ } +{ $Id: xp2c.pas,v 1.48 2005/01/06 16:59:20 mw Exp $ } { CrossPoint - Config bearbeiten } @@ -106,7 +106,7 @@ {$IFDEF CAPI } isdnx,isdny : byte; { x/y bei IsdnConfig } {$ENDIF } - + GPGEncodingOptionsField: integer; function testbrett(var s:string):boolean; begin @@ -1443,7 +1443,9 @@ function testpgpexe(var s:string):boolean; begin if (s=_jn_[1]) and (fsearch('PGP.EXE',getenv('PGPPATH'))='') and - (fsearch('PGP.EXE',getenv('PATH'))='') then begin + (fsearch('PGP.EXE',getenv('PATH'))='') and + (fsearch('GPG.EXE',getenv('PGPPATH'))='') and + (fsearch('GPG.EXE',getenv('PATH'))='') then begin rfehler(217); { 'PGP ist nicht vorhanden oder nicht per Pfad erreichbar.' } s:=_jn_[2]; end; @@ -1463,7 +1465,7 @@ sall: boolean; begin sall:=(ustr(GetRes2(29900,2))<>'N'); - dialog(ival(getres2(271,0)),iif(sall,14,13),getres2(271,1),x,y); { 'PGP-Einstellungen' } + dialog(ival(getres2(271,0)),iif(sall,15,14),getres2(271,1),x,y); { 'PGP-Einstellungen' } maddstring(3,2,'PGP-Version ',PGPVersion,5,5,''); mappsel(false,PGP2+'ù'+PGP5+'ù'+PGP6+'ù'+GPG); @@ -1478,11 +1480,17 @@ if sall then 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); + mhnr(1018); + maddstring(3,iif(sall,14,13),getres2(271,12),PGP_GPGEncodingOptions,33,120,''); { 'GPG-Optionen' } + mhnr(1023); + mappsel(false,'--rfc1991 --cipher-algo ideaù--compress-algo 1 --cipher-algo cast5'); + GPGEncodingOptionsField:= fieldpos; + (* maddbool(3,12,getres2(271,10),PGP_UUCP); { 'PGP auch fr RFC/UUCP verwenden' } mset1func(testxpgp); maddbool(3,13,getres2(271,11),PGP_Fido); { 'PGP auch fr Fido verwenden' } mset1func(testxpgp); *) + readmask(brk); if not brk and mmodified then GlobalModified; @@ -1541,6 +1549,9 @@ { $Log: xp2c.pas,v $ + Revision 1.48 2005/01/06 16:59:20 mw + MW: - Erweiterte GnuPG-Untersttzung. + Revision 1.47 2005/01/02 02:29:59 mw MW: - Neue experimentelle GnuPG-Untersttzung. Index: freexp/xp2cfg.inc =================================================================== RCS file: /server/cvs/freexp/xp2cfg.inc,v retrieving revision 1.71 retrieving revision 1.72 diff -u -r1.71 -r1.72 --- freexp/xp2cfg.inc 1 Jan 2005 11:16:27 -0000 1.71 +++ freexp/xp2cfg.inc 6 Jan 2005 16:59:19 -0000 1.72 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp2cfg.inc,v 1.71 2005/01/01 11:16:27 mw Exp $ } +{ $Id: xp2cfg.inc,v 1.72 2005/01/06 16:59:19 mw Exp $ } const cfs : array[0..4] of string[5] = ('Z','Shift','Ctrl','Alt','#Z'); saveCFG : boolean = false; @@ -796,6 +796,7 @@ PGP_log:=false; PGP_signall:=false; PGPVersion:=PGP2; { Default-Version ist PGP 2.6.x } + PGP_GPGEncodingOptions:=''; RTAMode := 128 + 13; { RTA und/oder WAB vorhanden } RTAStandard := true; RTAOwnAddresses := nil; @@ -1028,6 +1029,7 @@ writeln(t,'PGP-Logfile=',jnf(PGP_log)); writeln(t,'PGP-SignAll=',jnf(PGP_signall)); writeln(t,'PGP-Version=',PGPVersion); + writeln(t,'PGP-GPGEncodingOptions=',PGP_GPGEncodingOptions); { writeln(t,'AutoDatumsBezuege=',jnf(AutoDatumsBezuege)); } { unn”tig seit Fix von jg in XP3O2.PAS und XP4.PAS (2001/05/23 und 2001/06/10) } writeln(t,'IgnoreSupCancel=',jnf(IgnoreSupCancel)); @@ -1693,6 +1695,7 @@ getx(su, 'pgp-logfile',PGP_log) or getx(su, 'pgp-signall',PGP_signall) or gets(s,su,'pgp-version',PGPVersion,5) or + gets(s,su,'pgp-gpgencodingoptions',PGP_GPGEncodingOptions,120) or getx(su, 'messagebeep',msgbeep) or getx(su, 'netcallunmark',netcallunmark) or getx(su, 'defaultnokop',defaultnokop) or @@ -1881,6 +1884,9 @@ { $Log: xp2cfg.inc,v $ + Revision 1.72 2005/01/06 16:59:19 mw + MW: - Erweiterte GnuPG-Untersttzung. + Revision 1.71 2005/01/01 11:16:27 mw MW: - Willkommen im Jahr 2005 Index: freexp/xp_pgp.pas =================================================================== RCS file: /server/cvs/freexp/xp_pgp.pas,v retrieving revision 1.25 retrieving revision 1.29 diff -u -r1.25 -r1.29 --- freexp/xp_pgp.pas 2 Jan 2005 08:10:22 -0000 1.25 +++ freexp/xp_pgp.pas 6 Jan 2005 22:03:10 -0000 1.29 @@ -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.25 2005/01/02 08:10:22 mw Exp $ } +{ $Id: xp_pgp.pas,v 1.29 2005/01/06 22:03:10 mw Exp $ } { PGP-Codierung } @@ -24,6 +24,7 @@ procedure LogPGP(const s:string); { s in PGP.LOG schreiben } procedure RunPGP(const par:string); { PGP 2.6.x bzw. 6.5.x aufrufen } procedure RunPGP5(const exe:string;const par:string); { PGP 5.x aufrufen } +procedure RunGPG(const par:string); { GPG aufrufen } procedure UpdateKeyfile; procedure WritePGPkey_header(var f:file); { PGP-PUBLIC-KEY: ... erzeugen } procedure PGP_SendKey(const empfaenger:string); { Antwort auf Key-Request senden } @@ -50,7 +51,9 @@ const savekey : string = ''; flag_PGPSigOk = $01; - flag_PGPSigErr = $02; + flag_PGPSigErr = $02; + gpgcomment=''; + {'--comment "Using GnuPG with FreeXP - http://www.freexp.de" ';} { MK 06.01.00: die drei ASM-Routinen in Inline-Asm umgeschrieben JG 08.01.00: Routine optimiert } @@ -180,7 +183,7 @@ { /oh } { GnuPG 1.x+ } -procedure RunGPG(par:string); +procedure RunGPG(const par:string); const PGPEXE = 'GPG.EXE'; PGPBAT = 'XGPG.BAT'; @@ -374,7 +377,8 @@ 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)) + RunGPG(gpgcomment+'-e'+t+' -o '+tmp+' -r '+IDform(UserID)+' '+ + PGP_GPGEncodingOptions+' '+filename(source)) else begin { Sourcefile xxxx.TMP nach xxxx kopieren } _source:=GetFileDir(filename(source))+GetBareFileName(filename(source)); @@ -392,7 +396,7 @@ 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)) + RunGPG(iifs(hd.typ='T',gpgcomment+'--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)); @@ -411,7 +415,8 @@ 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)) + RunGPG(gpgcomment+'-es'+t+' --force-v3-sigs -o '+tmp+' '+uid+' -r '+IDform(UserID)+' ' + +PGP_GPGEncodingOptions+' '+filename(source)) else begin { Sourcefile xxxx.TMP nach xxxx kopieren } _source:=GetFileDir(filename(source))+GetBareFileName(filename(source)); @@ -846,6 +851,18 @@ end. { $Log: xp_pgp.pas,v $ + Revision 1.29 2005/01/06 22:03:10 mw + MW: - Bugfix: Fr einen Kommentar reicht die Kommandozeilenl„nge nicht. + + Revision 1.28 2005/01/06 21:51:35 mw + MW: - Nochmalige Žnderung der GnuPG-Schnittstelle + + Revision 1.27 2005/01/06 18:09:28 mw + MW: - Kleinere Verfeinerung + + Revision 1.26 2005/01/06 16:59:20 mw + MW: - Erweiterte GnuPG-Untersttzung. + Revision 1.25 2005/01/02 08:10:22 mw MW: - GnuPG-Signaturtest angefgt. Index: freexp/doc/snapshot.dq =================================================================== RCS file: /server/cvs/freexp/doc/snapshot.dq,v retrieving revision 1.29 retrieving revision 1.30 diff -u -r1.29 -r1.30 --- freexp/doc/snapshot.dq 4 Jan 2005 13:03:31 -0000 1.29 +++ freexp/doc/snapshot.dq 6 Jan 2005 17:02:56 -0000 1.30 @@ -4618,3 +4618,9 @@ %---------------------------------- I. Snapshot vom xx.xx.2005, xx:xx Uhr --------------------------------------- +þ 06.01.2005 +---------------- +MW: +- Erweiterung der GnuPG-Untersttzung (untersttzt jetzt auch + Optionen). + Index: freexp/doc/xp-e.ihq =================================================================== RCS file: /server/cvs/freexp/doc/xp-e.ihq,v retrieving revision 1.80 retrieving revision 1.81 diff -u -r1.80 -r1.81 --- freexp/doc/xp-e.ihq 4 Nov 2004 11:39:15 -0000 1.80 +++ freexp/doc/xp-e.ihq 6 Jan 2005 17:02:57 -0000 1.81 @@ -8917,6 +8917,16 @@ (ie. incl. ".BAT") @ +1023 +Here you may enter the command line parameters +for GnuPG. + +The first parameter set (press [F2] to get it) +offers compatibility to PGP 2.x and higher. You +must have installed the IDEA-PlugIn for GnuPG. +The second parameter makes GnuPG compatible to +PGP version 5.x and newer (no plugin needed here). +@ 8071 Wenn Dateien mit externen Viewerprogrammen ge”ffnet sind, kann mit Crosspoint weitergearbeitet werden. Index: freexp/doc/xp.ihq =================================================================== RCS file: /server/cvs/freexp/doc/xp.ihq,v retrieving revision 1.75 retrieving revision 1.76 diff -u -r1.75 -r1.76 --- freexp/doc/xp.ihq 17 Oct 2004 18:29:40 -0000 1.75 +++ freexp/doc/xp.ihq 6 Jan 2005 17:02:57 -0000 1.76 @@ -14408,6 +14408,18 @@ diesem Fall die Signatur ohne weiteres zusammen mit dem Key gef„lscht werden k”nnte. @ +1023 +Hier k”nnen sie die Kommandozeilenparameter +angeben, die GnuPG beim Verschlsseln von +Nachrichten verwenden soll. + +Die erste Variante unter <<[F2]>> bietet Kompatibilität +zu PGP 2.x und h”her. Das funktioniert allerdings +nur, wenn die IDEA-Erweiterung fr GnuPG installiert +ist. Die zweite Parameterzusammenstellung bietet +Kompatibilit„t zu den PGP Versionen ab 5.x. Es +wird hierfr keine GnuPG-Erweiterung ben”tigt. +@ 1500 W„hlen Sie <<Ja>>, um eine Kopie der gew„hlten Nach- richt im Userbrett des Absenders zu archivieren. Auf
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list