From c6c156348644f70ef9cac932f105a3f81c7eb56c Mon Sep 17 00:00:00 2001
From: erana <jceuppen@vub.ac.be>
Date: Fri, 20 Jan 2012 21:19:50 +0900
Subject: [PATCH] blowfish fixes - 26

---
 scsh/encryption/blowfish.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scsh/encryption/blowfish.scm b/scsh/encryption/blowfish.scm
index 50d67b8..41ae4be 100644
--- a/scsh/encryption/blowfish.scm
+++ b/scsh/encryption/blowfish.scm
@@ -1365,6 +1365,7 @@
 (define (blowfish-selftest)
   (let ((plain (list->vector (string->list "BLOWFISH")))
         (buffer (make-vector 8))
+        (bufferanswer (vector 50 78 208 254 248 19 162 3));; buffer encrypted should give bufferwnswer : \x32\x4e\xd0\xfe\xf4\x13\xa2\x03
         (plain3 (vector 'FE 'DC 'BA '98 '76 '54 '32 '10))
         (key3 (vector '41 '79' '6E 'A0 '52 '62 '6E 'E4))
         (cipher3 (vector 'E1 '13 'F4 '10 '2C 'FC 'CE '43)))