Tcpdump2ascii

This commit is contained in:
hjp 2001-02-06 11:12:10 +00:00
parent 7d45fbce12
commit f01cfd596d
1 changed files with 16 additions and 0 deletions

16
tcpdump_tools/tcpdump2ascii Executable file
View File

@ -0,0 +1,16 @@
#!/usr/bin/perl
while(<>) {
if (/^\t\t\t( [0-9a-f]{2,4})+$/) {
@hex = split;
foreach $i (@hex) {
@c = pack("H4", $i);
foreach $j (@c) {
print "$j";
}
}
print "\n";
} else {
print
}
}