Стаття delphi trojan hosts

Ось така ось велика роль маленького файлу)))

Сьогодні від нєфіг робити, напишемо свій, невеликий Trojan hosts - поки палиця тільки якимись хітрожопие антивирь

Для початку придумаємо алгоритм. Поиде троян повинен відкрити файл для читання і додати рядок - що то типо

зберегти новий файл і закінчити роботу.

Ну що? приступимо.
Для початку створюємо новий проект - File => New => Other => Console Application.
Відем що то типо

Приберемо все зайве

отримуємо що то типо

Хто вивчав паскаль - згадуємо, тут все просто, в uses підключаємо Windows, Classes; по ходу роботи буду пояснювати навіщо.

Далі, потрібно закинути функцію знаходження WinDir - адже винда може стояти не на С: / а на D: / або подібному.
функція стиренная хз де виглядає так -

саме для неї потрібен модуль Windows
записуємо отримуємо що то типо

далі, ми можемо відкривати файл і писати в нього так

але ми ж не шукаємо легких шляхів! тому використовуємо TStringList
повідомляємо змінну host як TStringList -

Далі ми повинні створити цей лист, пишемо після Бегіна

- так ми створюємо стринг лист і він має формат що то типо

тобто ми можемо додавати в нього прямо рядки host.Add ( 'Текст'); а потім просто записувати! Але знову ж таки ми не шукаємо легких шляхів! І для впевненості будемо довантажувати старий hosts
ми робимо так

до TStringList - можна звертатися як до TMemo, значить є і фунцкія збереження! SaveToFile
повернемося до коду.
і так. ми створили лист, довантажити хостс і його вміст, тепер треба додати рядок, нагадую це ми робимо так -

і так.
тепер вміст хостс вантажиться в стринг лист і в нього додається новий рядок! АЛЕ ми ж не зберегли ще!
це робимо так

У вас немає прав щоб бачити прихований текст, який знаходиться тут

Після компіляції вага програми 85кб. а після стиснення ASPack - 43кб. а якщо стискати PeCompact'ом вага - 39кб - але буде паліться багатьма антивирь як "Packed PeCompact"

Метод 2.
повернемося до

це ще більш крутий метод, для нього не треба модуль Classes - а значить вага знижується рази!
Власне повідомляємо змінну

Далі пишемо після Бегіна

У вас немає прав щоб бачити прихований текст, який знаходиться тут

Питання до мего профі, як можна зробити вагу ще менше?