[Pgp-tools-commit] r757 - in trunk: gpglist gpgsigs

[Guilhem Moulin]

Author: guilhem-guest
Date: 2015-01-13 21:36:03 +0000 (Tue, 13 Jan 2015)
New Revision: 757

Modified:
   trunk/gpglist/gpglist
   trunk/gpgsigs/gpgsigs
Log:
UID/UAT hashes are RIPEMD160 not SHA1.

Modified: trunk/gpglist/gpglist
===================================================================
--- trunk/gpglist/gpglist	2015-01-13 21:35:56 UTC (rev 756)
+++ trunk/gpglist/gpglist	2015-01-13 21:36:03 UTC (rev 757)
@@ -97,7 +97,7 @@
 my $longkey;
 while (<SIGS>) {
 	if (/^uid:(?:[^:]*:){6}([0-9A-F]{40}):[^:]*:([^:]+)/) {
-		$uid = $1; # use the SHA1 to have proper distinction between UIDs/UATs
+		$uid = $1; # use the hash to have proper distinction between UATs
 		push @uids, $uid; # preserve the order
 		$uids{$uid} = $2;
 	}

Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs	2015-01-13 21:35:56 UTC (rev 756)
+++ trunk/gpgsigs/gpgsigs	2015-01-13 21:36:03 UTC (rev 757)
@@ -185,7 +185,7 @@
 					undef $uid;
 					next if $2 =~ /[er]/;
 
-					$uid = $3; # use the SHA1 to have proper distinction between UIDs/UATs
+					$uid = $3; # use the hash to have proper distinction between UATs
 					if ($1 eq 'uid') {
 						my $text = $4;
 						$text =~ s/\\x(\p{AHex}{2})/ chr(hex($1)) /ge;