From c53f89828bd5645291340a6fa70da2b54d451ae4 Mon Sep 17 00:00:00 2001 From: erana Date: Fri, 20 Jan 2012 17:28:54 +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 aff7fc1..4397cdd 100644 --- a/scsh/encryption/blowfish.scm +++ b/scsh/encryption/blowfish.scm @@ -1215,8 +1215,8 @@ (let ((data (make-table))) (do ((i 0 (+ i 1))) - ((=> i (+ blowfish-rounds 2))0) - (set! (vector-ref (blowfish-p bc) i) (table-ref blowfish-ps i))) + ((>= i (+ blowfish-rounds 2))0) + (vector-set! (blowfish-p bc) i (table-ref blowfish-ps i))) (do ((i 0 (+ i 1))) ((>= i 256)0)