comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Funcion baja imagenes

  • 0 Respuestas
  • 1029 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado mr.blood

  • *
  • Underc0der
  • Mensajes: 73
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
  • Skype: red_ink@hotmail.es
« en: Mayo 06, 2011, 01:29:46 pm »
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.

Código: Perl
  1. sub down_image
  2. {
  3.         my $host=$_[0];
  4.         my $dir=$_[1];
  5.         my $dest=$_[2];
  6.         use IO::Socket::INET;
  7.         my $sock=IO::Socket::INET->new(PeerAddr=>$host,PeerPort=>"80",Proto=>"tcp");
  8.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $sock "GET $dir HTTP/1.0\r\nHOST:$host\r\n\r\n";
  9.         my $convert=0;
  10.         my @rec=<$sock>;
  11.         No tienes permisos para ver links. Registrate o Entra con tu cuenta(file,">$dest");
  12.         foreach $rec(@rec)
  13.         {
  14.                 if($convert==1)
  15.                 {
  16.                         No tienes permisos para ver links. Registrate o Entra con tu cuenta file $rec;
  17.                 }
  18.                 if($rec eq "\r\n")
  19.                 {
  20.                         $convert=1;
  21.                 }
  22.         }
  23.         No tienes permisos para ver links. Registrate o Entra con tu cuenta(file);
  24. }

Ejemplo de uso:

Código: Perl
  1. #!/usr/bin/perl
  2.  
  3. down_image("www.hackxcrack.es", "/forum/Themes/citiez_20rc5/images/custom/header.jpg", "foto.jpg");
  4. sub down_image
  5. {
  6.         my $host=$_[0];
  7.         my $dir=$_[1];
  8.         my $dest=$_[2];
  9.         use IO::Socket::INET;
  10.         my $sock=IO::Socket::INET->new(PeerAddr=>$host,PeerPort=>"80",Proto=>"tcp");
  11.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $sock "GET $dir HTTP/1.0\r\nHOST:$host\r\n\r\n";
  12.         my $convert=0;
  13.         my @rec=<$sock>;
  14.         No tienes permisos para ver links. Registrate o Entra con tu cuenta(file,">$dest");
  15.         foreach $rec(@rec)
  16.         {
  17.                 if($convert==1)
  18.                 {
  19.                         No tienes permisos para ver links. Registrate o Entra con tu cuenta file $rec;
  20.                 }
  21.                 if($rec eq "\r\n")
  22.                 {
  23.                         $convert=1;
  24.                 }
  25.         }
  26.         No tienes permisos para ver links. Registrate o Entra con tu cuenta(file);
  27. }

Sa1uDoS
« Última modificación: Marzo 14, 2015, 09:57:10 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



[Perl] Funcion getlink()

Iniciado por BigBear

Respuestas: 0
Vistas: 765
Último mensaje Julio 03, 2011, 09:41:22 pm
por BigBear
[Perl] Funcion movewin()

Iniciado por BigBear

Respuestas: 0
Vistas: 713
Último mensaje Julio 03, 2011, 09:44:23 pm
por BigBear
[Perl] Funcion wormer()

Iniciado por BigBear

Respuestas: 0
Vistas: 814
Último mensaje Julio 03, 2011, 09:45:25 pm
por BigBear
[Perl] Funcion download()

Iniciado por BigBear

Respuestas: 0
Vistas: 741
Último mensaje Julio 03, 2011, 09:40:55 pm
por BigBear
[Perl] Funcion hideit()

Iniciado por BigBear

Respuestas: 0
Vistas: 793
Último mensaje Julio 03, 2011, 09:43:57 pm
por BigBear