summaryrefslogtreecommitdiffstats
path: root/tests/setkey2esp-secrets.pl
blob: 92fa3856be83f71fda377efd2096d2f54c0af728 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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;
	}
}