send
Grupo de Telegram
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
  • 959 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.         You are not allowed to view links. Register or Login $sock "GET $dir HTTP/1.0\r\nHOST:$host\r\n\r\n";
  9.         my $convert=0;
  10.         my @rec=<$sock>;
  11.         You are not allowed to view links. Register or Login(file,">$dest");
  12.         foreach $rec(@rec)
  13.         {
  14.                 if($convert==1)
  15.                 {
  16.                         You are not allowed to view links. Register or Login file $rec;
  17.                 }
  18.                 if($rec eq "\r\n")
  19.                 {
  20.                         $convert=1;
  21.                 }
  22.         }
  23.         You are not allowed to view links. Register or Login(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.         You are not allowed to view links. Register or Login $sock "GET $dir HTTP/1.0\r\nHOST:$host\r\n\r\n";
  12.         my $convert=0;
  13.         my @rec=<$sock>;
  14.         You are not allowed to view links. Register or Login(file,">$dest");
  15.         foreach $rec(@rec)
  16.         {
  17.                 if($convert==1)
  18.                 {
  19.                         You are not allowed to view links. Register or Login file $rec;
  20.                 }
  21.                 if($rec eq "\r\n")
  22.                 {
  23.                         $convert=1;
  24.                 }
  25.         }
  26.         You are not allowed to view links. Register or Login(file);
  27. }

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

 

¿Te gustó el post? COMPARTILO!



[Perl] Funcion writeword()

Iniciado por BigBear

Respuestas: 0
Vistas: 725
Último mensaje Julio 03, 2011, 09:45:38 pm
por BigBear
[Perl] Funcion cambiar_fondo()

Iniciado por BigBear

Respuestas: 0
Vistas: 640
Último mensaje Julio 03, 2011, 09:40:04 pm
por BigBear
[Perl] Funcion getdrive()

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 699
Último mensaje Julio 03, 2011, 09:44:12 pm
por BigBear
[Perl] Funcion Speak()

Iniciado por BigBear

Respuestas: 0
Vistas: 947
Último mensaje Julio 03, 2011, 09:45:15 pm
por BigBear