From 9cdfda60213457046b896aa08037c5698370f56b Mon Sep 17 00:00:00 2001 From: erana Date: Fri, 20 Jan 2012 17:24:15 +0900 Subject: [PATCH] blowfish fixes --- scsh/encryption/blowfish.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/encryption/blowfish.scm b/scsh/encryption/blowfish.scm index 9457c5d..aff7fc1 100644 --- a/scsh/encryption/blowfish.scm +++ b/scsh/encryption/blowfish.scm @@ -27,7 +27,7 @@ ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (load "dictionary.scm") -;; ,open records +;; ,open records tables ;; NOTE (define BIG-ENDIAN-HOST (if (getenv "BIG_ENDIAN_HOST") (getenv "BIG_ENDIAN_HOST") #t)) ;; NOTE : Do not forget to set this ! @@ -1143,7 +1143,7 @@ (define (blowfish-R l r i) (set! l (bitwise-xor l (dictionary-ref (blowfish-p blowfish-context) i))) - (set! r (bitwise-xor r ((dictionary-ref (blowfish-p blowfish-context) blowfish_F l))))) + (set! r (bitwise-xor r ((dictionary-ref (blowfish-p blowfish-context) blowfish-F l))))) ;; blowfish-rounds == 16 -> (define (blowfish-encrypt bc ret_xl ret_xr) ;; NOTE bc = blowfish-context