From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Aug 1999 18:19:24 +0000 (+0000)
Subject: Runtime system no longer runs MD5 on the passphrase handed to
X-Git-Tag: 20090517-FFI~4495
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b5cfc4fa7c47dc10b064e22c7c00e939edb67666;p=mit-scheme.git

Runtime system no longer runs MD5 on the passphrase handed to
Blowfish.
---

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index 3ff3a01a3..3da58f043 100644
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dosfile.scm,v 1.28 1999/08/09 03:25:51 cph Exp $
+;;; $Id: dosfile.scm,v 1.29 1999/08/09 18:19:15 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-1999 Massachusetts Institute of Technology
 ;;;
@@ -602,7 +602,7 @@ filename suffixes \".bf\" and \".ky\"."
 	   (equal? "ky" (pathname-type pathname)))))
 
 (define (read-encrypted-file pathname mark)
-  (let ((password (prompt-for-password "Password: "))
+  (let ((password (prompt-for-password "Pass phrase"))
 	(type (pathname-type pathname)))
     (message "Decrypting file " (->namestring pathname) "...")
     (cond ((equal? "bf" type)
@@ -610,7 +610,7 @@ filename suffixes \".bf\" and \".ky\"."
 	     (lambda (input)
 	       (call-with-output-mark mark
 		 (lambda (output)
-		   (blowfish-encrypt-port input output password
+		   (blowfish-encrypt-port input output (md5 password)
 					  (read-blowfish-file-header input)
 					  #f))))))
 	  ((or (equal? "ky" type) (equal? "KY" type))
@@ -645,7 +645,7 @@ filename suffixes \".bf\" and \".ky\"."
 					  (region-end region))))
 	     (call-with-binary-output-file pathname
 	       (lambda (output)
-		 (blowfish-encrypt-port input output password
+		 (blowfish-encrypt-port input output (md5 password)
 					(write-blowfish-file-header output)
 					#t)))))
 	  ((or (equal? "ky" type) (equal? "KY" type))
diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 3197d6411..95d64d2fd 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.202 1999/08/09 03:25:20 cph Exp $
+;;; $Id: filcom.scm,v 1.203 1999/08/09 18:19:24 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -636,7 +636,7 @@ Deletes the plaintext file after encryption."
 	     (lambda (input)
 	       (call-with-binary-output-file to
 		 (lambda (output)
-		   (blowfish-encrypt-port input output password
+		   (blowfish-encrypt-port input output (md5 password)
 					  (write-blowfish-file-header output)
 					  #t))))))
 	  (delete-file from)))))
@@ -661,7 +661,7 @@ Prefix arg means treat the plaintext file as binary data."
 	     (string-append "File "
 			    (->namestring to)
 			    " already exists; overwrite")))
-	(let ((password (prompt-for-password "Password")))
+	(let ((password (prompt-for-password "Pass phrase")))
 	  (call-with-binary-input-file from
 	    (lambda (input)
 	      ((if binary?
@@ -669,7 +669,7 @@ Prefix arg means treat the plaintext file as binary data."
 		   call-with-output-file)
 	       to
 	       (lambda (output)
-		 (blowfish-encrypt-port input output password
+		 (blowfish-encrypt-port input output (md5 password)
 					(read-blowfish-file-header input)
 					#f)))))))))
 
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 5f7d49934..b02dc3b2e 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unix.scm,v 1.96 1999/08/09 03:26:14 cph Exp $
+;;; $Id: unix.scm,v 1.97 1999/08/09 18:19:19 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -466,7 +466,7 @@ filename suffixes \".bf\" and \".ky\"."
   '("bf" "ky" "KY"))
 
 (define (read-encrypted-file pathname mark)
-  (let ((password (prompt-for-password "Password: "))
+  (let ((password (prompt-for-password "Pass phrase"))
 	(type (pathname-type pathname)))
     (message "Decrypting file " (->namestring pathname) "...")
     (cond ((equal? "bf" type)
@@ -474,7 +474,7 @@ filename suffixes \".bf\" and \".ky\"."
 	     (lambda (input)
 	       (call-with-output-mark mark
 		 (lambda (output)
-		   (blowfish-encrypt-port input output password
+		   (blowfish-encrypt-port input output (md5 password)
 					  (read-blowfish-file-header input)
 					  #f))))))
 	  ((or (equal? "ky" type) (equal? "KY" type))
@@ -509,7 +509,7 @@ filename suffixes \".bf\" and \".ky\"."
 					  (region-end region))))
 	     (call-with-binary-output-file pathname
 	       (lambda (output)
-		 (blowfish-encrypt-port input output password
+		 (blowfish-encrypt-port input output (md5 password)
 					(write-blowfish-file-header output)
 					#t)))))
 	  ((or (equal? "ky" type) (equal? "KY" type))