Да помнится было время, когда я очень долго искал информацию о возможности корректной отправки письма с вложениями . Компоненты от Инди (Indy) – это те еще фрукты. С русским языком помню были проблемы и прикрепленные файлы были испорчены или вообще не отсылались.

В этом посте я выкладываю исходники отправки электронной почты (email) для Delphi 7, 2007 , 2009 и 2010.

-:: Для Delphi 2007 ::-

...

type
TDummyEncode = class
protected
class procedure SetCharSet(var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: String);
end;

{ TEncode }

class procedure TDummyEncode.SetCharSet(var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: String);
begin
VCharSet:='windows-1251';
VTransferHeader := bit8;
VHeaderEncoding := 'B';
end;

procedure TForm1.SendMail();
var
Message : TIdMessage;
begin
IdSMTP1.Host := 'Host';
IdSMTP1.Username :='UserName';
IdSMTP1.Passwo ... Читать дальше »

uses shellapi;

procedure InstallScreenSaver(const FileName: string);
begin
{ Set this screensaver as default screensaver and open the properties dialog}
ShellExecute(Application.Handle, 'open', PChar('rundll32.exe'),
PChar('desk.cpl,InstallScreenSaver ' + FileName), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
InstallScreenSaver('c:\YourScreenSaverFile.scr');
end;

uses ...Registry; //подключаем модуль ...

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create('Control Panel');
Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp');
Reg.WriteString('desktop', 'TileWallpaper', '0');
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

Для достижения этого эффекта необходимо в события формы OnCreate и OnClose добавить следующий код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Handle, 1000, AW_BLEND)
end;
Длительность появления (исчезания) формы можно регулировать изменяя значение параметра, следующего за Handle.

И так, троян состоит из сервера и клиента, поэтому мы с вами должны создать два проекта "client" и "server" .
Клиент отпровляет комманды серверу а сервер в свою очередь их обробатывает.

CLIENT

Создаём новый проект и кидаем на форму clientsocket с вкладки internet, 2 edit- в них будем писать ип к которому будем коннектиться и текст мессаги, 8 button- которые будут посылать серверу комманды "также киньте на форму memo".

Для начала довайте компоненту clientsocket сменим имя на cs
Теперь измените свойство caption у ваших кнопок как показанно на скрине


теперь у формы в событии OnGreate пишим
code:
cs.Host:=edit1.Text; //Наш хост, тобиш ип который вы будете вписывать в edit1
cs.port:=123; //Указываем порт в нашем случае инфа будет передоваться через 123 порт
теперь у в обработчике собития OnClick кнопки "Коннект" пишем код

Цитата:var s:string;
begin
cs.Active:=true; //Коннектимся
if cs.Socket.Connected=true then begin //Если п ... Читать дальше »

Ну тут типо урок для начинающих в изучении дэльфи =))
Это не есть самый идеальный Trojan hosts, но все же он работает.
Сначало разберемся что это...
Hosts - файл который лежит C:\WINDOWS\system32\drivers\etc\hosts - но говорят что в реестре мона поменять путь и пользы от трояна не будет, в этом файле лежат всякие ассоциации компьтера с адресами (ну мож не прально но я постарался более внятно обьяснить)
например там стандартная строчка

code:

127.0.0.1 localhost
она обозначает следующие - localhost считать как 127.0.0.1 - т.е при коннекте по адресу localhost нас переадресовывает на 127.0.0.1.
Зачем пишут трояны которые редактирует hosts?
Ну это используется преимущественно людьми которые используют фэйковые страницы для кражи паролей и вирусописателями - вирусмэйкеры или как там прально )))
Зачем вирусописателями? - ну тут ответ прост, если прописать в hosts адреса обновлений антивирусника или файрвола и перенаправлять коннекты на ... Читать дальше »