roughconsensusandrunningcode/pgpcontrol
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Version 1.2.1. Allow the final line of the signature to not contain any

Browse source 
equal signs.
This commit is contained in:
David Lawrence 1996-07-11 18:07:01 +00:00
parent bf800f5ea9
commit 1542344316
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
pgpverify
View file

@ -1,6 +1,6 @@
#! /usr/bin/perl -w #! /usr/bin/perl -w
# written April 1996, tale@uunet.uu.net (David C Lawrence) # written April 1996, tale@uunet.uu.net (David C Lawrence)
# Version 1.2 # Version 1.2.1
$pgp = '/usr/local/bin/pgp'; $pgp = '/usr/local/bin/pgp';
# if you keep your keyring somewhere that is not the default used by pgp, # if you keep your keyring somewhere that is not the default used by pgp,
@ -44,7 +44,7 @@ exit 1 unless $_ = $header{$pgpheader}; # no signature
$sep = "\n[ \t]+"; $sep = "\n[ \t]+";
$r64 = '[a-zA-Z0-9+/]'; $r64 = '[a-zA-Z0-9+/]';
&fail("$0: $pgpheader not in expected format\n") &fail("$0: $pgpheader not in expected format\n")
unless /^(\S+) (\S+)(($sep$r64{64})+$sep$r64+=?=$sep=$r64{4})$/; unless /^(\S+) (\S+)(($sep$r64{64})+$sep$r64+=?=?$sep=$r64{4})$/;
($version, $signed_headers, $signature) = ($1, $2, $3); ($version, $signed_headers, $signature) = ($1, $2, $3);
$signature =~ s/\n[ \t]+/\n/g; $signature =~ s/\n[ \t]+/\n/g;