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

blowfish fixes - 17

This commit is contained in:
erana 2012-01-20 20:28:29 +09:00
parent e87b53e251
commit 3ad0ef4e06
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
scsh/encryption/blowfish.scm
View File

@ -1202,11 +1202,12 @@
(define (blowfish-decrypt bc ret_xl ret_xr) ;; NOTE bc = blowfish-context (define (blowfish-decrypt bc ret_xl ret_xr) ;; NOTE bc = blowfish-context
(let ((xl ret_xl) (let ((xl ret_xl)
(xr ret_xr) (xr ret_xr)
(p (blowfish-p bc)) ;; (p (blowfish-p bc))
(s0 (blowfish-s0 bc)) ;; (s0 (blowfish-s0 bc))
(s1 (blowfish-s1 bc)) ;; (s1 (blowfish-s1 bc))
(s2 (blowfish-s2 bc)) ;; (s2 (blowfish-s2 bc))
(s3 (blowfish-s3 bc))) ;; (s3 (blowfish-s3 bc))
)
(blowfish-R xl xr 17) (blowfish-R xl xr 17)
(blowfish-R xr xl 16) (blowfish-R xr xl 16)
@ -1225,8 +1226,8 @@
(blowfish-R xl xr 3) (blowfish-R xl xr 3)
(blowfish-R xr xl 2) (blowfish-R xr xl 2)
(let ((xl (bitwise-xor xl (vector-ref p 1))) (let ((xl (bitwise-xor xl (vector-ref (blowfish-p bc) 1)))
(xr (bitwise-xor xr (vector-ref p 0)))) (xr (bitwise-xor xr (vector-ref (blowfish-p bc) 0))))
(set! ret_xl xr) (set! ret_xl xr)
(set! ret_xr xl) (set! ret_xr xl)
))) )))