如何在 Net::RawIP 中设置 tcp 选项（MSS 值）

Question

在使用 Net::RawIP 时，我可以将最大段大小设置为某个值吗？

我正在尝试以下代码，但不知道如何将 TCP 选项中的 MSS 值设置为自定义值。

#!/usr/bin/perl

use Net::RawIP;

$packet = new Net::RawIP;

$packet->set({
    ip  => {
        saddr => '192.168.122.128',
        daddr => '192.168.122.1'
    },
    tcp => { source => 2323,
        dest    => 8080,
        syn     => 1,
        seq     => 100,
        ack_seq => 0,
        data    => 'hello world'
    }
});

$packet->optset(tcp => { type => [ (2) ], data => [ (10) ] });

$packet->send(0, 1); 

Answer 1

根据documentation：

optset(OPTPROTO => { type => [...],data => [...] },...)

[...] 数据的值也是一个数组引用。这个数组必须用 strings 填充，它必须包含选项中的所有字节，除了具有选项类型和长度的字节。

（强调）

您正在传递对整数数组的引用；您需要传递对字符串数组的引用。试试这样的：

$packet->optset( tcp => { type => [ 2 ], data => [ "\x00\x0A" ] } );

The length of the maximum segment size field is 4，其中包括一个字节的种类字段，一个字节的长度字段，以及两个字节的数据本身，所以你需要像上面一样传递一个两字节的字符串。