From 9f5bc0c9070c683fa97ba9ccf0c041540609192f Mon Sep 17 00:00:00 2001 From: erana Date: Fri, 20 Jan 2012 18:12:44 +0900 Subject: [PATCH] blowfish fixes - 6 --- scsh/encryption/blowfish.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scsh/encryption/blowfish.scm b/scsh/encryption/blowfish.scm index e7f0763..c20465c 100644 --- a/scsh/encryption/blowfish.scm +++ b/scsh/encryption/blowfish.scm @@ -1220,10 +1220,10 @@ (do ((i 0 (+ i 1))) ((>= i 256)0) - (dictionary-set-with-index! blowfish-ks0 i (dictionary-ref-with-index blowfish-ks0 i)) - (dictionary-set-with-index! blowfish-ks1 i (dictionary-ref-with-index blowfish-ks1 i)) - (dictionary-set-with-index! blowfish-ks2 i (dictionary-ref-with-index blowfish-ks2 i)) - (dictionary-set-with-index! blowfish-ks3 i (dictionary-ref-with-index blowfish-ks3 i)) + (dictionary-set-with-index! (blowfish-s0 bc) i (dictionary-ref-with-index blowfish-ks0 i)) + (dictionary-set-with-index! (blowfish-s1 bc) i (dictionary-ref-with-index blowfish-ks1 i)) + (dictionary-set-with-index! (blowfish-s2 bc) i (dictionary-ref-with-index blowfish-ks2 i)) + (dictionary-set-with-index! (blowfish-s3 bc) i (dictionary-ref-with-index blowfish-ks3 i)) ) (do ((i 0 (+ i 1))