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 3ff3a01a3511bb1479832ade5eaa80c943076e53..3da58f043e1524ff12d713aecabd7c35c084a4b6 100644 (file)
--- 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 3197d6411af990241ac142e67e952cc5a8ecd708..95d64d2fde4480ce7fc57eedc893fbbb00a4f5d2 100644 (file)
--- 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)))))))))
 \f

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 5f7d49934718801a925d6a89d9c63e0eefeaaf49..b02dc3b2e3a87272b616d7a37b2980e1153b62d3 100644 (file)
--- 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))