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] Magic Click 0.2

  • 1 Respuestas
  • 1371 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 19, 2013, 03:04:06 pm »
Un simple programa para revelar los famosos asteriscos.

El clasico de los clasicos xDD.

Una imagen :



El codigo :

Código: Delphi
  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 No tienes permisos para ver links. Registrate o Entra con tu cuenta.

Desconectado CrazyKade

  • *
  • Underc0der
  • Mensajes: 182
  • Actividad:
    0%
  • Reputación 0
  • Я только знаю что ничего не знаю!
    • Ver Perfil
« Respuesta #1 en: Julio 19, 2013, 03:20:34 pm »
Interesante! Buen aporte!  8)

 

¿Te gustó el post? COMPARTILO!



[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1982
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3126
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3254
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1410
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon
[Delphi] Project Arsenal X 0.2 (Regalo de navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 2574
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear