[crypticl-cvs] CVS obol/src

[tskogan]

Update of /project/crypticl/cvsroot/obol/src
In directory clnet:/tmp/cvs-serv15698

Modified Files:
	lobo.lisp 
Log Message:
Upgrade to new SHA-1 name in crypticl 0.2.


--- /project/crypticl/cvsroot/obol/src/lobo.lisp	2005/10/02 14:17:55	1.2
+++ /project/crypticl/cvsroot/obol/src/lobo.lisp	2007/02/17 12:38:19	1.3
@@ -976,7 +976,7 @@
 	 (signer 
 	  (typecase key
 	    (clc:RSAPrivateKey
-	     (clc:new-instance "SHA1withRSA"))
+	     (clc:new-instance "SHA-1withRSA"))
 	    (t (clc:new-instance (clc:algorithm key)))))) 
     (f1 t "~&eval-sign: key=~A" key)
     (f1 t "~&eval-sign: data to sign=~A" var)
@@ -1000,7 +1000,7 @@
 	 (verifier
 	  (typecase key
 	    (clc:RSAPublicKey
-	     (clc:new-instance "SHA1withRSA"))
+	     (clc:new-instance "SHA-1withRSA"))
 	    (t (clc:new-instance (clc:algorithm key))))))
 	 
     ;; Transform signature to list form