From 7adcb5b605cc1328a3084c334f4697ec9771936c Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Mon, 15 Apr 2024 19:13:01 +0200
Subject: Adding upstream version 4.99.4.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 tests/setkey2esp-secrets.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 tests/setkey2esp-secrets.pl

(limited to 'tests/setkey2esp-secrets.pl')

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;
+	}
+}
-- 
cgit v1.2.3