VPF::проблема скрытия файлов - Форум программистов

Teran

Дата 12.4.2006, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

никто не сталквался с программами Elite Keylogger
Почему когда после установки этой проги код поиска файлов не работает

Код


procedure TSpyJackerMainForm.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
begin
  if FindFirst('c:\windows\system32\'+*.*, faAnyFile, SearchRec) = 0 then
  begin
    repeat
       if(pos(UpperCase('mscache.dll'),UpperCase(SearchRec.Name))>0)or
         (pos(UpperCase('windump.dll'),UpperCase(SearchRec.Name))>0)or
         (pos(UpperCase('mciole.dll'),UpperCase(SearchRec.Name))>0) then ShowMessage(SearchRec.Name);

    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
end;

хотя точно известно что они там писутствуют т.к. программа SpySweeper от Webroot их прекрасно видит
smile

--------------------

Ни цего не понимаю

Poseidon

Дата 12.4.2006, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Ну во-первых begin что в 6 строке тут лишний.
Во-вторых, нужно писать так: if FindFirst('c:\windows\system32\*.*', ...
В-третьих зачем переводить в верхний регистр известную нам строку? (хоть это и не существенно, но все же). Достаточно и так: if(pos('MSCACHE.DLL',UpperCase(SearchRec.Name))>0)or ...

PS. У меня таких фалов в System32 нету.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Teran

Дата 12.4.2006, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

да

Цитата(Poseidon @ 12.4.2006, 17:09

)

писал по памати может и ошибся но это не главное

я имею ввиду что когда уставливаеш прогу Elite Keylogger
она както хитро прячет вот эти файлы (которых естественно у тебя нбудет пока не установиш) а вот как их определить ?? smile

может кто знает можно ли избавится от API хука например на функцию FindNextFile ???

smile

--------------------

Ни цего не понимаю

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »