Bienvenido a Tecnohackers

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

[Delphi] CrackHash 0.2


Páginas: [1]   Ir Abajo

Autor Tema: [Delphi] CrackHash 0.2  (Leído 48 veces)

Desconectado Doddy

  • Moderator
  • Veterano
  • *****
  • Mensajes: 267
  • Slow Mind
[Delphi] CrackHash 0.2
« en: Octubre 18, 2011, 10:40:28 pm »
Hola , aca les traigo un crackhash que hice en delphi

Código: No puedes ver links Registrate o Login
{
Crack Hash  0.2

Coded By Doddy H
}

unit hash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms,
  Dialogs, StdCtrls,IdHash,IdHashMessageDigest, WinSkinData,

ComCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    SkinData1: TSkinData;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '098F6BCD4621D373CADE4E832627B4F6';
StatusBar1.SimpleText:='[+] Status : Ready';
end;

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

procedure TForm1.Button1Click(Sender: TObject);
var
archivo: TextFile;
lineas:String;
result:string;
encode:TIdHashMessageDigest5;
control:string;
begin
StatusBar1.SimpleText:='[+] Status : Opening File';
StatusBar1.SimpleText:='[+] Status : Cracking hash..';
AssignFile(archivo,Edit2.Text);
Reset(archivo);
control:='no';
while not EOF(archivo) do
begin
ReadLn(archivo,lineas);
encode:= TIdHashMessageDigest5.Create;
result:= encode.AsHex(encode.HashValue(lineas));
if Edit1.Text = result then
begin
StatusBar1.SimpleText:='[+] Status : Password is '+lineas;
control:='yes';
break;
end;
end;
if control = 'no' then
begin
StatusBar1.SimpleText:='[+] Status : Password not found';
end;
CloseFile(archivo);
end;
end.

Una imagen seria



Si quieren bajar el proyecto mas el compilado lo pueden hacer de 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:49 pm
por Doddy
0 Respuestas
20 Vistas 		Último mensaje Febrero 10, 2012, 04:00:08 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