[Pgp-tools-commit] r129 - trunk/gpgsigs
Peter Palfrader
weasel at costa.debian.org
Fri Jul 15 17:01:27 UTC 2005
Author: weasel
Date: 2005-07-15 17:01:25 +0000 (Fri, 15 Jul 2005)
New Revision: 129
Modified:
trunk/gpgsigs/gpgsigs
Log:
Use --with-colons for --print-md
Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs 2005-07-13 14:18:04 UTC (rev 128)
+++ trunk/gpgsigs/gpgsigs 2005-07-15 17:01:25 UTC (rev 129)
@@ -208,13 +208,23 @@
# read checksums
-open MD, "gpg --print-md md5 $keytxt|" or warn "can't get gpg md5\n";
+open MD, "gpg --with-colons --print-md md5 $keytxt|" or warn "can't get gpg md5\n";
my $MD5 = <MD>;
close MD;
-open MD, "gpg --print-md sha1 $keytxt|" or warn "can't get gpg sha1\n";
+open MD, "gpg --with-colons --print-md sha1 $keytxt|" or warn "can't get gpg sha1\n";
my $SHA1 = <MD>;
close MD;
+my @MD5 = split /:/, $MD5;
+my @SHA1 = split /:/, $SHA1;
+$MD5 = $MD5[2];
+$SHA1 = $SHA1[2];
+
+$MD5 =~ s/(.{16})/$1 /;
+$SHA1 =~ s/(.{20})/$1 /;
+$MD5 =~ s/([0-9A-Z]{2})/$1 /ig;
+$SHA1 =~ s/([0-9A-Z]{4})/$1 /ig;
+
chomp $MD5;
chomp $SHA1;
my $metatxt = quotemeta($keytxt);
More information about the Pgp-tools-commit
mailing list