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.

[Delphi] LocateIP 0.1

  • 0 Respuestas
  • 1304 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Abril 25, 2013, 05:46:23 pm »
Traduccion a Delphi de este programa para localizar una IP.

Una imagen :



El codigo :

Código: Delphi
  1. // LocateIP 0.1
  2. // Coded By Doddy H in the year 2013
  3. // Based on the services :
  4. // To get IP -- http://whatismyipaddress.com/
  5. // To locate IP -- http://www.melissadata.com/
  6. // To get DNS -- http://www.ip-adress.com/
  7.  
  8. unit locateip;
  9.  
  10. interface
  11.  
  12. uses
  13.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  14.   Dialogs, sSkinManager, jpeg, ExtCtrls, StdCtrls, sLabel, sGroupBox, sButton,
  15.   sEdit, sListBox, ComCtrls, sStatusBar, IdBaseComponent, IdComponent,
  16.   IdTCPConnection, IdTCPClient, IdHTTP, PerlRegEx, IdMultipartFormData;
  17.  
  18. type
  19.   TForm1 = class(TForm)
  20.     sSkinManager1: TsSkinManager;
  21.     Image1: TImage;
  22.     sGroupBox1: TsGroupBox;
  23.     sLabel1: TsLabel;
  24.     sEdit1: TsEdit;
  25.     sButton1: TsButton;
  26.     sGroupBox2: TsGroupBox;
  27.     sLabel2: TsLabel;
  28.     sEdit2: TsEdit;
  29.     sLabel3: TsLabel;
  30.     sEdit3: TsEdit;
  31.     sLabel4: TsLabel;
  32.     sEdit4: TsEdit;
  33.     sGroupBox3: TsGroupBox;
  34.     sListBox1: TsListBox;
  35.     PerlRegEx1: TPerlRegEx;
  36.     IdHTTP1: TIdHTTP;
  37.     sStatusBar1: TsStatusBar;
  38.     procedure sButton1Click(Sender: TObject);
  39.     procedure FormCreate(Sender: TObject);
  40.  
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. var
  48.   Form1: TForm1;
  49.  
  50. implementation
  51.  
  52. {$R *.dfm}
  53.  
  54. procedure TForm1.FormCreate(Sender: TObject);
  55. begin
  56.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  57.   sSkinManager1.SkinName := 'matrix';
  58.   sSkinManager1.Active := True;
  59. end;
  60.  
  61. procedure TForm1.sButton1Click(Sender: TObject);
  62. var
  63.   rta: string;
  64.   z: integer;
  65.   par: TIdMultiPartFormDataStream;
  66. begin
  67.  
  68.   if sEdit1.text = '' then
  69.   begin
  70.     ShowMessage('Write the target');
  71.   end
  72.   else
  73.   begin
  74.     sStatusBar1.Panels[0].text := '[+] Getting IP ...';
  75.     Form1.sStatusBar1.Update;
  76.  
  77.     par := TIdMultiPartFormDataStream.Create;
  78.     par.AddFormField('DOMAINNAME', sEdit1.text);
  79.  
  80.     rta := IdHTTP1.Post('http://whatismyipaddress.com/hostname-ip', par);
  81.  
  82.     PerlRegEx1.Regex := 'Lookup IP Address: <a href=(.*)>(.*)<\/a>';
  83.     PerlRegEx1.Subject := rta;
  84.  
  85.     if PerlRegEx1.Match then
  86.     begin
  87.       sEdit1.text := PerlRegEx1.SubExpressions[2];
  88.  
  89.       // Locating ...
  90.  
  91.       sStatusBar1.Panels[0].text := '[+] Locating ...';
  92.       Form1.sStatusBar1.Update;
  93.  
  94.       rta := IdHTTP1.Get(
  95.         'http://www.melissadata.com/lookups/iplocation.asp?ipaddress=' +
  96.           sEdit1.text);
  97.  
  98.       PerlRegEx1.Regex := 'City<\/td><td align=(.*)><b>(.*)<\/b><\/td>';
  99.       PerlRegEx1.Subject := rta;
  100.  
  101.       if PerlRegEx1.Match then
  102.       begin
  103.         sEdit2.text := PerlRegEx1.SubExpressions[2];
  104.       end
  105.       else
  106.       begin
  107.         sEdit2.text := 'Not Found';
  108.       end;
  109.  
  110.       PerlRegEx1.Regex := 'Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>';
  111.       PerlRegEx1.Subject := rta;
  112.  
  113.       if PerlRegEx1.Match then
  114.       begin
  115.         sEdit3.text := PerlRegEx1.SubExpressions[2];
  116.       end
  117.       else
  118.       begin
  119.         sEdit3.text := 'Not Found';
  120.       end;
  121.  
  122.       PerlRegEx1.Regex :=
  123.         'State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>';
  124.       PerlRegEx1.Subject := rta;
  125.  
  126.       if PerlRegEx1.Match then
  127.       begin
  128.         sEdit4.text := PerlRegEx1.SubExpressions[2];
  129.       end
  130.       else
  131.       begin
  132.         sEdit4.text := 'Not Found';
  133.       end;
  134.  
  135.       //
  136.  
  137.       // Get DNS
  138.  
  139.       sStatusBar1.Panels[0].text := '[+] Getting DNS ...';
  140.       Form1.sStatusBar1.Update;
  141.  
  142.       sListBox1.Items.Clear;
  143.  
  144.       rta := IdHTTP1.Get('http://www.ip-adress.com/reverse_ip/' + sEdit1.text);
  145.  
  146.       PerlRegEx1.Regex := 'whois\/(.*?)\">Whois';
  147.       PerlRegEx1.Subject := rta;
  148.  
  149.       while PerlRegEx1.MatchAgain do
  150.       begin
  151.         for z := 1 to PerlRegEx1.SubExpressionCount do
  152.           sListBox1.Items.Add(PerlRegEx1.SubExpressions[z]);
  153.       end;
  154.  
  155.       //
  156.  
  157.     end
  158.     else
  159.     begin
  160.       sStatusBar1.Panels[0].text := '[-] Error';
  161.       Form1.sStatusBar1.Update;
  162.     end;
  163.  
  164.     sStatusBar1.Panels[0].text := '';
  165.     Form1.sStatusBar1.Update;
  166.  
  167.   end;
  168. end;
  169.  
  170. end.
  171.  
  172. // The End ?
  173.  

Si lo quieren bajar lo pueden hacer de No tienes permisos para ver links. Registrate o Entra con tu cuenta.

« Última modificación: Mayo 03, 2013, 02:05:28 pm por Doddy »

 

¿Te gustó el post? COMPARTILO!



Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3127
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1983
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3255
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1410
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon
[Delphi] Project Arsenal X 0.2 (Regalo de navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 2575
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear