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] DH Port Scanner 0.2

  • 0 Respuestas
  • 1367 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Agosto 02, 2013, 06:50:13 pm »
Un simple Port Scanner en Delphi.

Una imagen :



El codigo :

Código: Delphi
  1. // DH Port Scanner 0.2
  2. // Coded By Doddy H
  3.  
  4. unit port;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, sSkinManager, StdCtrls, sGroupBox, sButton, IdTCPClient, sMemo, jpeg,
  11.   ExtCtrls, ComCtrls, sStatusBar, sEdit, sLabel, IdBaseComponent, IdComponent,
  12.   IdTCPConnection;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     sSkinManager1: TsSkinManager;
  17.     sGroupBox1: TsGroupBox;
  18.     sGroupBox2: TsGroupBox;
  19.     sGroupBox3: TsGroupBox;
  20.     sButton1: TsButton;
  21.     sMemo1: TsMemo;
  22.     Image1: TImage;
  23.     sStatusBar1: TsStatusBar;
  24.     sLabel1: TsLabel;
  25.     sEdit1: TsEdit;
  26.     sLabel2: TsLabel;
  27.     sEdit2: TsEdit;
  28.     sLabel3: TsLabel;
  29.     sEdit3: TsEdit;
  30.     sButton2: TsButton;
  31.     sButton3: TsButton;
  32.     sButton4: TsButton;
  33.     IdTCPClient1: TIdTCPClient;
  34.     procedure sButton1Click(Sender: TObject);
  35.     procedure sButton2Click(Sender: TObject);
  36.     procedure sButton3Click(Sender: TObject);
  37.     procedure sButton4Click(Sender: TObject);
  38.     procedure FormCreate(Sender: TObject);
  39.  
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  45.  
  46. var
  47.   Form1: TForm1;
  48.  
  49. implementation
  50.  
  51. {$R *.dfm}
  52.  
  53. procedure TForm1.FormCreate(Sender: TObject);
  54. begin
  55.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  56.   sSkinManager1.SkinName := 'matrix';
  57.   sSkinManager1.Active := True;
  58. end;
  59.  
  60. procedure TForm1.sButton1Click(Sender: TObject);
  61. var
  62.   i: Integer;
  63. begin
  64.  
  65.   sMemo1.Clear;
  66.  
  67.   For i := StrToInt(sEdit2.Text) to StrToInt(sEdit3.Text) do
  68.   begin
  69.     try
  70.       begin
  71.  
  72.         sStatusBar1.Panels[0].Text := '[+] Scanning : ' + IntToStr(i);
  73.         Form1.sStatusBar1.Update;
  74.  
  75.         IdTCPClient1.Host := sEdit1.Text;
  76.         IdTCPClient1.port := i;
  77.         IdTCPClient1.ConnectTimeout := 1;
  78.         IdTCPClient1.Connect;
  79.  
  80.         sMemo1.Lines.Add('Port Open : ' + IntToStr(i));
  81.  
  82.         IdTCPClient1.Disconnect;
  83.  
  84.       end;
  85.     except
  86.       begin
  87.         //
  88.       end;
  89.     end;
  90.  
  91.   end;
  92.   sStatusBar1.Panels[0].Text := '[+] Finished';
  93.   Form1.sStatusBar1.Update;
  94. end;
  95.  
  96. procedure TForm1.sButton2Click(Sender: TObject);
  97. begin
  98.   Abort;
  99. end;
  100.  
  101. procedure TForm1.sButton3Click(Sender: TObject);
  102. begin
  103.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  104. end;
  105.  
  106. procedure TForm1.sButton4Click(Sender: TObject);
  107. begin
  108.   Form1.Close();
  109. end;
  110.  
  111. end.
  112.  
  113. // The End ?
  114.  

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

 

¿Te gustó el post? COMPARTILO!



[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
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3126
Último mensaje Febrero 24, 2010, 04:57:14 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: 2574
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear