Perl RawIP CWR 标志

Perl RawIP CWR Flag

我正在使用 Net::RawIP 发送带有特定 TCP 标志的数据包。有没有办法设置 CWR 标志? TCP 协议密钥 "res2" 设置了 ECE 标志,但 "res1" 似乎设置了 NS 标志:

$n = Net::RawIP->new({
ip  => {
        saddr => 'my.target.lan',
        daddr => 'my.target.lan',
       },
tcp => {
        source => 123,
        dest   => 123,
        res1   => 1,
        res2   => 1,
        fin    => 1,
        syn    => 1
       }
});

这是数据包标志的 Wireshark 捕获:

res2 是两位宽。

res2 => 1   # ECE
res2 => 2   # CWR
res2 => 3   # ECE & CWR

(在大端机器上可能是相反的,但我对此表示怀疑。)

res1 是 Wireshark 捕获中标记为 "Reserved" 和 "Nonce" 的 4 位。)