elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  [Delphi] Magic Click 0.2
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Delphi] Magic Click 0.2  (Leído 1,537 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Delphi] Magic Click 0.2
« en: 19 Julio 2013, 20:04 pm »

Un simple programa para revelar los famosos asteriscos.

El clasico de los clasicos xDD.

Una imagen :



El codigo :

Código
  1. // Magic Click 0.2
  2. // Coded By Doddy H
  3. // Credits : Thanks to Victory Fernandes for their excellent manual on how to reveal asterisks
  4.  
  5. unit magic;
  6.  
  7. interface
  8.  
  9. uses
  10.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  11.  Dialogs, sSkinManager, jpeg, ExtCtrls, StdCtrls, sEdit, sGroupBox, sButton;
  12.  
  13. type
  14.  TForm1 = class(TForm)
  15.    sSkinManager1: TsSkinManager;
  16.    Image1: TImage;
  17.    sGroupBox1: TsGroupBox;
  18.    sEdit1: TsEdit;
  19.    sGroupBox2: TsGroupBox;
  20.    sButton1: TsButton;
  21.    sButton2: TsButton;
  22.    sButton3: TsButton;
  23.    Timer1: TTimer;
  24.    procedure sButton2Click(Sender: TObject);
  25.    procedure sButton3Click(Sender: TObject);
  26.    procedure Timer1Timer(Sender: TObject);
  27.  
  28.    procedure FormCreate(Sender: TObject);
  29.    procedure sButton1Click(Sender: TObject);
  30.  private
  31.    { Private declarations }
  32.  public
  33.    { Public declarations }
  34.  end;
  35.  
  36. var
  37.  Form1: TForm1;
  38.  
  39. implementation
  40.  
  41. {$R *.dfm}
  42.  
  43. procedure TForm1.FormCreate(Sender: TObject);
  44. begin
  45.  
  46.  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  47.  sSkinManager1.SkinName := 'neonnight';
  48.  sSkinManager1.Active := True;
  49.  
  50.  Timer1.Enabled := True;
  51.  
  52. end;
  53.  
  54. procedure TForm1.sButton2Click(Sender: TObject);
  55. begin
  56.  ShowMessage('Contact to lepuke[at]hotmail[com]');
  57. end;
  58.  
  59. procedure TForm1.sButton1Click(Sender: TObject);
  60. begin
  61.  sEdit1.SelectAll;
  62.  sEdit1.CopyToClipboard;
  63. end;
  64.  
  65. procedure TForm1.sButton3Click(Sender: TObject);
  66. begin
  67.  Form1.Close();
  68. end;
  69.  
  70. procedure TForm1.Timer1Timer(Sender: TObject);
  71. var
  72.  posicion: TPoint;
  73.  password: array [0 .. 63] of Char;
  74.  need: HWND;
  75. begin
  76.  GetCursorPos(posicion);
  77.  need := WindowFromPoint(posicion);
  78.  if SendMessage(need, EM_GETPASSWORDCHAR, 0, 0) <> 0 then
  79.  begin
  80.    SendMessage(need, WM_GETTEXT, 64, Longint(@password));
  81.    sEdit1.Text := password;
  82.  end;
  83. end;
  84.  
  85. end.
  86.  
  87. // The End ?
  88.  

Si quieren bajarlo pueden hacerlo de aca.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines