Here's a perl program that will suck your image down...
Quote:
#!/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);
$html = Compress::Zlib::memGunzip($response->content);
while($html =~ s/src=\'(.+?)\'//ims) {
my $url2 = 'http://www.crack.sh'.$1;
print $url2."\n\n";
my $response2 = $ua->get($url2, Referer => $url1);
if($response2->headers->as_string =~ /image\/jpeg/) {
open(STOLEN, ">./stolen.jpg");
print STOLEN $response2->content;
close STOLEN;
}
}
|
And here's your image...
