Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Помогите разобратся. 
:(
    Опции темы
COOLHack
Дата 19.10.2008, 20:09 (ссылка) | (голосов:5) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
Нашел в интернете код ослепления антивируса касперского, но не пойму его принцип  работы, вы не могли бы объяснить???


P/S/ Пытался компелировать, нормально, но вот ослепляет он каспера или нет, я так и не понял.



Код

Function CheckForParentp():Boolean; 
var 
lclCurrProc: TProcessEntry32; 
lclPrntProc: TProcessEntry32; 
lclSnapHndl: THandle; 
lclEXEName: String; 
lclPrntName: String; 

begin 
lclSnapHndl := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0); 


lclEXEName := ExtractFileName(Application.ExeName); 

 
lclCurrProc.dwSize := SizeOf(TProcessEntry32); 
lclPrntProc.dwSize := SizeOf(TProcessEntry32); 



Process32First(lclSnapHndl, lclCurrProc); 
repeat 
if lclCurrProc.szExeFile = lclEXEName then 
Break; 
until (not Process32Next(lclSnapHndl, lclCurrProc)); 



Process32First(lclSnapHndl, lclPrntProc); 
repeat 
if lclPrntProc.th32ProcessID = lclCurrProc.th32ParentProcessID then 
Break; 
until (not Process32Next(lclSnapHndl, lclPrntProc)); 


lclPrntName := lclPrntProc.szExeFile; 
If pos('explorer.exe',lclPrntName)=0 Then Result:=True else Result:=False; 
end; 


Прошу построчно объяснить что делает данный код.

Это сообщение отредактировал(а) COOLHack - 19.10.2008, 20:44
PM MAIL   Вверх
kemiisto
  Дата 19.10.2008, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160
Цитата(COOLHack @  19.10.2008,  19:09 Найти цитируемый пост)
Нашол

Цитата(COOLHack @  19.10.2008,  19:09 Найти цитируемый пост)
комелировать

И не стыдно?! smile 

Цитата(COOLHack @  19.10.2008,  19:09 Найти цитируемый пост)
ослепляет он каспера или нет, я так и не понял

А я вот никак не пойму, что такое "ослепить каспера"? И кто такой "каспер"? smile 

COOLHack, неужели больше нечем заняться? Много свободного времени? Возьмите-ка лучше учебник что-ли какой по русскому языку... Полезнее будет... 


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
Данкинг
Дата 19.10.2008, 21:10 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(COOLHack @  19.10.2008,  21:09 Найти цитируемый пост)
я так и не понял.

Зачем тогда он (код) тебе нужен? Оставь бедное привидение Каспера в покое. smile  smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Christoph
Дата 19.10.2008, 21:49 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11
а у тебя есть каспер?....кста код что то небольшой smile мало вероястно...что оно работает... хотя что там делается, я даж не знаю smile


--------------------
user posted image
PM MAIL ICQ   Вверх
COOLHack
Дата 19.10.2008, 22:12 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
Специально чтоб протестировать поставил самый новый, скачанный с офф сайта. Компельнул код, и после этого примерно через 30 секунд вылез синий экран смерти, комп естественно вырубился. ПРоделал это 2 раза, так что случайностей быть не может...


Объясните плз что сделал данный код.

Добавлено @ 22:17
Цитата(Данкинг @  19.10.2008,  21:10 Найти цитируемый пост)
Зачем тогда он (код) тебе нужен? Оставь бедное привидение Каспера в покое. 


а затем, чтоб узнать пичину синего экрана смерти, который вылазиет через 30 сек после компиляции кода.


Это сообщение отредактировал(а) COOLHack - 19.10.2008, 22:22
PM MAIL   Вверх
Данкинг
Дата 19.10.2008, 22:20 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Не знаю, что сделал код, но никаких внешних программ он определённо не трогает.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Christoph
Дата 19.10.2008, 23:41 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11
Не знаю....вроде бы как прога собирает инфу по процессам, но какое отношение оно имеет к касперу, и каких то явных изменений....не видно :( попробую порыться smile Сейчас попробую скомпилить этот код smile если писать больше не буду, значит комп погиб синим окном  smile 


--------------------
user posted image
PM MAIL ICQ   Вверх
Alexeis
Дата 19.10.2008, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Модератор: Название темы должно отражать ее суть!


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0530 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.