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

blowfish fixes - 21

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

2
scsh/encryption/blowfish.scm
View File

@ -1160,7 +1160,7 @@
(define (blowfish-R bc l r i) (define (blowfish-R bc l r i)
(set! l (bitwise-xor l (dictionary-ref (blowfish-p bc) 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 (blowfish-F l))))
;; blowfish-rounds == 16 -> ;; blowfish-rounds == 16 ->
(define (blowfish-encrypt bc ret_xl ret_xr) ;; NOTE bc = blowfish-context (define (blowfish-encrypt bc ret_xl ret_xr) ;; NOTE bc = blowfish-context