File Manager

003 File Manager

Current Path: /usr/src/sbin/setkey

📁 ..
📄 Makefile(2.33 KB)
📄 Makefile.depend(357 B)
📄 parse.y(27.55 KB)
📄 sample.cf(8.06 KB)
📄 scriptdump.pl(1.19 KB)
📄 setkey.8(15.15 KB)
📄 setkey.c(13.42 KB)
📄 test-pfkey.c(13.37 KB)
📄 test-policy.c(4.39 KB)
📄 token.l(7.59 KB)
📄 vchar.h(1.72 KB)

Editing: scriptdump.pl

#! @LOCALPREFIX@/bin/perl
# $FreeBSD$

if ($< != 0) {
	print STDERR "must be root to invoke this\n";
	exit 1;
}

$mode = 'add';
while ($i = shift @ARGV) {
	if ($i eq '-d') {
		$mode = 'delete';
	} else {
		print STDERR "usage: scriptdump [-d]\n";
		exit 1;
	}
}

open(IN, "setkey -D |") || die;
foreach $_ (<IN>) {
	if (/^[^\t]/) {
		($src, $dst) = split(/\s+/, $_);
	} elsif (/^\t(esp|ah) mode=(\S+) spi=(\d+).*reqid=(\d+)/) {
		($proto, $ipsecmode, $spi, $reqid) = ($1, $2, $3, $4);
	} elsif (/^\tE: (\S+) (.*)/) {
		$ealgo = $1;
		$ekey = $2;
		$ekey =~ s/\s//g;
		$ekey =~ s/^/0x/g;
	} elsif (/^\tA: (\S+) (.*)/) {
		$aalgo = $1;
		$akey = $2;
		$akey =~ s/\s//g;
		$akey =~ s/^/0x/g;
	} elsif (/^\tseq=(0x\d+) replay=(\d+) flags=(0x\d+) state=/) {
		print "$mode $src $dst $proto $spi";
		$replay = $2;
		print " -u $reqid" if $reqid;
		if ($mode eq 'add') {
			print " -m $ipsecmode -r $replay" if $replay;
			if ($proto eq 'esp') {
				print " -E $ealgo $ekey" if $ealgo;
				print " -A $aalgo $akey" if $aalgo;
			} elsif ($proto eq 'ah') {
				print " -A $aalgo $akey" if $aalgo;
			}
		} 
		print ";\n";

$src = $dst = $upper = $proxy = '';
		$ealgo = $ekey = $aalgo = $akey = '';
	}
}
close(IN);

exit 0;

003 File Manager

Editing: scriptdump.pl

Upload File

Create Folder