VPF::nthide.dll - Форум программистов

spamici

Дата 17.11.2009, 18:28 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет!

Наткнулся на Ваш форум при поиске "как спрятать программу в WinXP" и нашёл это:
http://forum.vingrad.ru/faq/topic-157696.html

Но вопросик: как быть? При компиляции выдает две ошибки на линии 91 - Incompatible types Char and PChar
Помогите пожалуйста чайнику! Спасибо!

~FoX~

Дата 17.11.2009, 20:17 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 5
Всего: 68

spamici, ошибка в 91 строке...
Код покажи, а то все экстросенсы нынче в отпуске....

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

…множественность никогда не следует полагать без необходимости…

Keeper89

Дата 17.11.2009, 21:09 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

И зачем

Цитата(spamici @ 17.11.2009, 19:28

)

чайнику

понадобилось скрывать процесс? smile

~FoX~, +1

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

spamici

Дата 18.11.2009, 03:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Так я взял код отсюда: http://forum.vingrad.ru/faq/topic-157696.html .. ВЕСЬ

Код


begin 
 pImportDesc:= ImageDirectoryEntryToData(Pointer(hmodCaller), TRUE,IMAGE_DIRECTORY_ENTRY_IMPORT, ulSize); 
  if pImportDesc = nil then exit; 
  while pImportDesc.Name<>0 do 
   begin 
    pszModName := PChar(hmodCaller + pImportDesc.Name); 
     if (lstrcmpiA(pszModName, pszCallerModName) = 0) then break; 
    Inc(pImportDesc); 
   end;

Взял код и попытался скомпилировать nthide.dll
На вот этой линии:

Код


    if (lstrcmpiA(pszModName, pszCallerModName) = 0) then break;

Выплевывает 2 ошибки о несовместимости Char и PChar...

Добавлено @ 03:24

Цитата(Keeper89 @ 17.11.2009, 21:09)

И зачем

Цитата(spamici @ 17.11.2009, 19:28

)

чайнику

понадобилось скрывать процесс? smile

~FoX~, +1

Ну... юзаю чит программку в одной сетевой игрушке )) Хочу спрятать чит прогу, мало ли ))))))))
Да и вообще! Учиться не вредно!

Это сообщение отредактировал(а) spamici - 18.11.2009, 03:25

Keeper89

Дата 18.11.2009, 12:49 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

spamici, версия Delphi?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

spamici

Дата 18.11.2009, 20:02 (ссылка)

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

Загрузка ...

Новичок

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

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

2009 =)

former

Дата 18.11.2009, 23:14 (ссылка)

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

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17

Цитата(Keeper89 @ 17.11.2009, 21:09

)

И зачем
Цитата(spamici @ 17.11.2009, 19:28) чайнику
понадобилось скрывать процесс? smile

Keeper89, а ты на ник посмотри. Троян пишет, как пить дать. smile

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

spamici

Дата 19.11.2009, 02:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(former @ 18.11.2009, 23:14)

Цитата(Keeper89 @ 17.11.2009, 21:09

)

И зачем
Цитата(spamici @ 17.11.2009, 19:28) чайнику
понадобилось скрывать процесс? smile

Keeper89, а ты на ник посмотри. Троян пишет, как пить дать. smile

нет! а ник, это потому что не зная куда попадаю, не ставлю свой часто используемый ник, ни мыло ))))))
и уж если я тут не могу разобраться, то до троянов мне далеко!

kami

Дата 19.11.2009, 02:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Цитата(former @ 18.11.2009, 23:14

)

Троян пишет, как пить дать.

Да и пусть.
От ProcessExplorer таким образом не скрыться. А если еще подключить ProcessHunter, то и другими тоже smile

Цитата(spamici @ 18.11.2009, 20:02

)

2009 =)

В этом модуле заменить везде PChar на PAnsiChar. Может помочь (сильно в код не вникал). Хотя, если там используются функции, имеющие 2 варианта (как, например, lstrcmpi (Unicode и Ansi) ) то это не поможет, а только навредит коду. Единственный выход - внимательно смотреть и править всё либо на юникод либо а ansi.

~FoX~

Дата 19.11.2009, 07:43 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 5
Всего: 68

Xnj вы человека путаете? smile

spamici,

Код


if (lstrcmpiA (PAnsiChar(pszModName), PAnsiChar(pszCallerModName)) = 0)

И там еще косячек есть

Код


 mov Result, eax
end; //<-----точку с запятой надо поставить
procedure InterceptFunctions;

И все у тебя скампилица...тока вот спрятася у меня не получилось..

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

…множественность никогда не следует полагать без необходимости…

kami

Дата 19.11.2009, 08:45 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Цитата(~FoX~ @ 19.11.2009, 07:43

)

Xnj вы человека путаете?

Почему путаете?

Цитата(~FoX~ @ 19.11.2009, 07:43

)

if (lstrcmpiA (PAnsiChar(pszModName), PAnsiChar(pszCallerModName)) = 0)

не проще (и правильнее, все-таки в D2009 PChar=PWideChar) сделать

Код


if (lstrcmpiW(pszModName, pszCallerModName) = 0) then

Цитата(~FoX~ @ 19.11.2009, 07:43

)

И все у тебя скампилица..

Скомпилироваться-то скомпилируется, а вот работать правильно - хз...

~FoX~

Дата 19.11.2009, 12:15 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 5
Всего: 68

Цитата(kami @ 19.11.2009, 09:45

)

не проще (и правильнее, все-таки в D2009 PChar=PWideChar) сделать

Не уверен я как то что это правильней, но тут личное дело каждого...
В любом случае, во первых процесс не скрывается, а во вторых меня задолбал антивирусник хрюкать... smile

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

…множественность никогда не следует полагать без необходимости…

spamici

Дата 19.11.2009, 19:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Снова привет!
Спасибо - всё скомпилилось и с примером Fox-а и kami да только вот теперь

Код


function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall; external 'nthide.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  HideProcess(GetCurrentProcessId, true);
end;

нифига не прячет (( вижу в TaskManager-е свою Project1.exe... получается не работает этот метод? А где тот который работает? ))

kami

Дата 19.11.2009, 22:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Цитата(spamici @ 19.11.2009, 19:50

)

получается не работает этот метод?

работает. Но не скрывает от ProcessExplorer и ProcessHunter (у последнего полтора десятка вариантов получения списка процессов, учитывать каждый из них - убиться можно). Когда заморачивался на скрытие, пользовался (возможно, даже именно этим, правда из другого источника) кодом. Компилировалось на D7 и проверялось на WinXP и Win2000. В Vista и Win7 возможно работать не будет.
P.S. Когда понял, что скрываться бесполезно и даже вредно, забросил эту библиотеку куда подальше smile

spamici

Дата 20.11.2009, 02:35 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(kami @ 19.11.2009, 22:30)

Цитата(spamici @ 19.11.2009, 19:50

)

получается не работает этот метод?

Так я в WinXP Pro SP3 и у меня он нигде не прячется. При ctrl+alt+del всё равно видно.

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