From 5df09d935f33477cdd9763c0e9c1ba7c8073aea0 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Mon, 6 Apr 2009 21:09:12 -0400
Subject: [PATCH] more portable perl-based simple_checksum; i think this is
 correct, but i welcome any pointers about what i might be getting wrong.

---
 src/share/keytrans | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/share/keytrans b/src/share/keytrans
index 8b2e2ea..e6777ff 100755
--- a/src/share/keytrans
+++ b/src/share/keytrans
@@ -195,11 +195,11 @@ my $keyserver_prefs = { nomodify => 0x80
 ########### Math/Utility Functions ##############
 
 
-# see the bottom of page 43 of RFC 4880
+# see the bottom of page 44 of RFC 4880 (http://tools.ietf.org/html/rfc4880#page-44)
 sub simple_checksum {
   my $bytes = shift;
 
-  return unpack("%32W*",$bytes) % 65536;
+  return unpack("%16C*",$bytes);
 }
 
 # calculate the multiplicative inverse of a mod b this is euclid's
-- 
2.25.1