如何修改报文的目的MAC地址？

Question

我有一个与 Perl 中非常基本的事情相关的问题，但我无法找到有效的解决方案。

首先是一些背景信息。 我使用 Net::Pcap 等，当我在处理函数时数据包（由 pcap_loop 使用）我得到一个 $packet 标量，其中包含我的整个数据包（以太网标头 + ip 标头 + tcp/udp 标头 + 有效负载）。

我想要做的是更改此 $packet （以太网目的地）的前 6 个字节，以获得可以使用 发送的 $packet pcap_sendpacket，使用用户定义的目标 MAC 地址（例如作为命令行参数传递等），例如 00:11:22:33:44:55。 因此，我可以分割用户定义的地址（例如使用 split）来获取目标 mac 地址的每 6 个部分，并使用 hex 函数将其转换为十六进制，但是现在我想修改数据包的第一个字节，以将它们替换为这些十六进制字节。 我应该如何进行？

我想过使用一些串联（.），但我认为这个解决方案很脏。

用 C 思考（因为我前段时间用 C 做过，但我希望用 Perl 完成），一旦我得到了“u_char packet[]”，我只需要做一个 <将用户提供的以太网地址的 code>memcpy 复制到 packet[] 的前 6 个字节，结果成功了。

Answer 1

tcprewrite --enet-dmac=00:07:0d:0b:98:00 -i orignalmac.pcap -o newmac.pcap

Answer 2

看一下 substr() 中的描述perldoc perlfunc。 它有四参数形式，可以让您替换标量的一部分：

substr EXPR, OFFSET, LENGTH, REPLACEMENT

所以像这样的东西应该适合您：

substr $packet, 0, 6, $new_header

Answer 3

vec 函数用于处理标量值作为位向量。

use strict;
use warnings;

my $packet;
# set packet to something...

my $address = '00:11:22:33:44:55';
my @bytes   = map { hex } split(/:/, $address);
for my $i (0 .. $#bytes) {
    vec($packet, $i, 8) = $bytes[$i];
}