diff --git a/crypt_3des.ml b/crypt_3des.ml index 76efaeaa7a3a1404f23160cb6f6b801260d97d02..b01737be5dcf44e591ca095d29b24826dd752991 100644 --- a/crypt_3des.ml +++ b/crypt_3des.ml @@ -1,4 +1,4 @@ -(* $Id: crypt_3des.ml,v 1.2 2001/03/10 16:43:21 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -128,15 +128,3 @@ module Cryptmodes = Cryptmodes_64.Make_modes(Cryptsystem) ;; -(* ====================================================================== - * History: - * - * $Log: crypt_3des.ml,v $ - * Revision 1.2 2001/03/10 16:43:21 gerd - * int32 experiments - * - * Revision 1.1 1999/06/18 00:23:58 gerd - * First release. - * - * - *) diff --git a/crypt_3des.mli b/crypt_3des.mli index 30cba23b24b0ec9d3aac5a8b367ddb186117d0e2..cdc582dea6cafc47030da9df68ced1f9235504f7 100644 --- a/crypt_3des.mli +++ b/crypt_3des.mli @@ -1,4 +1,4 @@ -(* $Id: crypt_3des.mli,v 1.1 1999/06/18 00:23:58 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -45,11 +45,3 @@ val set_parity : string -> string * - There are very few weak keys. *) -(* ====================================================================== - * History: - * - * $Log: crypt_3des.mli,v $ - * Revision 1.1 1999/06/18 00:23:58 gerd - * First release. - * - *) diff --git a/crypt_blowfish.ml b/crypt_blowfish.ml index d9b753b5318a4aab382e95d3294cb49af5e8549c..f23631a3301d62c53c8f094448e9dc7e0307744b 100644 --- a/crypt_blowfish.ml +++ b/crypt_blowfish.ml @@ -1,4 +1,4 @@ -(* $Id: crypt_blowfish.ml,v 1.2 2001/03/10 16:43:21 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -763,15 +763,3 @@ module Cryptmodes = Cryptmodes_64.Make_modes(Cryptsystem) ;; -(* ====================================================================== - * History: - * - * $Log: crypt_blowfish.ml,v $ - * Revision 1.2 2001/03/10 16:43:21 gerd - * int32 experiments - * - * Revision 1.1 1999/06/04 20:42:00 gerd - * Initial revision. - * - * - *) diff --git a/crypt_blowfish.mli b/crypt_blowfish.mli index 91a71b31e7eeec5befeb1bdf7e2dc4779d50f76b..7ff8b5b364aa9bac831f985050c0987f2d1403cb 100644 --- a/crypt_blowfish.mli +++ b/crypt_blowfish.mli @@ -1,4 +1,4 @@ -(* $Id: crypt_blowfish.mli,v 1.1 1999/06/04 20:42:01 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -21,12 +21,3 @@ module Cryptmodes : Cryptmodes_64.T with type key = Cryptsystem.key;; * - Blowfish is public domain, i.e. free from patents. *) -(* ====================================================================== - * History: - * - * $Log: crypt_blowfish.mli,v $ - * Revision 1.1 1999/06/04 20:42:01 gerd - * Initial revision. - * - * - *) diff --git a/crypt_blowfish32.ml b/crypt_blowfish32.ml index 49cd45c397ff3110407cbca2d9eb00d87b4e47fc..f58fe77062065c7d8de2454b492b3c1d95d401b9 100644 --- a/crypt_blowfish32.ml +++ b/crypt_blowfish32.ml @@ -1,4 +1,4 @@ -(* $Id: crypt_blowfish32.ml,v 1.1 2001/03/10 16:43:00 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -747,11 +747,3 @@ module Cryptmodes = Cryptmodes_64.Make_modes_int32(Cryptsystem) ;; -(* ====================================================================== - * History: - * - * $Log: crypt_blowfish32.ml,v $ - * Revision 1.1 2001/03/10 16:43:00 gerd - * Initial revision. - * - *) diff --git a/crypt_blowfish32.mli b/crypt_blowfish32.mli index d52b9bf5bb573474c22d0ca8826ffb22e01c5036..4edd3e5d5fb7f380d560db3da1287da52ad4bb60 100644 --- a/crypt_blowfish32.mli +++ b/crypt_blowfish32.mli @@ -1,4 +1,4 @@ -(* $Id: crypt_blowfish32.mli,v 1.1 2001/03/10 16:43:00 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -24,11 +24,3 @@ module Cryptmodes : Cryptmodes_64.T with type key = Cryptsystem.key;; (* THIS VERSION OF BLOWFISH USES INT32 ARITHMETIC, AND IS EXPERIMENTAL. *) -(* ====================================================================== - * History: - * - * $Log: crypt_blowfish32.mli,v $ - * Revision 1.1 2001/03/10 16:43:00 gerd - * Initial revision. - * - *) diff --git a/crypt_des.ml b/crypt_des.ml index 380128eb3cc62987b3fa0e56cba35bd9fbde2f0e..02bd1b036e30ab4cfff38258ed117efd98b5f880 100644 --- a/crypt_des.ml +++ b/crypt_des.ml @@ -1,4 +1,4 @@ -(* $Id: crypt_des.ml,v 1.10 2001/03/10 16:43:21 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -835,52 +835,3 @@ module Cryptmodes = Cryptmodes_64.Make_modes(Cryptsystem) ;; -(* ====================================================================== - * history: - * - * $Log: crypt_des.ml,v $ - * Revision 1.10 2001/03/10 16:43:21 gerd - * int32 experiments - * - * Revision 1.9 1999/06/18 00:23:58 gerd - * First release. - * - * Revision 1.8 1999/06/17 21:00:31 gerd - * Some additions have been turned into lor operations (faster). - * The Lazy.force calls in the 'des' functions have been avoided. - * - * Revision 1.7 1999/06/17 20:39:46 gerd - * The initial iperm and xperm permutations have been combined - * such that only one table lookup is necessary. - * - * Revision 1.6 1999/06/17 20:26:35 gerd - * In previous revisions, in every 'do_rounds' loop cycle the 'xperm' - * permutation was applied again to convert 32 bit numbers to 48 bit numbers. - * Now the 'do_rounds' directly works with 48 bit numbers, and 32 bit - * entites are converted on entry and on exit. Effectively, we have now - * two 'xperm's and two inverse 'xperm's instead of 16 'xperm's before. - * - * Revision 1.5 1999/06/17 19:41:10 gerd - * Logical operations differ in their speed because of Ocaml's - * integer representation. lor and land are a bit faster than lxor. - * Because of this I reduced the number of lxor operations. - * - * Revision 1.4 1999/06/17 16:51:33 gerd - * The 'xperm' permutation is done by bit-shifting instead of - * an array lookup. - * - * Revision 1.3 1999/06/17 15:57:02 gerd - * Invocations of 'do_perm32', 'do_perm48', and 'do_perm64' have - * been manually inlined. This speeds the algorithm up from 55 sec per - * 1MB CBC-encryption to 38 sec. - * - * Revision 1.2 1999/06/17 15:24:24 gerd - * Instead of calling 'f' sequently, there is now a loop. This - * prevents the compiler from inlining the 16 invocations of 'f', which - * leads to shorter code and MUCH better cache performance. - * - * Revision 1.1 1999/06/17 14:55:04 gerd - * Added module for DES. - * - * - *) diff --git a/crypt_des.mli b/crypt_des.mli index 12f1a4014ff118ed6ca6f65743b161ac229e4877..4bf268adc58d8d6a3a0f788e7757be7b28b1512b 100644 --- a/crypt_des.mli +++ b/crypt_des.mli @@ -1,4 +1,4 @@ -(* $Id: crypt_des.mli,v 1.1 1999/06/17 14:55:04 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -36,11 +36,3 @@ val set_parity : string -> string * - There are very few weak keys. *) -(* ====================================================================== - * History: - * - * $Log: crypt_des.mli,v $ - * Revision 1.1 1999/06/17 14:55:04 gerd - * Added module for DES. - * - *) diff --git a/cryptmodes_64.ml b/cryptmodes_64.ml index a27a2116f75feafeb019c7b4b097d386ee90f615..e8528ffe14e6567aa262bd9c6c82c938bfa5352c 100644 --- a/cryptmodes_64.ml +++ b/cryptmodes_64.ml @@ -1,4 +1,4 @@ -(* $Id: cryptmodes_64.ml,v 1.2 2001/03/10 16:43:21 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -567,15 +567,3 @@ module Make_modes_int32 (M : Cryptsystem_64.T) = ;; -(* ====================================================================== - * History: - * - * $Log: cryptmodes_64.ml,v $ - * Revision 1.2 2001/03/10 16:43:21 gerd - * int32 experiments - * - * Revision 1.1 1999/06/04 20:42:01 gerd - * Initial revision. - * - * - *) diff --git a/cryptmodes_64.mli b/cryptmodes_64.mli index baf3371c9572698f67b4c29727634374bf3787a3..2ceea908e62c2d85db0c7e7cc89d95827fa3fb0e 100644 --- a/cryptmodes_64.mli +++ b/cryptmodes_64.mli @@ -1,4 +1,4 @@ -(* $Id: cryptmodes_64.mli,v 1.2 2001/03/10 16:43:21 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -213,15 +213,3 @@ module Make_modes_int32 (M : Cryptsystem_64.T) : T with type key = M.key -(* ====================================================================== - * History: - * - * $Log: cryptmodes_64.mli,v $ - * Revision 1.2 2001/03/10 16:43:21 gerd - * int32 experiments - * - * Revision 1.1 1999/06/04 20:42:01 gerd - * Initial revision. - * - * - *) diff --git a/cryptsystem_64.ml b/cryptsystem_64.ml index 75b0849d583ad43ade4d3ba030043cc468cef0f6..574048f0bebf43ebcd831151f32c0d7a995a84dc 100644 --- a/cryptsystem_64.ml +++ b/cryptsystem_64.ml @@ -1,4 +1,4 @@ -(* $Id: cryptsystem_64.ml,v 1.2 2001/03/10 16:43:21 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -46,15 +46,3 @@ module type T = -(* ====================================================================== - * History: - * - * $Log: cryptsystem_64.ml,v $ - * Revision 1.2 2001/03/10 16:43:21 gerd - * int32 experiments - * - * Revision 1.1 1999/06/04 20:42:01 gerd - * Initial revision. - * - * - *) diff --git a/cryptsystem_64.mli b/cryptsystem_64.mli index dd98babf57677cf8b9a200faf2d335033c01a0b0..2e62b287404b60aa608caa7c775f3e6dd1c1d008 100644 --- a/cryptsystem_64.mli +++ b/cryptsystem_64.mli @@ -1,4 +1,4 @@ -(* $Id: cryptsystem_64.mli,v 1.2 2001/03/10 16:43:21 gerd Exp $ +(* $Id$ * ---------------------------------------------------------------------- * This module is part of the cryptgps package by Gerd Stolpmann. *) @@ -73,15 +73,3 @@ module type T = -(* ====================================================================== - * History: - * - * $Log: cryptsystem_64.mli,v $ - * Revision 1.2 2001/03/10 16:43:21 gerd - * int32 experiments - * - * Revision 1.1 1999/06/04 20:42:01 gerd - * Initial revision. - * - * - *)