AutorTema: Perl LFI Scanner  (Leído 730 veces)

Peperompe

  • Moderador Global
  • User Gurú

  • Desconectado
  • ****
  • Culturahack

  • 6726
  • Karma:
    +65/-3
  • Sexo
    Masculino

    Masculino
  • Texto personal
    El conocimiento es poder
Perl LFI Scanner
« : 13 de agosto de 2009, 03:39:45 am »

Código: Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa
#!/usr/bin/perl
use Socket;
system('cls');
system('title Port Scanner [C]oded by Gl4di4t0r      ');
print q{
#Port Scanner
[+]---------Port Scanner By GlaDiaT0R-------[+]
[+]-------------Coded By GlaDiat0R----------[+]
[+]--------Tunisian Hacker -----------------[+]
[+]------------Greetz to Allah--------------[+]
-----------------------------------------------

                                           


};
print "Enter IP: ";
my $x;
my $servip = <STDIN>;
chop $servip;

for($a=0;$a<=65000;$a++) {
    $ip_addr = sockaddr_in($a, inet_aton($servip));
    $protocol = getprotobyname("tcp");
socket(SOCK, PF_INET, SOCK_STREAM, $protocol);
if(connect(SOCK, $ip_addr))
    {
         print "[#] Port " . $a . " open\n";
         $x++;
        }
         else {
         close(SOCK);
          }
   
}

sub Services
{
    @open_ports = ($a);
   
    foreach $openports(@open_ports) {
    $ipaddr = sockaddr_in($openports, inet_aton($servip));
    $prot2 = getprotobyname("tcp");
    socket(SCK2, PF_INET, SOCK_STREAM, $prot2);
    connect(SCK2, $ipaddr);
    recv(SCK2, $buff, 750, 0); #recv information

    print($buff);

    }
}
    print "[+] Scan Finished!\n";
    print "\nResults:\n===================\n";
    print "Number of open ports: " . $x . "\n";

&Services;

« Última Modificación: 19 de julio de 2010, 11:42:54 am por Peperompe »


Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa
SI YO COMPARTO MI DINERO CONTIGO, QUEDA LA MITAD, SI YO COMPARTO EL CONOCIMIENTO, QUEDA EL DOBLE.
EL CONOCIMIENTO ES PARTE DE LA HUMANIDAD

Tags:
 
Compartir este Tema...
En un Foro
(BBCode)
En un Sitio Web/Blog/Twitter/Facebook
(HTML)





Powered By Satel Group® Web Hosting Diseño Publicidad y Servicio Tecnico