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

blowfish fixes - 27

Browse Source
This commit is contained in:
erana
2012-01-20 21:22:02 +09:00
parent c6c1563486
commit 2964e21278
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scsh/encryption/blowfish.scm
+2
View File
@@ -1386,6 +1386,8 @@
(display "pass 3")(newline) (display "pass 3")(newline)
(if (not (eq? buffer plain)) (if (not (eq? buffer plain))
(display "Blowfish selftest failed - 1.")) (display "Blowfish selftest failed - 1."))
(display "pass 4")(newline)
(blowfish-decrypt bc bufferanswer buffer)
(blowfish-set-key bc key3) (blowfish-set-key bc key3)
(blowfish-encrypt-block bc buffer plain3) ;; should give (blowfish-encrypt-block bc buffer plain3) ;; should give