From: Chris Hanson Date: Mon, 9 Jun 1997 07:43:58 +0000 (+0000) Subject: Initial revision X-Git-Tag: 20090517-FFI~5152 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5e5d93e197c14f4f66a5cd1987d594eb15b86554;p=mit-scheme.git Initial revision --- diff --git a/v7/src/microcode/prbfish.c b/v7/src/microcode/prbfish.c new file mode 100644 index 000000000..495b5928f --- /dev/null +++ b/v7/src/microcode/prbfish.c @@ -0,0 +1,147 @@ +/* -*-C-*- + +$Id: prbfish.c,v 1.1 1997/06/09 07:43:36 cph Exp $ + +Copyright (c) 1997 Massachusetts Institute of Technology + +This material was developed by the Scheme project at the Massachusetts +Institute of Technology, Department of Electrical Engineering and +Computer Science. Permission to copy this software, to redistribute +it, and to use it for any purpose is granted, subject to the following +restrictions and understandings. + +1. Any copy made of this software must include this copyright notice +in full. + +2. Users of this software agree to make their best efforts (a) to +return to the MIT Scheme project any improvements or extensions that +they make, so that these may be included in future releases; and (b) +to inform MIT of noteworthy uses of this software. + +3. All materials developed as a consequence of the use of this +software shall duly acknowledge such use, in accordance with the usual +standards of acknowledging credit in academic research. + +4. MIT has made no warrantee or representation that the operation of +this software will be error-free, and MIT is under no obligation to +provide any services, by way of maintenance, update, or otherwise. + +5. In conjunction with products arising from the use of this material, +there shall be no use of the name of the Massachusetts Institute of +Technology nor of any adaptation thereof in any advertising, +promotional, or sales literature without prior written consent from +MIT in each case. */ + +/* Interface to Blowfish library */ + +#include "scheme.h" +#include "prims.h" +#include + +/* This interface uses the Blowfish library from SSLeay. */ + +DEFINE_PRIMITIVE ("BLOWFISH-SET-KEY", Prim_blowfish_set_key, 1, 1, + "(STRING) +Generate a Blowfish key from STRING.\n\ +STRING must be 72 bytes or less in length.\n\ +For text-string keys, use MD5 on the text, and pass the digest here.") +{ + SCHEME_OBJECT string; + SCHEME_OBJECT result; + PRIMITIVE_HEADER (1); + + CHECK_ARG (1, STRING_P); + string = (ARG_REF (1)); + if ((STRING_LENGTH (string)) > 72) + error_bad_range_arg (1); + result = (allocate_string (sizeof (BF_KEY))); + BF_set_key (((BF_KEY *) (STRING_LOC (result, 0))), + (STRING_LENGTH (string)), + (STRING_LOC (string, 0))); + PRIMITIVE_RETURN (result); +} + +static BF_KEY * +DEFUN (key_arg, (arg), unsigned int arg) +{ + CHECK_ARG (arg, STRING_P); + if ((STRING_LENGTH (ARG_REF (arg))) != (sizeof (BF_KEY))) + error_bad_range_arg (arg); + return ((BF_KEY *) (STRING_LOC ((ARG_REF (arg)), 0))); +} + +static unsigned char * +DEFUN (init_vector_arg, (arg), unsigned int arg) +{ + CHECK_ARG (arg, STRING_P); + if ((STRING_LENGTH (ARG_REF (arg))) != 8) + error_bad_range_arg (arg); + return (STRING_LOC ((ARG_REF (arg)), 0)); +} + +DEFINE_PRIMITIVE ("BLOWFISH-CBC", Prim_blowfish_cbc, 4, 4, + "(INPUT KEY INIT-VECTOR ENCRYPT?)\n\ +Apply Blowfish in Cipher Block Chaining mode.\n\ +INPUT is a string whose length is a multiple of 8 bytes.\n\ +KEY is a Blowfish key.\n\ +INIT-VECTOR is an 8-byte string; it is modified after each call.\n\ + The value from any call may be passed in to a later call.\n\ +ENCRYPT? says whether to encrypt (#T) or decrypt (#F).\n\ +Returned value is a string of the same length as INPUT.") +{ + SCHEME_OBJECT input_text; + BF_KEY * key; + unsigned char * init_vector; + SCHEME_OBJECT output_text; + PRIMITIVE_HEADER (4); + + CHECK_ARG (1, STRING_P); + input_text = (ARG_REF (1)); + if (((STRING_LENGTH (input_text)) % 8) != 0) + error_bad_range_arg (1); + key = (key_arg (2)); + init_vector = (init_vector_arg (3)); + output_text = (allocate_string (STRING_LENGTH (input_text))); + BF_cbc_encrypt ((STRING_LOC (input_text, 0)), + (STRING_LOC (output_text, 0)), + (STRING_LENGTH (input_text)), + key, + init_vector, + (BOOLEAN_ARG (4))); + PRIMITIVE_RETURN (output_text); +} + +DEFINE_PRIMITIVE ("BLOWFISH-CFB64", Prim_blowfish_cfb64, 5, 5, + "(INPUT KEY INIT-VECTOR NUM ENCRYPT?) +Apply Blowfish in Cipher FeedBack mode.\n\ +INPUT is an arbitrary string.\n\ +KEY is a Blowfish key.\n\ +INIT-VECTOR is an 8-byte string; it is modified after each call.\n\ + The value from any call may be passed in to a later call.\n\ +NUM is a digit from 0 to 7 inclusive; it is the low 3 bits of the\n\ + number of bytes that have previously been processed in this stream.\n\ +ENCRYPT? says whether to encrypt (#T) or decrypt (#F).\n\ +Returned value is a string of the same length as INPUT.") +{ + SCHEME_OBJECT input_text; + BF_KEY * key; + unsigned char * init_vector; + int num; + SCHEME_OBJECT output_text; + PRIMITIVE_HEADER (5); + + CHECK_ARG (1, STRING_P); + input_text = (ARG_REF (1)); + key = (key_arg (2)); + init_vector = (init_vector_arg (3)); + num = (arg_index_integer (4, 8)); + output_text = (allocate_string (STRING_LENGTH (input_text))); + BF_cfb64_encrypt ((STRING_LOC (input_text, 0)), + (STRING_LOC (output_text, 0)), + (STRING_LENGTH (input_text)), + key, + init_vector, + (&num), + (BOOLEAN_ARG (5))); + PRIMITIVE_RETURN (output_text); +} diff --git a/v7/src/microcode/prmd5.c b/v7/src/microcode/prmd5.c new file mode 100644 index 000000000..76cee9bb9 --- /dev/null +++ b/v7/src/microcode/prmd5.c @@ -0,0 +1,62 @@ +/* -*-C-*- + +$Id: prmd5.c,v 1.1 1997/06/09 07:43:23 cph Exp $ + +Copyright (c) 1997 Massachusetts Institute of Technology + +This material was developed by the Scheme project at the Massachusetts +Institute of Technology, Department of Electrical Engineering and +Computer Science. Permission to copy this software, to redistribute +it, and to use it for any purpose is granted, subject to the following +restrictions and understandings. + +1. Any copy made of this software must include this copyright notice +in full. + +2. Users of this software agree to make their best efforts (a) to +return to the MIT Scheme project any improvements or extensions that +they make, so that these may be included in future releases; and (b) +to inform MIT of noteworthy uses of this software. + +3. All materials developed as a consequence of the use of this +software shall duly acknowledge such use, in accordance with the usual +standards of acknowledging credit in academic research. + +4. MIT has made no warrantee or representation that the operation of +this software will be error-free, and MIT is under no obligation to +provide any services, by way of maintenance, update, or otherwise. + +5. In conjunction with products arising from the use of this material, +there shall be no use of the name of the Massachusetts Institute of +Technology nor of any adaptation thereof in any advertising, +promotional, or sales literature without prior written consent from +MIT in each case. */ + +/* Interface to MD5 library */ + +#include "scheme.h" +#include "prims.h" +#include + +DEFINE_PRIMITIVE ("MD5", Prim_md5, 1, 1, + "(STRING) +Generate an MD5 digest of string.\n\ +The digest is returned as a 16-byte string.") +{ + PRIMITIVE_HEADER (1); + CHECK_ARG (1, STRING_P); + { + SCHEME_OBJECT string = (ARG_REF (1)); + SCHEME_OBJECT result = (allocate_string (16)); + unsigned char * scan_result = (STRING_LOC (result, 0)); + MD5_CTX context; + unsigned char * scan_digest = (context . digest); + unsigned char * end_digest = (scan_digest + 16); + MD5Init (&context); + MD5Update ((&context), (STRING_LOC (string, 0)), (STRING_LENGTH (string))); + MD5Final (&context); + while (scan_digest < end_digest) + (*scan_result++) = (*scan_digest++); + PRIMITIVE_RETURN (result); + } +} diff --git a/v7/src/runtime/blowfish.scm b/v7/src/runtime/blowfish.scm new file mode 100644 index 000000000..59b5287f3 --- /dev/null +++ b/v7/src/runtime/blowfish.scm @@ -0,0 +1,92 @@ +#| -*-Scheme-*- + +$Id: blowfish.scm,v 1.1 1997/06/09 07:43:58 cph Exp $ + +Copyright (c) 1997 Massachusetts Institute of Technology + +This material was developed by the Scheme project at the Massachusetts +Institute of Technology, Department of Electrical Engineering and +Computer Science. Permission to copy this software, to redistribute +it, and to use it for any purpose is granted, subject to the following +restrictions and understandings. + +1. Any copy made of this software must include this copyright notice +in full. + +2. Users of this software agree to make their best efforts (a) to +return to the MIT Scheme project any improvements or extensions that +they make, so that these may be included in future releases; and (b) +to inform MIT of noteworthy uses of this software. + +3. All materials developed as a consequence of the use of this +software shall duly acknowledge such use, in accordance with the usual +standards of acknowledging credit in academic research. + +4. MIT has made no warrantee or representation that the operation of +this software will be error-free, and MIT is under no obligation to +provide any services, by way of maintenance, update, or otherwise. + +5. In conjunction with products arising from the use of this material, +there shall be no use of the name of the Massachusetts Institute of +Technology nor of any adaptation thereof in any advertising, +promotional, or sales literature without prior written consent from +MIT in each case. |# + +;;;; Interface to Blowfish and MD5 +;;; package: () + +(declare (usual-integrations)) + +(define-primitives + (md5 1) + (blowfish-set-key 1) + (blowfish-cbc 4) + (blowfish-cfb64 5)) + +(define (blowfish-encrypt-string plaintext key-string encrypt?) + (blowfish-cfb64 plaintext + (blowfish-set-key (md5 key-string)) + (make-string 8 #\NUL) + 0 + encrypt?)) + +(define (blowfish-encrypt-port input output key-string encrypt?) + ;; Assumes that INPUT is in blocking mode. + (let ((key (blowfish-set-key (md5 key-string))) + (buffer (make-string 512)) + (init-vector (make-string 8 #\NUL))) + (let loop ((m 0)) + (let ((n (input-port/read-string! input buffer))) + (if (not (fix:= 0 n)) + (begin + (write-string (blowfish-cfb64 (if (fix:= 512 n) + buffer + (string-head buffer n)) + key + init-vector + m + encrypt?) + output) + (loop (fix:and #x7 (fix:+ m (fix:and #x7 n)))))))))) + +(define (blowfish-encrypt-file input-file output-file key-string encrypt? + text?) + ((if (and text? encrypt?) + call-with-input-file + call-with-binary-input-file) + input-file + (lambda (input) + ((if (and text? (not encrypt?)) + call-with-output-file + call-with-binary-output-file) + output-file + (lambda (output) + (let ((header "Blowfish, 16 rounds")) + (if encrypt? + (begin + (write-string header output) + (newline output)) + (if (not (string=? (read-line input) header)) + (error:bad-range-argument input-file + 'BLOWFISH-ENCRYPT-FILE)))) + (blowfish-encrypt-port input output key-string encrypt?)))))) \ No newline at end of file