blowfish fixes - 27

2012-01-20 21:22:02 +09:00 · 2012-01-20 21:22:02 +09:00 · 2964e21278
parent c6c1563486
commit 2964e21278
1 changed files with 2 additions and 0 deletions
--- a/scsh/encryption/blowfish.scm
+++ b/scsh/encryption/blowfish.scm
@ -1386,6 +1386,8 @@
      (display "pass 3")(newline)
      (if (not (eq? buffer plain))
          (display "Blowfish selftest failed - 1."))
+      (display "pass 4")(newline)
+      (blowfish-decrypt bc bufferanswer buffer)

      (blowfish-set-key bc key3)
      (blowfish-encrypt-block bc buffer plain3) ;; should give