Visto quello per badoo ho fatto uno script simile.
Data un link ad una foto a cui non possiamo accedere (perchè non siamo amici o il profilo non è disponibile) lo script ne estrapola il link diretto all'immagine e la scarica.
Data un link ad una foto a cui non possiamo accedere (perchè non siamo amici o il profilo non è disponibile) lo script ne estrapola il link diretto all'immagine e la scarica.
Codice:
#!/usr/bin/perl
use LWP::UserAgent;
$link = shift or die qq {
Netlog hidden image downloader by girex
usage: perl $0 <link>
example: perl $0 http://it.netlog.com/user/photo/photoid=58008698
quindi link e' il link all'immagine "protetta"
};
my $lwp = new LWP::UserAgent;
print STDOUT "\n[+] Netlog hidden image downloader by girex\n";
if($link =~ /it.netlog.com\/(.*)\/photo\/photoid=(\d{8})/)
{
$user = $1;
$foto_id = $2;
}
else
{
print STDOUT "[-] Link errato, script failed \n";
exit;
}
$target = "http://it.netlogstatic.com/p/oo/0" . substr($foto_id, 0, 2). "/". substr($foto_id, 2, 3)."/${foto_id}.jpg";
print STDOUT "\n[+] Nickname: $user, photo id = $foto_id\n";
print STDOUT "[+] Link diretto immagine: $target\n\n";
print STDOUT "[?] Scaricare l'immagine? [y/n] ";
chomp($ans = <>);
download ($target) if $ans =~ /^y|yes$/i;
sub download
{
my $res = $lwp->get(shift);
if($res->is_success)
{
open(IMG, '>', $foto_id.'.jpg');
binmode(IMG);
print IMG $res->content;
close(IMG);
}
else
{
print STDOUT "\n[-] Download failed. Maybe wrong link\n";
exit;
}
print STDOUT "[+] Immagine ${foto_id}.jpg salvata con successo!\n";
}
