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] MD5 Cracker 0.1

  • 1 Respuestas
  • 1425 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Mayo 19, 2013, 10:58:22 pm »
Un simple programa para crackear un hash MD5 hecho en Delphi.

Una imagen :



El codigo :

Código: Delphi
  1. // MD5 Cracker 0.1
  2. // Coded By Doddy H
  3. // Based on the services :
  4. // http://md5.hashcracking.com/
  5. // http://md5.rednoize.com
  6. // http://md52.altervista.org
  7.  
  8. unit md5;
  9.  
  10. interface
  11.  
  12. uses
  13.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  14.   Dialogs, sSkinManager, StdCtrls, sButton, sEdit, sGroupBox, jpeg, ExtCtrls,
  15.   ComCtrls, sStatusBar, IdBaseComponent, IdComponent, IdTCPConnection,
  16.   IdTCPClient, IdHTTP, PerlRegEx;
  17.  
  18. type
  19.   TForm1 = class(TForm)
  20.     sSkinManager1: TsSkinManager;
  21.     Image1: TImage;
  22.     sGroupBox1: TsGroupBox;
  23.     sEdit1: TsEdit;
  24.     sGroupBox2: TsGroupBox;
  25.     sEdit2: TsEdit;
  26.     sGroupBox3: TsGroupBox;
  27.     sStatusBar1: TsStatusBar;
  28.     Crack: TsButton;
  29.     sButton1: TsButton;
  30.     sButton2: TsButton;
  31.     sButton3: TsButton;
  32.     IdHTTP1: TIdHTTP;
  33.     PerlRegEx1: TPerlRegEx;
  34.     procedure sButton2Click(Sender: TObject);
  35.     procedure sButton3Click(Sender: TObject);
  36.     procedure CrackClick(Sender: TObject);
  37.     procedure sButton1Click(Sender: TObject);
  38.     procedure FormCreate(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. var
  46.   Form1: TForm1;
  47.  
  48. implementation
  49.  
  50. {$R *.dfm}
  51.  
  52. procedure TForm1.CrackClick(Sender: TObject);
  53. var
  54.   rta: string;
  55.  
  56. begin
  57.  
  58.   sStatusBar1.Panels[0].text := '[+] Searching in md5.hashcracking.com ...';
  59.   Form1.sStatusBar1.Update;
  60.  
  61.   rta := IdHTTP1.Get
  62.     ('http://md5.hashcracking.com/search.php?md5=' + sEdit1.text);
  63.  
  64.   PerlRegEx1.Regex := 'Cleartext of (.*) is (.*)';
  65.   PerlRegEx1.Subject := rta;
  66.   if PerlRegEx1.Match then
  67.   begin
  68.     sEdit2.text := PerlRegEx1.SubExpressions[2];
  69.     sStatusBar1.Panels[0].text := '[+] Done';
  70.     Form1.sStatusBar1.Update;
  71.   end
  72.   else
  73.   begin
  74.  
  75.     sStatusBar1.Panels[0].text := '[+] Searching in md5.rednoize.com ...';
  76.     Form1.sStatusBar1.Update;
  77.  
  78.     rta := IdHTTP1.Get('http://md5.rednoize.com/?q=' + sEdit1.text);
  79.  
  80.     PerlRegEx1.Regex := '<div id=\"result\" >(.*)<\/div>';
  81.     PerlRegEx1.Subject := rta;
  82.     if PerlRegEx1.Match then
  83.  
  84.     begin
  85.  
  86.       if not(Length(PerlRegEx1.SubExpressions[1]) = 32) then
  87.       begin
  88.         sEdit2.text := PerlRegEx1.SubExpressions[1];
  89.         sStatusBar1.Panels[0].text := '[+] Done';
  90.         Form1.sStatusBar1.Update;
  91.       end
  92.       else
  93.  
  94.       begin
  95.  
  96.         sStatusBar1.Panels[0].text :=
  97.           '[+] Searching in md52.altervista.org ...';
  98.         Form1.sStatusBar1.Update;
  99.  
  100.         rta := IdHTTP1.Get
  101.           ('http://md52.altervista.org/index.php?md5=' + sEdit1.text);
  102.  
  103.         PerlRegEx1.Regex :=
  104.           '<br>Password: <font color=\"Red\">(.*)<\/font><\/b>';
  105.         PerlRegEx1.Subject := rta;
  106.  
  107.         if PerlRegEx1.Match then
  108.         begin
  109.           sEdit2.text := PerlRegEx1.SubExpressions[1];
  110.           sStatusBar1.Panels[0].text := '[+] Done';
  111.           Form1.sStatusBar1.Update;
  112.  
  113.         end
  114.         else
  115.         begin
  116.           sEdit2.text := '';
  117.           sStatusBar1.Panels[0].text := '[-] Not Found';
  118.           Form1.sStatusBar1.Update;
  119.         end;
  120.       end;
  121.  
  122.     end;
  123.   end;
  124.  
  125. end;
  126.  
  127. procedure TForm1.FormCreate(Sender: TObject);
  128. begin
  129.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  130.   sSkinManager1.SkinName := 'neonnight';
  131.   sSkinManager1.Active := True;
  132. end;
  133.  
  134. procedure TForm1.sButton1Click(Sender: TObject);
  135. begin
  136.   sEdit2.SelectAll;
  137.   sEdit2.CopyToClipboard;
  138. end;
  139.  
  140. procedure TForm1.sButton2Click(Sender: TObject);
  141. begin
  142.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  143. end;
  144.  
  145. procedure TForm1.sButton3Click(Sender: TObject);
  146. begin
  147.   Form1.Close();
  148. end;
  149.  
  150. end.
  151.  
  152. // The End ?
  153.  

Si quieren bajar el programa lo pueden hacer de aca.


Desconectado D4rkC0d3r

  • *
  • Underc0der
  • Mensajes: 202
  • Actividad:
    0%
  • Reputación 0
  • \xeb\x16\x5e\x31\xd2\
    • Ver Perfil
    • Ethical Hacking, Malware Analysis, Disinfection Techniques and more...
« Respuesta #1 en: Mayo 25, 2013, 03:18:37 am »
Gracias, buen aporte, bajando!  :D

D4rkC0d3r

 

¿Te gustó el post? COMPARTILO!



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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3265
Ú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: 2055
Ú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: 3513
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Project Arsenal X 0.2 (Regalo de navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 2947
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear
[Delphi] Creacion de un Troyano de conexion inversa

Iniciado por BigBear

Respuestas: 4
Vistas: 3796
Último mensaje Mayo 05, 2017, 09:10:55 am
por _inicio_cerrarsesión