Adding upstream version 4.99.4.upstream/4.99.4upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 24 insertions, 0 deletions

diff --git a/tests/setkey2esp-secrets.pl b/tests/setkey2esp-secrets.pl
new file mode 100755
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;
+	}
+}