Un simple programa para crackear un hash MD5 hecho en Delphi.
Una imagen :
El codigo :
Si quieren bajar el programa lo pueden hacer de aca.
Una imagen :
El codigo :
Código (delphi) [Seleccionar]
// MD5 Cracker 0.1
// Coded By Doddy H
// Based on the services :
// http://md5.hashcracking.com/
// http://md5.rednoize.com
// http://md52.altervista.org
unit md5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, sSkinManager, StdCtrls, sButton, sEdit, sGroupBox, jpeg, ExtCtrls,
ComCtrls, sStatusBar, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, PerlRegEx;
type
TForm1 = class(TForm)
sSkinManager1: TsSkinManager;
Image1: TImage;
sGroupBox1: TsGroupBox;
sEdit1: TsEdit;
sGroupBox2: TsGroupBox;
sEdit2: TsEdit;
sGroupBox3: TsGroupBox;
sStatusBar1: TsStatusBar;
Crack: TsButton;
sButton1: TsButton;
sButton2: TsButton;
sButton3: TsButton;
IdHTTP1: TIdHTTP;
PerlRegEx1: TPerlRegEx;
procedure sButton2Click(Sender: TObject);
procedure sButton3Click(Sender: TObject);
procedure CrackClick(Sender: TObject);
procedure sButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CrackClick(Sender: TObject);
var
rta: string;
begin
sStatusBar1.Panels[0].text := '[+] Searching in md5.hashcracking.com ...';
Form1.sStatusBar1.Update;
rta := IdHTTP1.Get
('http://md5.hashcracking.com/search.php?md5=' + sEdit1.text);
PerlRegEx1.Regex := 'Cleartext of (.*) is (.*)';
PerlRegEx1.Subject := rta;
if PerlRegEx1.Match then
begin
sEdit2.text := PerlRegEx1.SubExpressions[2];
sStatusBar1.Panels[0].text := '[+] Done';
Form1.sStatusBar1.Update;
end
else
begin
sStatusBar1.Panels[0].text := '[+] Searching in md5.rednoize.com ...';
Form1.sStatusBar1.Update;
rta := IdHTTP1.Get('http://md5.rednoize.com/?q=' + sEdit1.text);
PerlRegEx1.Regex := '<div id=\"result\" >(.*)<\/div>';
PerlRegEx1.Subject := rta;
if PerlRegEx1.Match then
begin
if not(Length(PerlRegEx1.SubExpressions[1]) = 32) then
begin
sEdit2.text := PerlRegEx1.SubExpressions[1];
sStatusBar1.Panels[0].text := '[+] Done';
Form1.sStatusBar1.Update;
end
else
begin
sStatusBar1.Panels[0].text :=
'[+] Searching in md52.altervista.org ...';
Form1.sStatusBar1.Update;
rta := IdHTTP1.Get
('http://md52.altervista.org/index.php?md5=' + sEdit1.text);
PerlRegEx1.Regex :=
'<br>Password: <font color=\"Red\">(.*)<\/font><\/b>';
PerlRegEx1.Subject := rta;
if PerlRegEx1.Match then
begin
sEdit2.text := PerlRegEx1.SubExpressions[1];
sStatusBar1.Panels[0].text := '[+] Done';
Form1.sStatusBar1.Update;
end
else
begin
sEdit2.text := '';
sStatusBar1.Panels[0].text := '[-] Not Found';
Form1.sStatusBar1.Update;
end;
end;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
sSkinManager1.SkinName := 'neonnight';
sSkinManager1.Active := True;
end;
procedure TForm1.sButton1Click(Sender: TObject);
begin
sEdit2.SelectAll;
sEdit2.CopyToClipboard;
end;
procedure TForm1.sButton2Click(Sender: TObject);
begin
ShowMessage('Contact to lepuke[at]hotmail[com]');
end;
procedure TForm1.sButton3Click(Sender: TObject);
begin
Form1.Close();
end;
end.
// The End ?
Si quieren bajar el programa lo pueden hacer de aca.
