--- /dev/null
+#! /bin/sh
+
+prog=`echo $0 | sed 's:.*/::'`
+alg=${1?}; shift
+lc=`echo $alg | tr A-Z a-z`
+
+cat <<EOF
+# Test vectors for $alg
+#
+# Generated on `date +%Y-%m-%d` by $prog
+
+$lc {
+EOF
+
+awk "$@" '
+function mangle(x, y) {
+ if (!rev)
+ return x;
+ y = "";
+ while (length(x) > 1) {
+ y = y substr(x, length(x) - 1);
+ x = substr(x, 1, length(x) - 2);
+ }
+ return y;
+}
+
+BEGIN { FS = "="; }
+/^KEY=/ { key = mangle($2); }
+/^PT=/ { pt = mangle($2); }
+/^CT=/ {
+ ct = mangle($2);
+ printf(" %s\n %s\n %s;\n", key, pt, ct);
+}
+'
+echo }
+