Bueno, creo que este es mi 2º post aqui, ojala haya muchos mas ;).
Bien, he venido para traerles una funcion para bajar y guardar una imagen.
sub down_image
{
my $host=$_[0];
my $dir=$_[1];
my $dest=$_[2];
use IO::Socket::INET;
my $sock=IO::Socket::INET->new(PeerAddr=>$host,PeerPort=>"80",Proto=>"tcp");
print $sock "GET $dir HTTP/1.0\r\nHOST:$host\r\n\r\n";
my $convert=0;
my @rec=<$sock>;
open(file,">$dest");
foreach $rec(@rec)
{
if($convert==1)
{
print file $rec;
}
if($rec eq "\r\n")
{
$convert=1;
}
}
close(file);
}
Ejemplo de uso:
#!/usr/bin/perl
down_image("www.hackxcrack.es", "/forum/Themes/citiez_20rc5/images/custom/header.jpg", "foto.jpg");
sub down_image
{
my $host=$_[0];
my $dir=$_[1];
my $dest=$_[2];
use IO::Socket::INET;
my $sock=IO::Socket::INET->new(PeerAddr=>$host,PeerPort=>"80",Proto=>"tcp");
print $sock "GET $dir HTTP/1.0\r\nHOST:$host\r\n\r\n";
my $convert=0;
my @rec=<$sock>;
open(file,">$dest");
foreach $rec(@rec)
{
if($convert==1)
{
print file $rec;
}
if($rec eq "\r\n")
{
$convert=1;
}
}
close(file);
}
Sa1uDoS