IRC Bot Control Shell.php [ Remote Code Execution ]

Sub Check IP + Split Path [ Perl ]

use LWP::UserAgent;

$ua=LWP::UserAgent->new();
$shell='http://another.com/path/file.php';
print ipvictim($shell);

sub ipvictim{
     $myURL=$_[0];
     @splitURL = split(/\//, $myURL);
     $url=@splitURL[2];
     $request = $ua->post('http://www.selfseo.com/find_ip_address_of_a_website.php',["url"=>$url,"submit"=>"submit"])->content;
     $request=~s/\r|\n//ig;
     $request=~s/\s+/ /ig;
     $request=~s/\>\s+\</\>\</ig;
     if($request=~/The IP address of $url is <b>(.*?)\<\/b>/){
          $victimip=$1;
          return ($victimip);
     }
     
}

Simple MD5 Brute Force from Dic.txt V.เกรียนๆ [ Perl ]

use Digest::MD5 qw(md5_hex);

$md5=$ARGV[0];
print "\n\t Simple MD5 Brute Force from Dic.txt By ICheer_No0M\n\n";
print '[+] Beginning Brute MD5 : '.$md5."\n\n";
open (MYFILE,'dic.txt');
while (<MYFILE>){
 chomp;
 $md5list=md5_hex($_);
 if($md5list eq $md5){
   print '[+] Found : '.$_."\n\n";
   print '[+] Brute MD5 Finish...'; 
   exit;
  }
 }
close (MYFILE);