From 6649a4645ef8483c56b1f526e9814ef86fd1aa04 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 9 Aug 1999 04:07:11 +0000 Subject: [PATCH] Arrgh. Fix another instance of the init-vector thinko. --- v7/src/runtime/blowfish.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/v7/src/runtime/blowfish.scm b/v7/src/runtime/blowfish.scm index c211df3a2..5c7f62d9b 100644 --- a/v7/src/runtime/blowfish.scm +++ b/v7/src/runtime/blowfish.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: blowfish.scm,v 1.8 1999/08/09 03:24:27 cph Exp $ +$Id: blowfish.scm,v 1.9 1999/08/09 04:07:11 cph Exp $ Copyright (c) 1997, 1999 Massachusetts Institute of Technology @@ -93,16 +93,15 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. key init-vector num encrypt?)))) -(define (blowfish-encrypt-string plaintext key-string encrypt?) +(define (blowfish-encrypt-string plaintext key-string init-vector encrypt?) (blowfish-encrypt-substring plaintext 0 (string-length plaintext) key-string encrypt?)) -(define (blowfish-encrypt-substring plaintext start end key-string encrypt?) +(define (blowfish-encrypt-substring plaintext start end + key-string init-vector encrypt?) (blowfish-cfb64-substring plaintext start end (blowfish-set-key (md5 key-string)) - (make-string 8 #\NUL) - 0 - encrypt?)) + init-vector 0 encrypt?)) (define (blowfish-encrypt-port input output key-string init-vector encrypt?) ;; Assumes that INPUT is in blocking mode. -- 2.25.1