Perl Net:：Pcap十六进制转储数据包会话

下面的信息由模块生成，用于打印捕获中感兴趣的数据包的有效负载

下面的数据是在Perl中捕获的Windows可执行文件的摘录

我希望能够将所有十六进制数据输出捕获到一个文件或变量中，以评估文件下载的会话数据，同时保持十六进制转储的完整性

我遇到的问题是，下载文件时产生的每个数据包都会产生一个十六进制转储输出。下面的输出很容易看出这一点，即字符串“Payload”I print per packet/hex dump output

我想将给定文件下载会话的所有相关数据绑定在一起。如何在Perl中实现这一点

Payload:HTTP/1.1 200 OK
Date: Fri, 15 Jun 2012 02:31:32 GMT
Server: Apache
Last-Modified: Sat, 10 Dec 2011 13:38:37 GMT
ETag: "dc44da-4d000-4b3bd04c7a2f1"
Accept-Ranges: bytes
Content-Length: 315392
Keep-Alive: timeout=15, max=99
Connection: Keep-Alive
Content-Type: application/x-msdos-program

MZ<90>^@^C^@^@^@^D^@^@^@<FF><FF>^@^@<B8>^@^@^@^@^@^@^@@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@<F8>^@^@^@^N^_<BA>^N^@<B4> <CD>!<B8>^AL<CD>!This program cannot be run in DOS mode.^M
$^@^@^@^@^@^@^@4^TGmpu)>pu)>pu)>c}@>ru)>uyI>ru)>uy&>ku)>c}t>ru)><F3>}t>uu)>pu(>
u)>uyv><DA>u)><9C>~w>qu)>uys>qu)>Richpu)>^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@PE^@^@L^A^D^@^_R<E3>N^@^@^@^@^@^@^@^@<E0>^@^O^A^K^A^G
^@<80>^C^@^@<90>^A^@^@^@^@^@g^F^C^@^@^P^@^@^@<90>^C^@^@^@@^@^@^P^@^@^@^P^@^@^D^@^@^@^@^@^@^@^D^@^@^@^@^@^@^@^@ ^E^@^@^P^@^@^@^@^@^@^C^@^@^@^@^@^P^@^@^P^@^@^@^@^P^@^@^P^@^@^@^@^@^@^P^@^@^@^@^@^@^@^@^@^@^@<A8><91>^D^@P^@^@^@^@^@^E^@<C8>^T^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@@<91>^D^@H^@^@^@^@^@^@^@^@^@^@^@^@<90>^C^@<D0>^A^@^@^@^@^@^@^@^@
^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@.text^@^@^@As^C^@^@^P^@^@^@<80>^C^@^@^P^@^@^@^@^@^@^@^@^@^@^@^@^@^@ ^@^@`.rdata^@^@<C2>^K^A^@^@<90>^C^@^@^P^A^@^@<90>^C^@^@^@^@^@^@^@^@^@^@^@^@^@@^@^@@.data^@^@^@D]^@^@^@<A0>^D^@^@^P^@^@^@<A0>^D^@^@^@^@^@^@^@^@^@^@^@^@^@@^@^@<C0>.rsrc^@^@^@<C8>^T^@^@^@^@^E^@^@ ^@^@^@<B0>^D^@^@^@^@^@^@^@^@^@^@^@^@^@@^@^@@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@Payload:^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^

打印输出：

十六进制有效载荷：0x0000:47 45 54 20 2F 6D 61 63 2F 5F 62 61 73 65 5F 76:GET./mac/_base_v 0x0010:31 2F 73 63 72 69 70 74 2F 6A 71 75 65 72 79 2D:1/script/jquery- 0x0020:31 2E 36 2E 31 2E 6A 73 20 48 54 50 2F 31 2E:1.6.1.js.HTTP/1。 0x0030:31 0D 0A 48 6F 73 74 3A 20 77 77 2E 6D 69 63:1..主机：。www.mic.com 0x0040:72 6F 73 6F 66 74 2E 63 6F 6D 0D 0A 55 73 65 72:rosoft.com..用户 0x0050:2D 41 67 65 6E 74 3A 20 4D 6F 7A 69 6C 6C 61 2F:-代理：Mozilla/ 0x0060:35 2E 30 20 28 4D 61 63 69 6E 74 6F 73 68 3B 20:5.0（Macintosh；）；。 0x0070:49 6E 74 65 6C 20 4D 61 63 20 4F 53 20 58 20 31:Intel.Mac.OS.X.1 0x0080:30 2E 36 3B 20 72 76 3A 31 33 2E 30 29 20 47 65:0.6；.rv:13.0） 0x0090:63 6B 6F 2F 32 30 31 20 46 69 72:cko/20100101.Fir 0x00A0:65 66 6F 78 2F 31 33 2E 30 0D 0A 41 63 65 70:efox/13.0..Accep 0x00B0:74 3A 20 2A 2F 2A 0D 0A 41 63 65 70 74 2D 4C:t:./…接受-L 0x00C0:61 6E 67 75 61 67 65 3A 20 65 6E 2D 75 73 2C 65:语言：美国英语，英语 0x00D0:6E 3B 71 3D 30 2E 35 0D 0A 41 63 65 70 74 2D:n；q=0.5..接受- 0x00E0:45 6E 63 6F 64 69 6E 67 3A 20 67 7A 69 70 2C 20:编码：.gzip，。 0x00F0:64 65 66 6C 61 74 65 0D 0A 52 65 66 72:放气..参考 0x0100:3A 20 68 74 74 70 3A 2F 2F 77 77 2E 6D 69 63:：。http://www.mic 0x0110:72 6F 73 6F 66 74 2E 63 6F 6D 2F 6D 61 63 2F 72:rosoft.com/mac/r 0x0120:65 6D 6F 74 65 2D 64 65 73 6B 74 6F 70 2D 63 6C:emote桌面cl 0x0130:69 65 6E 74 0D 0A 44 4E 54 3A 20 31 0D 0A 43 6F:Client..DNT:.1..Co 0x0140:6E 6E 65 63 74 69 6F 6E 3A 20 6B 65 70 2D 61:连接：.keep-a 0x0150:6C 69 76 65 0D 0A 0D 0A 00 00:live。。。。。。。。。。。。 十六进制有效负载：0x0000:48 54 54 50 2F 31 2E 31 20 32 30 20 4F 4B 0D:HTTP/1.1.200.OK。 0x0010:0A 43 61 63 68 65 2D 43 6F 6E 74 72 6F 6C 3A 20:。缓存控制：。 0x0020:6D 61 78 2D 61 67 65 3D 39 30 30 0D 0A 43 6F 6E:最大年龄=900..Con 0x0030:74 65 6E 74 2D 54 79 70 65 3A 20 61 70 6C 69:帐篷类型：。应用 0x0040:63 61 74 69 6F 6E 2F 78 2D 6A 61 76 61 73 63 72:阳离子/x-javascr 0x0050:69 70 74 0D 0A 43 6F 6E 74 65 6E 74 2D 45 6E 63:ipt..内容附件 0x0060:6F 64 69 6E 67 3A 20 67 7A 69 70 0D 0A 4C 61 73:编码：.gzip..Las 0x0070:74 2D 4D 6F 64 69 66 69 64 3A 20 57 65 64 2C:t-Modified:.Wed， 0x0080:20 30 38 20 4A 75 6E 20 32 30 31 20 31 38 3A:.08.Jun.2011.18： 0x0090:34 35 3A 34 39 20 47 4D 54 0D 0A 41 63 65 70:45:49.GMT接受

看看

此模块在libpcap中执行碎片数据报的重新组装 Net:：Pcap loop（）函数返回的数据包捕获数据

---

谢谢你，博罗丁。我会检查这个模块，如果我有进一步的问题，请告诉你。嗨，博罗丁，我已经根据您的建议更新了问题，并提供了代码片段和我使用重新组装模块得到的输出。它不能正常工作，这显然是因为我不熟悉使用这个模块。你能帮忙吗？谢谢

my $user_data;
my $header;
my $packet;    
my $err ='';
my $pcap = Net::Pcap::open_offline("./pcap", \$err) or die "can't open ./pcap...$err\n";
Net::Pcap::loop($pcap, -1, \&process_pkt, '');
Net::Pcap::Reassemble::loop($pcap, -1, \&rend_callback, '');
Net::Pcap::close($pcap);

my $ip;
my $tcp;
my $payload;
sub process_pkt   
{
my ($user_data,$header, $packet) = @_;
$ip = NetPacket::IP->decode(eth_strip($packet));
$tcp = NetPacket::TCP->decode($ip->{data});
$payload = $tcp->{data};

my $hexPayload = hexdump(data => $payload, start_position => 0) if length $payload;
print "Hex Payload:". $hexPayload;
}