Tcpdump2ascii
This commit is contained in:
parent
7d45fbce12
commit
f01cfd596d
|
@ -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
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue