convert KAME "setkey -D" to esp-secrets-file

This resolves GitHub issue #26 completely.

diff --git a/tests/setkey2esp-secrets.pl b/tests/setkey2esp-secrets.pl
new file mode 100755 (executable)
index 0000000..92fa385
--- /dev/null
+++ b/tests/setkey2esp-secrets.pl
@@ -0,0 +1,24 @@
+#!/usr/local/bin/perl
+#
+# usage:
+#      setkey -D | perl thisfile > secrets.txt
+#      tcpdump -n -E "file secrets.txt"
+#
+while (<>) {
+       if (/^(\S+)\s+(\S+)/) {
+               $src = $1;
+               $dst = $2;
+               next;
+       }
+       if (/^\s+esp.*spi=(\d+)/) {
+               $spi = $1;
+               next;
+       }
+       if (/^\s+E:\s+(\S+)\s+(.*)$/) {
+               $algo = $1. "-hmac96";
+               ($secret = $2) =~ s/\s+//g;
+
+               printf"0x%x@%s %s:0x%s\n", $spi, $dst, $algo, $secret;
+               next;
+       }
+}