projects
/
monkeysphere.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
more portable perl-based simple_checksum; i think this is correct, but i welcome...
[monkeysphere.git]
/
src
/
share
/
keytrans
diff --git
a/src/share/keytrans
b/src/share/keytrans
index 8b2e2ea52b926a006896de9b1adee71eea6b1f32..e6777ffd4a35805d96cbd55ead27042cdbecd1f4 100755
(executable)
--- a/
src/share/keytrans
+++ b/
src/share/keytrans
@@
-195,11
+195,11
@@
my $keyserver_prefs = { nomodify => 0x80
########### Math/Utility Functions ##############
########### Math/Utility Functions ##############
-# see the bottom of page 4
3 of RFC 4880
+# see the bottom of page 4
4 of RFC 4880 (http://tools.ietf.org/html/rfc4880#page-44)
sub simple_checksum {
my $bytes = shift;
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
}
# calculate the multiplicative inverse of a mod b this is euclid's