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

blowfish fixes - 14

This commit is contained in:
erana 2012-01-20 19:21:33 +09:00
parent 26a51b6d92
commit ca8310ec9b
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
scsh/encryption/blowfish.scm
View File

@ -1166,11 +1166,12 @@
(define (blowfish-encrypt bc ret_xl ret_xr) ;; NOTE bc = blowfish-context
(let ((xl ret_xl)
(xr ret_xr)
(p (blowfish-p bc))
(s0 (blowfish-s0 bc))
(s1 (blowfish-s1 bc))
(s2 (blowfish-s2 bc))
(s3 (blowfish-s3 bc)))
;;(p (blowfish-p bc))
;;(s0 (blowfish-s0 bc))
;;(s1 (blowfish-s1 bc))
;;(s2 (blowfish-s2 bc))
;;(s3 (blowfish-s3 bc))
)
(blowfish-R xl xr 0)
(blowfish-R xr xl 1)
@ -1189,10 +1190,12 @@
(blowfish-R xl xr 14)
(blowfish-R xr xl 15)
(let ((xl (bitwise-xor xl (vector-ref p blowfish-rounds)))
(xr (bitwise-xor xr (vector-ref p (+ blowfish-rounds)))))
(let ((xl (bitwise-xor xl (dictionary-ref-with-index (blowfish-p bc) blowfish-rounds)))
(xr (bitwise-xor xr (dictionary-ref-with-index p (+ blowfish-rounds 1)))))
(set! ret_xl xr)
(set! ret_xr xl)
(display "ENCRYPT done!")
)))
@ -1256,7 +1259,7 @@
(dictionary-set-with-index! data 1 (vector-ref keyvec (remainder (+ j 2) keylen)))
(dictionary-set-with-index! data 0 (vector-ref keyvec (remainder (+ j 3) keylen)))
))
(display "FOO!")(display (dictionary-ref-with-index (blowfish-p bc) i))
(dictionary-set-with-index! (blowfish-p bc) i
(bitwise-xor
(dictionary-ref-with-index (blowfish-p bc) i)
@ -1266,7 +1269,7 @@
(blowfish-hex-char->number (dictionary-ref-with-index data 3)))))
(set! j (remainder (+ j 4) keylen))
)
(display "BAR!")
(display "FOO!")
(let ((datal 0)
(datar 0))
@ -1296,7 +1299,7 @@
(blowfish-encrypt bc datal datar)
(dictionary-set-with-index! (blowfish-s3 bc) i datal)
(dictionary-set-with-index! (blowfish-s3 bc) (+ i 1) datar))
(display "BAR!")
(do ((i 0 (+ i 1)))
((>= i 255)0);;
(do ((j (+ i 1) (+ j 1)))