[Perl] Shodan Tool 0.2

  • 0 Respuestas
  • 3555 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Shodan Tool 0.2

  • en: Diciembre 20, 2013, 09:35:03 pm
Un simple script en Perl para realizar busquedas en Shodan usando el API que hicieron para Perl.

El codigo.

Código: Perl
  1. #!usr/bin/perl
  2. # Shodan Tool 0.2
  3. # (C) Doddy Hackman 2013
  4.  
  5. # Install the dependencies
  6. # sudo perl -MCPAN -e 'install CGI::Enurl'
  7. # sudo perl -MCPAN -e 'install JSON::XS'
  8. # sudo perl -MCPAN -e 'install HTTP::Request::Common'
  9. # Install Shodan
  10. # curl -OL http://github.com/downloads/achillean/shodan-perl/Shodan-0.3.tar.gz
  11. # tar zxvf Shodan-0.3.tar.gz
  12. # cd Shodan-0.3
  13. # perl Makefile.PL
  14. # make
  15. # sudo make install
  16.  
  17. use Shodan::WebAPI;
  18.  
  19. $SIG{INT} = \&copyright;
  20.  
  21. $your_key = "fuck you";    # Your Api Key
  22.  
  23. head();
  24.  
  25. unless ( $ARGV[0] ) {
  26.     You are not allowed to view links. Register or Login "\n<ul class="bbc_list"><li type="square"> Sintax : $0 <search>\n";[/li][/list]
  27. }
  28. else {
  29.  
  30.     You are not allowed to view links. Register or Login "\n</li><li type="square"> Searching ...\n";[/li][/list]
  31.  
  32.     $shell_shodan = new Shodan::WebAPI($your_key);
  33.     $resultados   = $shell_shodan->search( $ARGV[0] );
  34.  
  35.     @encontrados = @{ $resultados->{"matches"} };
  36.  
  37.     for ( $i = 0 ; $i < $#encontrados ; ) {
  38.  
  39.         You are not allowed to view links. Register or Login "\n</li><li type="square"> Search Number : " . $i . "\n";[/li][/list]
  40.  
  41.         if ( $encontrados[$i]->{country_name} eq "" ) {
  42.             You are not allowed to view links. Register or Login "</li><li type="square"> Country : Not Found\n";[/li][/list]
  43.         }
  44.         else {
  45.             You are not allowed to view links. Register or Login "</li><li type="square"> Country : " . $encontrados[$i]->{country_name} . "\n";[/li][/list]
  46.         }
  47.         if ( $encontrados[$i]->{ip} eq "" ) {
  48.             You are not allowed to view links. Register or Login "</li><li type="square"> IP : Not Found\n";[/li][/list]
  49.         }
  50.         else {
  51.             You are not allowed to view links. Register or Login "</li><li type="square"> IP : " . $encontrados[$i]->{ip} . "\n";[/li][/list]
  52.         }
  53.  
  54.         You are not allowed to view links. Register or Login "</li><li type="square"> Hostnames: ",[/li][/list]
  55.           You are not allowed to view links. Register or Login( "\t", @{ $encontrados[$i]->{hostnames} } ), "\n";
  56.  
  57.         You are not allowed to view links. Register or Login "\n";
  58.  
  59.         if ( $encontrados[$i]->{os} eq "" ) {
  60.             You are not allowed to view links. Register or Login "</li><li type="square"> OS : Not Found\n";[/li][/list]
  61.         }
  62.         else {
  63.             You are not allowed to view links. Register or Login "</li><li type="square"> OS : " . $encontrados[$i]->{os} . "\n";[/li][/list]
  64.         }
  65.         if ( $encontrados[$i]->{port} eq "" ) {
  66.             You are not allowed to view links. Register or Login "</li><li type="square"> Port : Not Found\n";[/li][/list]
  67.         }
  68.         else {
  69.             You are not allowed to view links. Register or Login "</li><li type="square"> Port : " . $encontrados[$i]->{port} . "\n";[/li][/list]
  70.         }
  71.         if ( $encontrados[$i]->{updated} eq "" ) {
  72.             You are not allowed to view links. Register or Login "</li><li type="square"> Last Updated : Not Found\n";[/li][/list]
  73.         }
  74.         else {
  75.             You are not allowed to view links. Register or Login "</li><li type="square"> Last Updated : " . $encontrados[$i]->{updated} . "\n";[/li][/list]
  76.         }
  77.  
  78.         You are not allowed to view links. Register or Login "\n[Data Start]\n" . $encontrados[$i]->{data} . "\n[Data End]\n";
  79.  
  80.         $i++;
  81.  
  82.         if ( $i % 5 == 0 ) {
  83.             You are not allowed to view links. Register or Login "\n</li><li type="square"> Press enter to show more\n";[/li][/list]
  84.             <STDIN>;
  85.         }
  86.     }
  87. }
  88.  
  89. copyright();
  90.  
  91. # Functions
  92.  
  93. sub head {
  94.     You are not allowed to view links. Register or Login "\n-- == Shodan Tool 0.2 == --\n";
  95. }
  96.  
  97. sub copyright {
  98.     You are not allowed to view links. Register or Login "\n-- == (C) Doddy Hackman 2013 == --\n";
  99.     You are not allowed to view links. Register or Login(1);
  100. }
  101.  
  102. # The End ?
  103.  

