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

blowfish fixes - 20

This commit is contained in:
erana 2012-01-20 20:46:09 +09:00
parent 08aad3273f
commit 5bee1ee5f7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/encryption/blowfish.scm
View File

@ -1160,7 +1160,7 @@
(define (blowfish-R bc l r i)
(set! l (bitwise-xor l (dictionary-ref (blowfish-p bc) i)))
(set! r (bitwise-xor r ((dictionary-ref (blowfish-p bc) blowfish-F l)))))
(set! r (bitwise-xor r (dictionary-ref (blowfish-p bc) (blowfish-F l)))))
;; blowfish-rounds == 16 ->
(define (blowfish-encrypt bc ret_xl ret_xr) ;; NOTE bc = blowfish-context
@ -1280,6 +1280,7 @@
(dictionary-set-with-index! (blowfish-p bc) i datal)
(dictionary-set-with-index! (blowfish-p bc) (+ i 1) datar)
)
(display "FOO3!")
(do ((i 0 (+ 2)))
((>= i 256)0)
(blowfish-encrypt bc datal datar)