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

blowfish fixes - 16

This commit is contained in:
erana 2012-01-20 20:26:17 +09:00
parent 6b7f014158
commit e87b53e251
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

@ -1378,7 +1378,7 @@
(vector-set! vec i (char->integer (vector-ref vec i)))))
(display "starting test...")(newline)
(blowfish-set-key bc (char->integer-vector
(list->vector (string->list "abcdefghijklmnopqrstuvwxyz")) 26))
(list->vector (string->list "abcdefghijklmnopqrstuvwxyz"))) 26)
(display "pass 1")(newline)
(blowfish-encrypt-block bc buffer plain) ;; should give \x32\x4e\xd0\xfe\xf4\x13\xa2\x03
(display "pass 2")(newline)