我需要编写一小段代码来模拟来自不同源 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();