Roll sequence number over at the end of 32 bits

2011-08-11 01:12:08 -04:00 · 2011-08-11 01:12:08 -04:00 · b238c1d55b
parent 86b0c9a317
commit b238c1d55b
1 changed files with 2 additions and 1 deletions
--- a/ssh-transport.rkt
+++ b/ssh-transport.rkt
@ -116,7 +116,8 @@
 			      packet
 			      write-packet!
 			      (lambda (new-seed) (loop new-seed
-						       (+ sequence-number 1)
+						       (bitwise-and (+ sequence-number 1)
+								    #xffffffff)
 						       cipher
 						       check-mac!))
 			      (lambda args