From 85bd695090dbecdca2d4562927d09b0fd88317be Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Tue, 13 Sep 2005 15:24:30 +0000
Subject: [PATCH] Translate PSS tests to mLib format.

---
 utils/psstest-xlate.lisp | 69 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100644 utils/psstest-xlate.lisp

diff --git a/utils/psstest-xlate.lisp b/utils/psstest-xlate.lisp
new file mode 100644
index 0000000..47930f5
--- /dev/null
+++ b/utils/psstest-xlate.lisp
@@ -0,0 +1,69 @@
+;;; blah
+
+(cl-interpol:enable-interpol-syntax)
+
+(loop
+   for (mech hashsz hash) in '((sha1ppss 160 sha)
+				   (sha256ppss 256 sha256)
+				   (sha384ppss 384 sha384)
+				   (sha512ppss 512 sha512))
+   do (setf (get mech 'hashsz) hashsz)
+      (setf (get mech 'hash) hash))
+
+(defun skip-blank-lines (stream)
+  (loop
+     (let ((ch (read-char stream nil nil)))
+       (case ch
+	 (nil (return nil))
+	 (#\newline nil)
+	 (t (unread-char ch stream)
+	    (return t))))))
+
+(defun parse-stanza (stream)
+  (flet ((parse-header ()
+	   (let ((head (read-line stream nil nil)))
+	     (and head
+		  (cl-ppcre:register-groups-bind
+		      (mech (#'parse-integer nbits))
+		      (#?/^(\w+),\s+mod(?:size|len)\s+(\d+)/ ;|)
+		       head :sharedp t)
+		    (values (intern (string-upcase mech)) nbits)))))
+	 (check-banner (banner)
+	   (let ((line (read-line stream)))
+	     (unless (string= line banner)
+	       (error "missing banner line `~A' (found `~A')" banner line))))
+	 (parse-hexgorp (bits)
+	   (with-output-to-string (gorp)
+	     (loop
+		(unless (plusp bits)
+		  (return))
+		(let ((line (read-line stream)))
+		  (when (string= line "")
+		    (return))
+		  (unless (cl-ppcre:scan #?/^[0-9A-F-a-f\s]+$/ line)
+		    (error "bad hex string `~A'" line))
+		  (setf line (cl-ppcre:regex-replace-all #?/\s+/ line ""))
+		  (decf bits (* 4 (length line)))
+		  (princ line gorp))))))
+    (skip-blank-lines stream)
+    (multiple-value-bind (mech nbits) (parse-header)
+      (when mech
+	(let (hash out)
+	  (check-banner "Input data is")
+	  (setf hash (parse-hexgorp (get mech 'hashsz)))
+	  (check-banner "Padded output is")
+	  (setf out (parse-hexgorp nbits))
+	  (format t "~
+~(  ~A
+    0x~A
+    \"~A\" 0 \"\"
+    ~A-mgf ~:*~A ~A~)~%"
+                  nbits
+		  out
+		  hash
+		  (get mech 'hash)
+		  (get mech 'hashsz))
+	  t)))))
+		  
+(with-open-file (str "/tmp/mdw/psstests")
+  (parse-stanza str))
-- 
2.11.0