Translate PSS tests to mLib format.

diff --git a/utils/psstest-xlate.lisp b/utils/psstest-xlate.lisp
new file mode 100644 (file)
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))