From 82f81714d7c5b8ac3bba6c6cf5ab987a26528fe3 Mon Sep 17 00:00:00 2001 From: erana Date: Fri, 20 Jan 2012 21:14:43 +0900 Subject: [PATCH] blowfish fixes - 25 --- 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 b014189..50d67b8 100644 --- a/scsh/encryption/blowfish.scm +++ b/scsh/encryption/blowfish.scm @@ -1223,8 +1223,8 @@ (blowfish-R bc xl xr 3) (blowfish-R bc xr xl 2) - (let ((xl (bitwise-xor xl (vector-ref (blowfish-p bc) 1))) - (xr (bitwise-xor xr (vector-ref (blowfish-p bc) 0)))) + (let ((xl (bitwise-xor xl (dictionary-ref-with-index (blowfish-p bc) 1))) + (xr (bitwise-xor xr (dictionary-ref-with-index (blowfish-p bc) 0)))) (set! ret_xl xr) (set! ret_xr xl) )))