Un ejemplo de uso.

Código: You are not allowed to view links. Register or Login
[email protected]:~/Escritorio/HackingToolz/Warfactory IX/Shodan$ perl shodantool.pl "facultad"

-- == Shodan Tool 0.2 == --

  • Searching ...[/li]

  • Search Number : 0[/li]
  • Country : Spain[/li]
  • IP : 193.147.172.36[/li]
  • Hostnames: ftp.fgh.us.es[/li]

  • OS : Not Found[/li]
  • Port : 21[/li]
  • Last Updated : 27.11.2013[/li][/list]
    Wide character in print at shodanfinal.pl line 78.

    [Data Start]
    220-Microsoft FTP Service
    220 FACULTAD DE GEOGRAF�A E HISTORIA. INFORMA�TICA
    230-BIENVENIDOS AL SERVIDOR DE RECURSOS COMPARTIDOS DOCENTES DE LA FACULTAD DE GEOGRAF�A E HISTORIA
    230 Anonymous user logged in.
    214-The following  commands are recognized(* ==>'s unimplemented).
       ABOR
       ACCT
       ALLO
       APPE
       CDUP
       CWD 
       DELE
       FEAT
       HELP
       LIST
       MDTM
       MKD 
       MODE
       NLST
       NOOP
       OPTS
       PASS
       PASV
       PORT
       PWD 
       QUIT
       REIN
       REST
       RETR
       RMD 
       RNFR
       RNTO
       SITE
       SIZE
       SMNT
       STAT
       STOR
       STOU
       STRU
       SYST
       TYPE
       USER
       XCUP
       XCWD
       XMKD
       XPWD
       XRMD
    214  HELP command successful.
    [Data End]

  • Search Number : 1[/li]
  • Country : Bolivia[/li]
  • IP : 200.87.234.18[/li]
  • Hostnames: [/li]

  • OS : Not Found[/li]
  • Port : 21[/li]
  • Last Updated : 25.11.2013[/li]

    [Data Start]
    220 Bienvenido al servicio de FTP de la Facultad de Ciencias Extactas y Tecnologia - U.A.G.R.M.
    230 Login successful.
    214-The following commands are recognized.
     ABOR ACCT ALLO APPE CDUP CWD  DELE EPRT EPSV FEAT HELP LIST MDTM MKD
     MODE NLST NOOP OPTS PASS PASV PORT PWD  QUIT REIN REST RETR RMD  RNFR
     RNTO SITE SIZE SMNT STAT STOR STOU STRU SYST TYPE USER XCUP XCWD XMKD
     XPWD XRMD
    214 Help OK.
    [Data End]

  • Search Number : 2[/li]
  • Country : Chile[/li]
  • IP : 146.83.193.197[/li]
  • Hostnames: zafiro.ciencias.ubiobio.cl[/li]

  • OS : Not Found[/li]
  • Port : 80[/li]
  • Last Updated : 24.11.2013[/li]

    [Data Start]
    HTTP/1.0 302 Found
    Date: Sun, 24 Nov 2013 04:06:36 GMT
    Server: Apache/2.2.16 (Debian)
    Location: http://146.83.193.197/facultad/
    Vary: Accept-Encoding
    Content-Length: 295
    Content-Type: text/html; charset=iso-8859-1


    [Data End]

  • Search Number : 3[/li]
  • Country : Venezuela[/li]
  • IP : 190.169.126.3[/li]
  • Hostnames: inving.ing.ucv.ve[/li]

  • OS : Not Found[/li]
  • Port : 21[/li]
  • Last Updated : 23.11.2013[/li]

    [Data Start]
    220 FTP -2: - Facultad de Ingenieira
    530 Login or password incorrect!
    214-The following commands are recognized:
       USER   PASS   QUIT   CWD    PWD    PORT   PASV   TYPE
       LIST   REST   CDUP   RETR   STOR   SIZE   DELE   RMD
       MKD    RNFR   RNTO   ABOR   SYST   NOOP   APPE   NLST
       MDTM   XPWD   XCUP   XMKD   XRMD   NOP    EPSV   EPRT
       AUTH   ADAT   PBSZ   PROT   FEAT   MODE   OPTS   HELP
       ALLO   MLST   MLSD   SITE   [email protected]   STRU   CLNT   MFMT
    214 Have a nice day.
    [Data End]

  • Search Number : 4[/li]
  • Country : Argentina[/li]
  • IP : 163.10.23.131[/li]
  • Hostnames: www.fcnym.unlp.edu.ar[/li]

  • OS : Not Found[/li]
  • Port : 80[/li]
  • Last Updated : 23.11.2013[/li]

    [Data Start]
    HTTP/1.0 200 OK
    Date: Sat, 23 Nov 2013 14:31:52 GMT
    Server: Apache/2.2.22 (Ubuntu)
    X-Powered-By: PHP/5.3.10-1ubuntu3.4
    Set-Cookie: choiqueCMS-froNt3nD-facultad=qo7hgqq9cdir6t5pgsg0bgipe1; path=/
    Expires: Thu, 19 Nov 1981 08:52:00 GMT
    Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
    Pragma: no-cache
    Vary: Accept-Encoding
    Connection: close
    Content-Type: text/html; charset=utf-8


    [Data End]

  • Press enter to show more[/li]


  • Search Number : 5[/li]
  • Country : Mexico[/li]
  • IP : 148.224.13.152[/li]
  • Hostnames: 152-13-static.uaslp.mx[/li]

  • OS : Not Found[/li]
  • Port : 80[/li]
  • Last Updated : 23.11.2013[/li]

    [Data Start]
    HTTP/1.0 401 Unauthorized
    Connection: Keep-Alive
    Cache-Control: no-cache
    WWW-Authenticate: Digest realm="FACULTAD DE PSICOLOGIA", domain="/", nonce="103efee03d", algorithm="MD5", qop="auth"
    WWW-Authenticate: Basic realm="FACULTAD DE PSICOLOGIA"
    Content-Type: text/html
    Content-Length: 236


    [Data End]

  • Search Number : 6[/li]
  • Country : Argentina[/li]
  • IP : 190.11.104.87[/li]
  • Hostnames: host87-104.cpenet.com.ar[/li]

  • OS : Not Found[/li]
  • Port : 137[/li]
  • Last Updated : 22.11.2013[/li]

    [Data Start]
    NetBIOS Response
    Servername: FACULTAD       
    MAC: 00:1c:c0:9c:0a:ff

    Names:
    FACULTAD        <0x0>
    SIX             <0x0>
    FACULTAD        <0x20>
    SIX             <0x1e>
    SIX             <0x1d>
    __MSBROWSE__ <0x1>

    [Data End]

  • Search Number : 7[/li]
  • Country : Mexico[/li]
  • IP : 132.248.18.23[/li]
  • Hostnames: docencia.fca.unam.mx[/li]

  • OS : Not Found[/li]
  • Port : 143[/li]
  • Last Updated : 22.11.2013[/li]

    [Data Start]
    * OK [CAPABILITY IMAP4rev1 LITERAL+ SASL-IR LOGIN-REFERRALS ID ENABLE STARTTLS AUTH=PLAIN AUTH=LOGIN] Bienvenido al servicio de correo DOCENCIA de la Facultad de Contaduria y administacion
    [Data End]

  • Search Number : 8[/li]
  • Country : Argentina[/li]
  • IP : 170.210.88.7[/li]
  • Hostnames: firewall.unp.edu.ar[/li]

  • OS : Not Found[/li]
  • Port : 21[/li]
  • Last Updated : 22.11.2013[/li]

    [Data Start]
    220 Bienvenido al FTP de la Facultad de Ingenieria.
    530 Permission denied.
    530 Please login with USER and PASS.
    [Data End]

  • Search Number : 9[/li]
  • Country : Argentina[/li]
  • IP : 170.210.240.9[/li]
  • Hostnames: cacuy.fi.unju.edu.ar[/li]

  • OS : Not Found[/li]
  • Port : 25[/li]
  • Last Updated : 20.11.2013[/li]

    [Data Start]
    220 cacuy.fi.unju.edu.ar Servidor de email Facultad de Ingenieria UNJu

    [Data End]

  • Press enter to show more[/li]

  •  

    Tutorial perl desde cero By: Black Poision & Painboy

    Iniciado por ProcessKill

    Respuestas: 2
    Vistas: 5173
    Último mensaje Septiembre 02, 2011, 09:43:36 pm
    por blozzter
    [Perl] Verificando si es root para correr un script

    Iniciado por c1st

    Respuestas: 1
    Vistas: 3400
    Último mensaje Octubre 07, 2012, 06:01:39 pm
    por ANTRAX
    [Perl] Counter Strike 1.6 Servers List

    Iniciado por BigBear

    Respuestas: 0
    Vistas: 2460
    Último mensaje Noviembre 12, 2012, 07:32:11 pm
    por BigBear
    [Perl] Search in google for scan SQLI

    Iniciado por BigBear

    Respuestas: 0
    Vistas: 2554
    Último mensaje Julio 03, 2011, 09:49:49 pm
    por BigBear
    [Perl] Half Life Servers List 0.1

    Iniciado por BigBear

    Respuestas: 0
    Vistas: 2534
    Último mensaje Noviembre 12, 2012, 07:31:50 pm
    por BigBear