使用Perl LWP欺骗IP

Question

我需要编写一小段代码，模拟来自不同源IP地址的流量，并且我想知道是否可以使用Perl欺骗地址来实现？

我尝试了Net::RAWIP，它可以工作，但是我需要发送一些更复杂的HTTP流量（即POST数据），但无法通过RAWIP实现。

使用LWP时，我尝试使用ua->local_address，但我得到以下响应：

Can't connect to 10.x.x.x:8080

LWP::Protocol::http::Socket: Cannot assign requested address at /usr/lib/perl5/site_perl/5.10.0/LWP/Protocol/http.pm line 51.

这是我正在使用的代码：

#!/usr/bin/perl -w

use strict ;
use warnings ;
use LWP::UserAgent ;
use URI::URL ;

my $path = 'http://142.133.114.130:8080' ;
my $url = new URI::URL $path;
my $ua       = LWP::UserAgent->new();

$ua->local_address('10.121.132.112');
$ua->env_proxy ;
my $effing = 'blaj.jpg' ;
my $response = $ua->post( $url,
                        'Content-Type' => "multipart/form-data",
                        'Content' => [ userfile => ["$effing" ]],
                        'Connection' => 'keep-alive' ) ;
print $response->decoded_content();

- blackbird

Answer 1

如果您使用非您自己的地址发送请求，则无法获得响应。这意味着您只能发送请求。您已经表示可以发送请求，所以您需要的仅是要发送的请求。这很容易。

use strict;
use warnings;

use HTTP::Request::Common qw( POST );

my $req = POST('http://www.example.org/',
   'Content-Type' => "multipart/form-data",
   'Content'      => [ userfile => [ $0 ]],
   'Connection'   => 'keep-alive',
);

print $req->as_string();

输出：

POST http://www.example.org/
Connection: keep-alive
Content-Length: 376
Content-Type: multipart/form-data; boundary=xYzZY

--xYzZY
Content-Disposition: form-data; name="userfile"; filename="x.pl"
Content-Type: text/plain

use strict;
use warnings;

use HTTP::Request::Common qw( POST );

my $req = POST('http://www.example.org/',
   'Content-Type' => "multipart/form-data",
   'Content'      => [ userfile => [ $0 ]],
   'Connection'   => 'keep-alive',
);

print $req->as_string();

--xYzZY--

- ikegami

---

发送文件不是问题，问题在于更改请求的源IP。我在局域网中，并且对路由和监听服务器具有控制权，所以没问题。 - blackbird

你说你已经可以使用Net::RAWIP来完成这个任务了。唯一无法使用Net::RAWIP完成的是格式化请求，而我向你展示了如何做到这一点。 - ikegami

打印语句在对象设置后是否实际发送数据？RAWIP使用send()方法，但它不带任何数据参数。构造函数中的数据字段仅接受字符串。 - blackbird

不，它会将其发送到STDOUT。显然，替换掉它。 - ikegami