scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

blowfish fixes

This commit is contained in:
erana 2012-01-20 17:28:54 +09:00
parent 9cdfda6021
commit c53f89828b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/encryption/blowfish.scm
View File

@ -1215,8 +1215,8 @@
(let ((data (make-table)))
(do ((i 0 (+ i 1)))
((=> i (+ blowfish-rounds 2))0)
(set! (vector-ref (blowfish-p bc) i) (table-ref blowfish-ps i)))
((>= i (+ blowfish-rounds 2))0)
(vector-set! (blowfish-p bc) i (table-ref blowfish-ps i)))
(do ((i 0 (+ i 1)))
((>= i 256)0)