1*05b00f60SXin Li#!/usr/local/bin/perl 2*05b00f60SXin Li# 3*05b00f60SXin Li# usage: 4*05b00f60SXin Li# setkey -D | perl thisfile > secrets.txt 5*05b00f60SXin Li# tcpdump -n -E "file secrets.txt" 6*05b00f60SXin Li# 7*05b00f60SXin Liwhile (<>) { 8*05b00f60SXin Li if (/^(\S+)\s+(\S+)/) { 9*05b00f60SXin Li $src = $1; 10*05b00f60SXin Li $dst = $2; 11*05b00f60SXin Li next; 12*05b00f60SXin Li } 13*05b00f60SXin Li if (/^\s+esp.*spi=(\d+)/) { 14*05b00f60SXin Li $spi = $1; 15*05b00f60SXin Li next; 16*05b00f60SXin Li } 17*05b00f60SXin Li if (/^\s+E:\s+(\S+)\s+(.*)$/) { 18*05b00f60SXin Li $algo = $1. "-hmac96"; 19*05b00f60SXin Li ($secret = $2) =~ s/\s+//g; 20*05b00f60SXin Li 21*05b00f60SXin Li printf"0x%x@%s %s:0x%s\n", $spi, $dst, $algo, $secret; 22*05b00f60SXin Li next; 23*05b00f60SXin Li } 24*05b00f60SXin Li} 25