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

blowfish fixes - 25

This commit is contained in:
erana 2012-01-20 21:14:43 +09:00
parent d3766ea810
commit 82f81714d7
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

@ -1223,8 +1223,8 @@
(blowfish-R bc xl xr 3) (blowfish-R bc xl xr 3)
(blowfish-R bc xr xl 2) (blowfish-R bc xr xl 2)
(let ((xl (bitwise-xor xl (vector-ref (blowfish-p bc) 1))) (let ((xl (bitwise-xor xl (dictionary-ref-with-index (blowfish-p bc) 1)))
(xr (bitwise-xor xr (vector-ref (blowfish-p bc) 0)))) (xr (bitwise-xor xr (dictionary-ref-with-index (blowfish-p bc) 0))))
(set! ret_xl xr) (set! ret_xl xr)
(set! ret_xr xl) (set! ret_xr xl)
))) )))