November 2004 - crypticl-cvs@common-lisp.net

[crypticl-cvs] CVS update: crypticl/doc/TODO crypticl/doc/ChangeLog
by Taale Skogan 25 Nov '04

25 Nov '04

Update of /project/crypticl/cvsroot/crypticl/doc In directory common-lisp.net:/tmp/cvs-serv29895/doc Modified Files: ChangeLog Added Files: TODO Log Message: Added TODO file. Date: Thu Nov 25 22:59:06 2004 Author: tskogan Index: crypticl/doc/ChangeLog diff -u crypticl/doc/ChangeLog:1.10 crypticl/doc/ChangeLog:1.11 --- crypticl/doc/ChangeLog:1.10 Thu Nov 25 22:56:49 2004 +++ crypticl/doc/ChangeLog Thu Nov 25 22:59:05 2004 @@ -6,6 +6,8 @@ * src/*: naming and TODO * src/load.lisp: removed excl: + * doc/README: updated with TODO entry. + * doc/TODO: added file. 2004-11-24 Tage Stabell-Kulo <tage(a)tagehome.pasta.cs.uit.no>

1 0

[crypticl-cvs] CVS update: crypticl/src/aes.lisp crypticl/src/common.lisp crypticl/src/crypticl-package.lisp crypticl/src/des.lisp crypticl/src/diffie-hellman.lisp crypticl/src/dsa.lisp crypticl/src/idea.lisp crypticl/src/keygenerator.lisp crypticl/src/keystore.lisp crypticl/src/load.lisp crypticl/src/md5.lisp crypticl/src/numtheory.lisp crypticl/src/random.lisp crypticl/src/rsa.lisp crypticl/src/sha.lisp crypticl/src/test.lisp crypticl/src/utilities.lisp
by Taale Skogan 25 Nov '04

25 Nov '04

Update of /project/crypticl/cvsroot/crypticl/src In directory common-lisp.net:/tmp/cvs-serv29823/src Modified Files: aes.lisp common.lisp crypticl-package.lisp des.lisp diffie-hellman.lisp dsa.lisp idea.lisp keygenerator.lisp keystore.lisp load.lisp md5.lisp numtheory.lisp random.lisp rsa.lisp sha.lisp test.lisp utilities.lisp Log Message: Removed allegro specific excl: function. Still one left. Using aa instead of the norwegian character å in my name. Renamed various versions of TO DO: to To do: at the top of the files. Using TODO inside the source. Date: Thu Nov 25 22:56:54 2004 Author: tskogan Index: crypticl/src/aes.lisp diff -u crypticl/src/aes.lisp:1.4 crypticl/src/aes.lisp:1.5 --- crypticl/src/aes.lisp:1.4 Wed Nov 24 23:54:38 2004 +++ crypticl/src/aes.lisp Thu Nov 25 22:56:51 2004 @@ -2,7 +2,7 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: AES -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. ;;To do: Index: crypticl/src/common.lisp diff -u crypticl/src/common.lisp:1.2 crypticl/src/common.lisp:1.3 --- crypticl/src/common.lisp:1.2 Sun Nov 7 01:17:35 2004 +++ crypticl/src/common.lisp Thu Nov 25 22:56:52 2004 @@ -2,12 +2,13 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: Common functionality. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. -;; TO DO: +;; To do: ;;-register constructors for byte-encoding constructors in the same way as for normal constructors. ;;-better spki string encoding with type. +;;-replace excl function (in-package crypticl) @@ -230,6 +231,7 @@ (defun get-element-encodings (msg-elements) "Get byte encoding for each msg element, transform to base64 spki and return the bytes." + ;;TODO replace excl function (excl:string-to-octets (to-spki (mapcar #'get-msg-element-encoding msg-elements)))) Index: crypticl/src/crypticl-package.lisp diff -u crypticl/src/crypticl-package.lisp:1.6 crypticl/src/crypticl-package.lisp:1.7 --- crypticl/src/crypticl-package.lisp:1.6 Sun Nov 14 20:56:29 2004 +++ crypticl/src/crypticl-package.lisp Thu Nov 25 22:56:52 2004 @@ -6,10 +6,10 @@ ;;;; Usage: Loading this file will load the rest of the library. ;;;; After loading you can list the public interface with ;;;; (crypticl:print-external-symbols) from the top-level. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. -;;TO DO +;;To do: (in-package cl-user) Index: crypticl/src/des.lisp diff -u crypticl/src/des.lisp:1.2 crypticl/src/des.lisp:1.3 --- crypticl/src/des.lisp:1.2 Sun Nov 7 01:17:35 2004 +++ crypticl/src/des.lisp Thu Nov 25 22:56:52 2004 @@ -2,7 +2,7 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: A void DES implementation. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. ;;; DES has not been implemented, but a DES class and some Index: crypticl/src/diffie-hellman.lisp diff -u crypticl/src/diffie-hellman.lisp:1.4 crypticl/src/diffie-hellman.lisp:1.5 --- crypticl/src/diffie-hellman.lisp:1.4 Sun Nov 7 21:23:33 2004 +++ crypticl/src/diffie-hellman.lisp Thu Nov 25 22:56:52 2004 @@ -2,7 +2,7 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: Diffie-Hellman -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. Index: crypticl/src/dsa.lisp diff -u crypticl/src/dsa.lisp:1.5 crypticl/src/dsa.lisp:1.6 --- crypticl/src/dsa.lisp:1.5 Sun Nov 14 00:10:39 2004 +++ crypticl/src/dsa.lisp Thu Nov 25 22:56:52 2004 @@ -2,7 +2,7 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: The Digital Signature Algorithm (DSA). -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. ;;; Implementation based on the Digital Signature Standard (DSS) ([1]). @@ -10,7 +10,7 @@ ;;; ;;; [1] NIST. 2000. Digital Signature Standard (DSS). FIPS Pub 186-2. -;;TO DO: +;;To do: (in-package crypticl) Index: crypticl/src/idea.lisp diff -u crypticl/src/idea.lisp:1.3 crypticl/src/idea.lisp:1.4 --- crypticl/src/idea.lisp:1.3 Sun Nov 7 13:04:17 2004 +++ crypticl/src/idea.lisp Thu Nov 25 22:56:52 2004 @@ -2,7 +2,7 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: IDEA - International Data Encryption Algorithm -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. ;;; Based on the references [1] and [2]. Index: crypticl/src/keygenerator.lisp diff -u crypticl/src/keygenerator.lisp:1.5 crypticl/src/keygenerator.lisp:1.6 --- crypticl/src/keygenerator.lisp:1.5 Sun Nov 14 00:10:39 2004 +++ crypticl/src/keygenerator.lisp Thu Nov 25 22:56:52 2004 @@ -2,10 +2,10 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: Interface for key generation. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. -;;TO DO +;;To do: (in-package crypticl) Index: crypticl/src/keystore.lisp diff -u crypticl/src/keystore.lisp:1.2 crypticl/src/keystore.lisp:1.3 --- crypticl/src/keystore.lisp:1.2 Sun Nov 14 20:56:29 2004 +++ crypticl/src/keystore.lisp Thu Nov 25 22:56:52 2004 @@ -2,15 +2,15 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: Simple key store utility. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. -;;TO DO +;;To do: ;; Printed representation of KeyStore object ;; users: -;;( (("Tåle Skogan" "tasko(a)stud.cs.uit.no"...) ("22ffee" "55aadd" ...)) +;;( (("Taale Skogan" "tasko(a)stud.cs.uit.no"...) ("22ffee" "55aadd" ...)) ;; (("Ross Anderson" "ross(a)acm.org" ...) ("eeff34"..:))) ;; ht: ;; "22ffee" -> #<RSAPrivateKey @ #x211f58ba> @@ -44,7 +44,7 @@ (parse-integer (nth 4 tokens)))) #| -"Tåle Skogan" "tasko(a)stud.cs.uit.no" - first line +"Taale Skogan" "tasko(a)stud.cs.uit.no" - first line RSAPublicKey "22ffee" 5 119 - one line per key RSAPrivateKey "22ffee" 77 119 **** - separator between users @@ -143,7 +143,7 @@ (gethash fingerprint (ht obj))) #| -"Tåle Skogan" "tasko(a)stud.cs.uit.no" - first line +"Taale Skogan" "tasko(a)stud.cs.uit.no" - first line RSAPublicKey "22ffee" 5 119 - one line per key RSAPrivateKey "22ffee" 77 119 **** - separator between users Index: crypticl/src/load.lisp diff -u crypticl/src/load.lisp:1.5 crypticl/src/load.lisp:1.6 --- crypticl/src/load.lisp:1.5 Wed Nov 24 23:54:38 2004 +++ crypticl/src/load.lisp Thu Nov 25 22:56:52 2004 @@ -6,22 +6,18 @@ ;;;; Usage: Loading this file will load the rest of the library. ;;;; After loading you can list the public interface with ;;;; (crypticl:print-external-symbols) from the top-level. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. -;;To-do: -;;-port this to non-Allegro lisps. excl: is Allegro spesific. Clisp -;; chokes on the Norwegian charachter in Tåle (above). +;;To do: (in-package cl-user) ;;(proclaim '(optimize (speed 2) (safety 1) (space 1) (debug 3))) -;; Load library. If fast-load is true, do quick load without recompiling. -;; NB! The order of the file names in the list matter. -(let ((fast-load t) - (files '("crypticl-package" +;; Load library. NB! The order of the file names in the list matter. +(let ((files '("crypticl-package" "utilities" "numtheory" "common" @@ -38,9 +34,7 @@ :device (pathname-device *load-pathname*) :directory (directory-namestring *load-pathname*))) (module (merge-pathnames file path))) - (if fast-load - (excl::compile-file-if-needed module) - (compile-file module :verbose nil)) + (compile-file module :verbose nil) (load module)))) Index: crypticl/src/md5.lisp diff -u crypticl/src/md5.lisp:1.2 crypticl/src/md5.lisp:1.3 --- crypticl/src/md5.lisp:1.2 Sun Nov 7 01:17:35 2004 +++ crypticl/src/md5.lisp Thu Nov 25 22:56:52 2004 @@ -2,7 +2,7 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: The RSA MD5 message digest algorithm from Internet RFC 1321. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. ;;;; Credit: Low level code based on implementation by Mark Nahabedian with ;;;; enhancements by Tony Eng. Index: crypticl/src/numtheory.lisp diff -u crypticl/src/numtheory.lisp:1.2 crypticl/src/numtheory.lisp:1.3 --- crypticl/src/numtheory.lisp:1.2 Sun Nov 7 01:17:35 2004 +++ crypticl/src/numtheory.lisp Thu Nov 25 22:56:52 2004 @@ -2,7 +2,7 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: Number theoretic utilities, including primality testing. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. ;;; References: @@ -10,8 +10,7 @@ ;;; [2] Stinson,D.R. 2002. "Cryptography - Theory and Practice" ;;; [3] Rosen, K.H. 1993. "Elementary Number Theory" 3rd -;;TO DO - +;;To do: (in-package crypticl) Index: crypticl/src/random.lisp diff -u crypticl/src/random.lisp:1.2 crypticl/src/random.lisp:1.3 --- crypticl/src/random.lisp:1.2 Sun Nov 7 01:17:35 2004 +++ crypticl/src/random.lisp Thu Nov 25 22:56:52 2004 @@ -2,11 +2,11 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: Pseudo random number generation. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. -;;TO DO +;;To do: ;;-get high entropy bits on non-Linux system. Either roll your own (most likely bad idea) or use win32API to handle one other system. But this is not important. win32 API CryptGenRandom. ;;-test suite. Some simple statistical tests on output? Index: crypticl/src/rsa.lisp diff -u crypticl/src/rsa.lisp:1.4 crypticl/src/rsa.lisp:1.5 --- crypticl/src/rsa.lisp:1.4 Sun Nov 14 00:10:39 2004 +++ crypticl/src/rsa.lisp Thu Nov 25 22:56:53 2004 @@ -2,13 +2,13 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: RSA encryption/decryption according to PKCS#1 -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. ;;; References: ;;; [1] RFC 2313 Kaliski, B. 1998. PKCS #1: RSA Encryption. -;;TO DO +;;To do: ;; - PKCS#1 parser is not correct for type 0 (but that is a poor byte type anyway ans is not likely to be used) (in-package crypticl) Index: crypticl/src/sha.lisp diff -u crypticl/src/sha.lisp:1.3 crypticl/src/sha.lisp:1.4 --- crypticl/src/sha.lisp:1.3 Wed Nov 24 23:54:38 2004 +++ crypticl/src/sha.lisp Thu Nov 25 22:56:53 2004 @@ -2,7 +2,7 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: The SHA-1 message digest algorithm. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. Index: crypticl/src/test.lisp diff -u crypticl/src/test.lisp:1.3 crypticl/src/test.lisp:1.4 --- crypticl/src/test.lisp:1.3 Sun Nov 14 20:56:29 2004 +++ crypticl/src/test.lisp Thu Nov 25 22:56:53 2004 @@ -2,7 +2,7 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: Test code for the library. -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. (in-package crypticl) Index: crypticl/src/utilities.lisp diff -u crypticl/src/utilities.lisp:1.2 crypticl/src/utilities.lisp:1.3 --- crypticl/src/utilities.lisp:1.2 Sun Nov 7 01:17:35 2004 +++ crypticl/src/utilities.lisp Thu Nov 25 22:56:53 2004 @@ -2,10 +2,10 @@ ;;;; The Crypticl cryptographic library. ;;;; ;;;; Description: Non-cryptopgrahic utilities -;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Author: Taale Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. -;;TO DO +;;To do: ;;-testvectors (in-package crypticl)

1 0

[crypticl-cvs] CVS update: crypticl/doc/ChangeLog crypticl/doc/README
by Taale Skogan 25 Nov '04

25 Nov '04

Update of /project/crypticl/cvsroot/crypticl/doc In directory common-lisp.net:/tmp/cvs-serv29823/doc Modified Files: ChangeLog README Log Message: Removed allegro specific excl: function. Still one left. Using aa instead of the norwegian character å in my name. Renamed various versions of TO DO: to To do: at the top of the files. Using TODO inside the source. Date: Thu Nov 25 22:56:49 2004 Author: tskogan Index: crypticl/doc/ChangeLog diff -u crypticl/doc/ChangeLog:1.9 crypticl/doc/ChangeLog:1.10 --- crypticl/doc/ChangeLog:1.9 Wed Nov 24 23:54:36 2004 +++ crypticl/doc/ChangeLog Thu Nov 25 22:56:49 2004 @@ -1,30 +1,41 @@ +25-11-2004 Taale Skogan<tasko(a)frisurf.no> + Removed allegro specific excl: function. Still one left. + Using aa instead of the norwegian character å in my name. + Renamed various versions of TO DO: to To do: at the top of the files. + Using TODO inside the source. + + * src/*: naming and TODO + * src/load.lisp: removed excl: + 2004-11-24 Tage Stabell-Kulo <tage(a)tagehome.pasta.cs.uit.no> * src/sha1.lisp: Added more verbose printout. * src/aes.lisp: Changed variable S to Sbox and T to tmp. -24-11-2004 Tåle Skogan<tasko(a)frisurf.no> +--------------------------------- TAG 0.1.0 ------------------------------- + +24-11-2004 Taale Skogan<tasko(a)frisurf.no> * doc/README: tag instructions. -23-11-2004 Tåle Skogan<tasko(a)frisurf.no> +23-11-2004 Taale Skogan<tasko(a)frisurf.no> * doc/README: new install instructions. -15-11-2004 Tåle Skogan<tasko(a)frisurf.no> +15-11-2004 Taale Skogan<tasko(a)frisurf.no> * src/crypticl-package.lisp: place load code in separate file. * src/load.lisp: load function. -14-11-2004 Tåle Skogan<tasko(a)frisurf.no> +14-11-2004 Taale Skogan<tasko(a)frisurf.no> Minor modifications to get Obol runtime to load. -07-11-2004 Tåle Skogan<tasko(a)frisurf.no> +07-11-2004 Taale Skogan<tasko(a)frisurf.no> Adding to USERGUIDE. -07-11-2004 Tåle Skogan<tasko(a)frisurf.no> +07-11-2004 Taale Skogan<tasko(a)frisurf.no> Refactoring key generation. Put key generation code in each algorithm and make the algorithm resonsible for registering the interface. Put KeyStore in separate file. -06-11-2004 Tåle Skogan<tasko(a)frisurf.no> +06-11-2004 Taale Skogan<tasko(a)frisurf.no> Cleaning up load. Completing renaming from CLC to Crypticl. * src/load.lisp: deleted. Functionality moved to crypticl-package.lisp. @@ -34,6 +45,6 @@ interface new-instance. * src/crypticl-package.lisp: Cleaning up load. -09-09-2004 Tåle Skogan<tasko(a)frisurf.no> +09-09-2004 Taale Skogan<tasko(a)frisurf.no> Using max column 80. * doc/README: max column 80. Index: crypticl/doc/README diff -u crypticl/doc/README:1.4 crypticl/doc/README:1.5 --- crypticl/doc/README:1.4 Wed Nov 24 09:27:31 2004 +++ crypticl/doc/README Thu Nov 25 22:56:49 2004 @@ -27,6 +27,9 @@ DEVELOPERS Document changes in the ChangeLog in addition to writing commit messages. Before commiting, check that the library loads correctly into a fresh top level (use (delete-package 'crypticl) and reload) and verify that the unit tests are successful. Tag with V_<major>_<minor>_<num>, like V_0_1_0, V_0_1_1, etc. +TODO +The file TODO is meant as a supplement to the various TODO comments in the source. + CHANGELOG See the file ChangeLog for the project change log.

1 0

[crypticl-cvs] CVS update: crypticl/src/aes.lisp crypticl/src/load.lisp crypticl/src/sha.lisp
by Tage Stabell-Kulo 24 Nov '04

24 Nov '04

Update of /project/crypticl/cvsroot/crypticl/src In directory common-lisp.net:/tmp/cvs-serv16331/src Modified Files: aes.lisp load.lisp sha.lisp Log Message: Changed variable T to tmp and S tom Sbox. Date: Wed Nov 24 23:54:40 2004 Author: tstabell Index: crypticl/src/aes.lisp diff -u crypticl/src/aes.lisp:1.3 crypticl/src/aes.lisp:1.4 --- crypticl/src/aes.lisp:1.3 Sun Nov 7 13:04:17 2004 +++ crypticl/src/aes.lisp Wed Nov 24 23:54:38 2004 @@ -63,7 +63,7 @@ 57 75 221 124 132 151 162 253 28 36 108 180 199 82 246 1) ) -(defconstant S +(defconstant Sbox #( 99 124 119 123 242 107 111 197 48 1 103 43 254 215 171 118 202 130 201 125 250 89 71 240 173 212 162 175 156 164 114 192 183 253 147 38 54 63 247 204 52 165 229 241 113 216 49 21 @@ -220,7 +220,7 @@ (ROUNDS (get-num-rounds (length key))) (tk (make-array (list 4 Nk))) (w (make-array (list (1+ ROUNDS) 4 NB))) - (T 0) + (tmp 0) (RCpointer 1) (key (change-key-format key Nk))) @@ -232,17 +232,17 @@ ;;Copy key into first slot in round key (for (col 0 Nk) (for (row 0 4) - (setf (aref w (floor T NB) row (mod T NB)) (aref tk row col))) - (incf T)) + (setf (aref w (floor tmp NB) row (mod tmp NB)) (aref tk row col))) + (incf tmp)) ;;Calculate as much round key material as we need. i counts 32 bits words. - (while (< T (* (1+ ROUNDS) NB)) + (while (< tmp (* (1+ ROUNDS) NB)) (for (i 0 4) (setf (aref tk i 0) (logxor (aref tk i 0) - (aref S (aref tk (mod (1+ i) 4) (1- Nk)))))) + (aref Sbox (aref tk (mod (1+ i) 4) (1- Nk)))))) (setf (aref tk 0 0) (logxor @@ -269,7 +269,7 @@ (setf (aref tk i 4) (logxor (aref tk i 4) - (aref S (aref tk i 3))))) + (aref Sbox (aref tk i 3))))) (for (j 5 Nk) (for (i 0 4) (setf (aref tk i j) @@ -280,9 +280,9 @@ ;;Copy values to round key (for (col 0 Nk) (for (row 0 4) - (setf (aref w (floor T NB) row (mod T NB)) + (setf (aref w (floor tmp NB) row (mod tmp NB)) (aref tk row col))) - (incf T))) + (incf tmp))) w)) @@ -303,14 +303,14 @@ (add-round-key state rk) (for (r 1 ROUNDS) - (sub-bytes state S) + (sub-bytes state Sbox) (shift-rows state t) (mix-columns state) (fill-rk r) (add-round-key state rk)) ;;Last round is special. No mix-columns - (sub-bytes state S) + (sub-bytes state Sbox) (shift-rows state t) (fill-rk ROUNDS) (add-round-key state rk)))) Index: crypticl/src/load.lisp diff -u crypticl/src/load.lisp:1.4 crypticl/src/load.lisp:1.5 --- crypticl/src/load.lisp:1.4 Sun Nov 14 20:56:29 2004 +++ crypticl/src/load.lisp Wed Nov 24 23:54:38 2004 @@ -9,6 +9,10 @@ ;;;; Author: Tåle Skogan <tasko(a)frisurf.no> ;;;; Distribution: See the accompanying file LICENSE. +;;To-do: +;;-port this to non-Allegro lisps. excl: is Allegro spesific. Clisp +;; chokes on the Norwegian charachter in Tåle (above). + (in-package cl-user) ;;(proclaim '(optimize (speed 2) (safety 1) (space 1) (debug 3))) Index: crypticl/src/sha.lisp diff -u crypticl/src/sha.lisp:1.2 crypticl/src/sha.lisp:1.3 --- crypticl/src/sha.lisp:1.2 Sun Nov 7 01:17:35 2004 +++ crypticl/src/sha.lisp Wed Nov 24 23:54:38 2004 @@ -47,6 +47,16 @@ (values (ldb (byte 32 32) message-length-in-bits) (ldb (byte 32 0) message-length-in-bits))) +(defun new-sha1-length64 (mess-len octet-vector start) + "Returns octet-vector after the interger mess-len has been encoded as eight bytes, high order bits first, starting at start" + (do ((char 56 (- char 8))) + ((> 0 char) + octet-vector) + (setf (aref octet-vector start) + (ldb (byte 8 char) mess-len)) + (incf start))) + + (defun sha-function-1 (x y z) (logior (logand x y)(logand (lognot x) z) )) @@ -372,7 +382,7 @@ "84983e441c3bd26ebaae4aa1f95129e5e54670f1") (list #300(2 2 2) "e697e7834a688d2c982003a312da660a17a0fc9d")))) - + (format t "Testing SHA-1.~%") (dolist (x test-list (format t "Short vectors OK.~%")) (let ((in (first x)) (ex (second x)))

1 0

[crypticl-cvs] CVS update: crypticl/doc/ChangeLog
by Tage Stabell-Kulo 24 Nov '04

24 Nov '04

Update of /project/crypticl/cvsroot/crypticl/doc In directory common-lisp.net:/tmp/cvs-serv16331/doc Modified Files: ChangeLog Log Message: Changed variable T to tmp and S tom Sbox. Date: Wed Nov 24 23:54:37 2004 Author: tstabell Index: crypticl/doc/ChangeLog diff -u crypticl/doc/ChangeLog:1.8 crypticl/doc/ChangeLog:1.9 --- crypticl/doc/ChangeLog:1.8 Wed Nov 24 09:27:31 2004 +++ crypticl/doc/ChangeLog Wed Nov 24 23:54:36 2004 @@ -1,5 +1,8 @@ +2004-11-24 Tage Stabell-Kulo <tage(a)tagehome.pasta.cs.uit.no> + + * src/sha1.lisp: Added more verbose printout. + * src/aes.lisp: Changed variable S to Sbox and T to tmp. --------------------------------- 0.1.0 -------------------------------------- 24-11-2004 Tåle Skogan<tasko(a)frisurf.no> * doc/README: tag instructions.

1 0

[crypticl-cvs] CVS update: crypticl/doc/ChangeLog crypticl/doc/README
by Taale Skogan 24 Nov '04

24 Nov '04

Update of /project/crypticl/cvsroot/crypticl/doc In directory common-lisp.net:/tmp/cvs-serv31173/doc Modified Files: ChangeLog README Log Message: Tagging version 0.1.0 and using tags in ChangeLog. Date: Wed Nov 24 09:27:31 2004 Author: tskogan Index: crypticl/doc/ChangeLog diff -u crypticl/doc/ChangeLog:1.7 crypticl/doc/ChangeLog:1.8 --- crypticl/doc/ChangeLog:1.7 Tue Nov 23 22:19:17 2004 +++ crypticl/doc/ChangeLog Wed Nov 24 09:27:31 2004 @@ -1,3 +1,8 @@ + +-------------------------------- 0.1.0 -------------------------------------- +24-11-2004 Tåle Skogan<tasko(a)frisurf.no> + * doc/README: tag instructions. + 23-11-2004 Tåle Skogan<tasko(a)frisurf.no> * doc/README: new install instructions. Index: crypticl/doc/README diff -u crypticl/doc/README:1.3 crypticl/doc/README:1.4 --- crypticl/doc/README:1.3 Tue Nov 23 22:19:18 2004 +++ crypticl/doc/README Wed Nov 24 09:27:31 2004 @@ -25,7 +25,7 @@ See the user guide in the file USERGUIDE. DEVELOPERS -Document changes in the ChangeLog in addition to writing commit messages. Before commiting, check that the library loads correctly into a fresh top level (use (delete-package 'crypticl) and reload) and verify that the unit tests are successful. +Document changes in the ChangeLog in addition to writing commit messages. Before commiting, check that the library loads correctly into a fresh top level (use (delete-package 'crypticl) and reload) and verify that the unit tests are successful. Tag with V_<major>_<minor>_<num>, like V_0_1_0, V_0_1_1, etc. CHANGELOG See the file ChangeLog for the project change log.

1 0

[crypticl-cvs] CVS update: obol/doc/ChangeLog
by Taale Skogan 23 Nov '04

23 Nov '04

Update of /project/crypticl/cvsroot/obol/doc In directory common-lisp.net:/tmp/cvs-serv27787 Added Files: ChangeLog Log Message: Adding ChangeLog. Date: Tue Nov 23 22:56:21 2004 Author: tskogan

1 0

[crypticl-cvs] CVS update: Module imported: obol
by Taale Skogan 23 Nov '04

23 Nov '04

Update of /project/crypticl/cvsroot/obol In directory common-lisp.net:/tmp/cvs-serv26937 Log Message: initial import Status: Vendor Tag: tskogan Release Tags: start N obol/doc/README N obol/doc/TODO N obol/src/chat.lisp N obol/src/lib-chat.lisp N obol/src/LICENSE N obol/src/load.lisp N obol/src/lobo.lisp N obol/src/packages.lisp N obol/src/util.lisp N obol/src/prog/chat-auth-a.obol N obol/src/prog/chat-auth-b.obol N obol/src/prog/chat-auth-s.obol N obol/src/prog/chat-receive.obol N obol/src/prog/chat-send.obol N obol/src/prog/Denning-Sacco-a.obol N obol/src/prog/Denning-Sacco-b.obol N obol/src/prog/Denning-Sacco-s.obol N obol/src/prog/DH.key N obol/src/prog/diffie-hellman.obol N obol/src/prog/dsapriv.key N obol/src/prog/dsapub.key N obol/src/prog/eke-a.obol N obol/src/prog/eke-b.obol N obol/src/prog/K512a-1.key N obol/src/prog/K512a.key N obol/src/prog/K512b-1.key N obol/src/prog/K512b.key N obol/src/prog/Kas.key N obol/src/prog/Kbs.key N obol/src/prog/kerberos-c.obol N obol/src/prog/kerberos-kdc.obol N obol/src/prog/kerberos-server.obol N obol/src/prog/Ks.key N obol/src/prog/Ku.key N obol/src/prog/lib-chat-auth-a.obol N obol/src/prog/lib-chat-auth-b.obol N obol/src/prog/lib-chat-auth-s.obol N obol/src/prog/lib-chat-receive.obol N obol/src/prog/lib-chat-send.obol N obol/src/prog/needham-schroeder-a.obol N obol/src/prog/needham-schroeder-b.obol N obol/src/prog/needham-schroeder-s.obol N obol/src/prog/otway-rees-a.obol N obol/src/prog/otway-rees-b.obol N obol/src/prog/otway-rees-s.obol N obol/src/prog/pgp-a.obol N obol/src/prog/pgp-b.obol N obol/src/prog/pgp-keyserver.obol N obol/src/prog/test.obol N obol/src/prog/wide-mouthed-frog-a.obol N obol/src/prog/wide-mouthed-frog-b.obol N obol/src/prog/wide-mouthed-frog-s.obol N obol/src/prog/yahalom-a.obol N obol/src/prog/yahalom-b.obol N obol/src/prog/yahalom-s.obol No conflicts created by this import Date: Tue Nov 23 22:43:43 2004 Author: tskogan New module obol added

1 0

[crypticl-cvs] CVS update: crypticl/doc/ChangeLog crypticl/doc/README
by Taale Skogan 23 Nov '04

23 Nov '04

Update of /project/crypticl/cvsroot/crypticl/doc In directory common-lisp.net:/tmp/cvs-serv25741/doc Modified Files: ChangeLog README Log Message: New install instructions. Date: Tue Nov 23 22:19:18 2004 Author: tskogan Index: crypticl/doc/ChangeLog diff -u crypticl/doc/ChangeLog:1.6 crypticl/doc/ChangeLog:1.7 --- crypticl/doc/ChangeLog:1.6 Sun Nov 14 20:56:27 2004 +++ crypticl/doc/ChangeLog Tue Nov 23 22:19:17 2004 @@ -1,3 +1,6 @@ +23-11-2004 Tåle Skogan<tasko(a)frisurf.no> + * doc/README: new install instructions. + 15-11-2004 Tåle Skogan<tasko(a)frisurf.no> * src/crypticl-package.lisp: place load code in separate file. * src/load.lisp: load function. Index: crypticl/doc/README diff -u crypticl/doc/README:1.2 crypticl/doc/README:1.3 --- crypticl/doc/README:1.2 Mon Sep 20 21:30:33 2004 +++ crypticl/doc/README Tue Nov 23 22:19:18 2004 @@ -2,8 +2,7 @@ Crypticl is a library of cryptographic functions written in Common Lisp. The goal is to provide flexible, high level cryptographic abstractions on top of -a kernel of core cryptographic primitives. It is distributed under an -MIT-style license (see the LICENSE file). +a kernel of core cryptographic primitives. It is distributed under a MIT-style license (see the LICENSE file). The library will be limited to common, secure algorithms and not try to implement all available cryptographic algorithms. Hence AES is included and @@ -13,22 +12,23 @@ http://common-lisp.net/project/crypticl/ INSTALL -The library can be loaded by loading the file crypticl-package.lisp. This file - will call a function that loads the library and runs unit tests. The load -function by default assumes that the source is located in the current -directory. The default should be changed to fit applications using the library. +The library can be loaded by loading the file "load.lisp". This file + will load the library and run unit tests. -ex: (load "crypticl-package.lisp") +ex: (load "C:\\crypticl\\src\\load") -The library has only been tested on Allegro 6.2 and may by oversight still +The library has only been tested with Allegro 6.2 and may by oversight still contain some Allegro specific functions, but the bulk of the code should work -on all Common Lisp platforms. +on all Common Lisp implementations. DOCUMENTATION See the user guide in the file USERGUIDE. +DEVELOPERS +Document changes in the ChangeLog in addition to writing commit messages. Before commiting, check that the library loads correctly into a fresh top level (use (delete-package 'crypticl) and reload) and verify that the unit tests are successful. + CHANGELOG -See the file CHANGELOG for the project change log. +See the file ChangeLog for the project change log. CREDITS Tage Stabell-Kulø

1 0

[crypticl-cvs] CVS update: crypticl/src/load.lisp crypticl/src/crypticl-package.lisp crypticl/src/keystore.lisp crypticl/src/test.lisp
by Taale Skogan 14 Nov '04

14 Nov '04

Update of /project/crypticl/cvsroot/crypticl/src In directory common-lisp.net:/tmp/cvs-serv21733/src Modified Files: crypticl-package.lisp keystore.lisp test.lisp Added Files: load.lisp Log Message: Changing loading. Date: Sun Nov 14 20:56:30 2004 Author: tskogan Index: crypticl/src/load.lisp diff -u /dev/null crypticl/src/load.lisp:1.4 --- /dev/null Sun Nov 14 20:56:30 2004 +++ crypticl/src/load.lisp Sun Nov 14 20:56:29 2004 @@ -0,0 +1,42 @@ +;;;;-*-lisp-*- +;;;; The Crypticl cryptographic library. +;;;; +;;;; Description: Loads the library. +;;;; +;;;; Usage: Loading this file will load the rest of the library. +;;;; After loading you can list the public interface with +;;;; (crypticl:print-external-symbols) from the top-level. +;;;; Author: Tåle Skogan <tasko(a)frisurf.no> +;;;; Distribution: See the accompanying file LICENSE. + +(in-package cl-user) + +;;(proclaim '(optimize (speed 2) (safety 1) (space 1) (debug 3))) + + +;; Load library. If fast-load is true, do quick load without recompiling. +;; NB! The order of the file names in the list matter. +(let ((fast-load t) + (files '("crypticl-package" + "utilities" + "numtheory" + "common" + "sha" ;used by random + "random" + "keygenerator" + "md5" "aes" "idea" "dsa" "rsa" "diffie-hellman" + "keystore" + "test"))) + (format t "Loading the Crypticl library...") + (dolist (file files) + (let* ((path + (make-pathname + :device (pathname-device *load-pathname*) + :directory (directory-namestring *load-pathname*))) + (module (merge-pathnames file path))) + (if fast-load + (excl::compile-file-if-needed module) + (compile-file module :verbose nil)) + (load module)))) + + Index: crypticl/src/crypticl-package.lisp diff -u crypticl/src/crypticl-package.lisp:1.5 crypticl/src/crypticl-package.lisp:1.6 --- crypticl/src/crypticl-package.lisp:1.5 Sun Nov 14 00:10:39 2004 +++ crypticl/src/crypticl-package.lisp Sun Nov 14 20:56:29 2004 @@ -55,34 +55,3 @@ decrypt print-external-symbols)) -;;(proclaim '(optimize (speed 2) (safety 1) (space 1) (debug 3))) -(in-package crypticl) - -(defun load-package (&optional (path "") (fast-load nil)) - "Load library. Default src location is current directory. If fast-load is true, do quick load without recompiling and running unit tests." - - (format t "Loading the Crypticl library...") - ;; NB! The order of the file names in the list matter. - (let ((files '("utilities" - "numtheory" - "common" - "sha" ;used by random - "random" - "keygenerator" - "md5" "aes" "idea" "dsa" "rsa" "diffie-hellman" - "keystore" - "test"))) - (dolist (file files) - (let ((module (concatenate 'string path file))) - (if fast-load - (excl::compile-file-if-needed module) - (compile-file module :verbose nil)) - (load module))) - - (unless fast-load - (run-tests)))) - - -;;(load-package) - - Index: crypticl/src/keystore.lisp diff -u crypticl/src/keystore.lisp:1.1 crypticl/src/keystore.lisp:1.2 --- crypticl/src/keystore.lisp:1.1 Sun Nov 7 13:04:17 2004 +++ crypticl/src/keystore.lisp Sun Nov 14 20:56:29 2004 @@ -43,7 +43,7 @@ (parse-integer (nth 3 tokens)) (parse-integer (nth 4 tokens)))) -|# +#| "Tåle Skogan" "tasko(a)stud.cs.uit.no" - first line RSAPublicKey "22ffee" 5 119 - one line per key RSAPrivateKey "22ffee" 77 119 @@ -52,7 +52,7 @@ RSAPublicKey "1234ffee" 3533 11413 RSAPrivateKey "4321ffee" 6597 11413 **** -#| +|# (defun new-user (line) (string= (string-trim " " line ) "****")) @@ -142,7 +142,7 @@ "Retrieves key" (gethash fingerprint (ht obj))) -|# +#| "Tåle Skogan" "tasko(a)stud.cs.uit.no" - first line RSAPublicKey "22ffee" 5 119 - one line per key RSAPrivateKey "22ffee" 77 119 @@ -151,7 +151,7 @@ RSAPublicKey "1234ffee" 3533 11413 RSAPrivateKey "4321ffee" 6597 11413 **** -#| +|# (defmethod write-to-file ((obj KeyStore) &optional (filename (path obj))) (with-open-file (str filename :direction :output :if-exists :supersede) Index: crypticl/src/test.lisp diff -u crypticl/src/test.lisp:1.2 crypticl/src/test.lisp:1.3 --- crypticl/src/test.lisp:1.2 Sun Nov 7 01:17:35 2004 +++ crypticl/src/test.lisp Sun Nov 14 20:56:29 2004 @@ -53,4 +53,6 @@ (test-AES) (test-RSA) (test-IDEA) - (test-DSA)) \ No newline at end of file + (test-DSA)) + +(run-tests) \ No newline at end of file

1 0