From 58ef81fef73ff9855e13ccceb6602feafc50bd56 Mon Sep 17 00:00:00 2001 From: erana Date: Fri, 20 Jan 2012 20:47:28 +0900 Subject: [PATCH] blowfish fixes - 21 --- scsh/encryption/blowfish.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/encryption/blowfish.scm b/scsh/encryption/blowfish.scm index 2de1457..24bd61d 100644 --- a/scsh/encryption/blowfish.scm +++ b/scsh/encryption/blowfish.scm @@ -1160,7 +1160,7 @@ (define (blowfish-R bc l r i) (set! l (bitwise-xor l (dictionary-ref (blowfish-p bc) i))) - (set! r (bitwise-xor r (dictionary-ref (blowfish-p bc) (blowfish-F l))))) + (set! r (bitwise-xor r (blowfish-F l)))) ;; blowfish-rounds == 16 -> (define (blowfish-encrypt bc ret_xl ret_xr) ;; NOTE bc = blowfish-context