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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Производитель файла ли убийство вируса, Хелп читал. 
V
    Опции темы
AlexSam
  Дата 9.8.2006, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Преветствую всех... появилась у меня вреданосная программа (скрывает расширения файлов и помещает в папки копии себя с названием папки в которой находится и ярлыком папки при этом удаляя exe файл программы там находящейся который чаще всего называется так же как и папка) . Я решил эту рограмму програмно убить путем удаления с компьютера всех ее копий. Я перечитываю винчестер нахожу все exe файлы и надо прочитать производителя файлов (у больных он Xgtray) . В хелпе есть пример как это сделать , но он почему-то работает далеко не со всеми файлами. Вот мой код:
Код

function TestEX(TestedFile:string):pchar;
var buf,Data:pchar;
    len,n:dword;

begin
Result:='';
n := GetFileVersionInfoSize(PChar(TestedFile), n);
if n>0 then
   begin
   buf:=allocmem(n);
   getfileversioninfo(pchar(TestedFile),0,n,buf);
   verqueryvalue(buf,PChar('StringFileInfo\040904E4\ProductName'),pointer(Data),len);
   Result:=Data;
   FreeMem(Buf, n);
   end;
end;

Некоторые файлы определяются корректно , но большенство возвращает либо '' либо нечто вида #$11'S' , хотя windows определяет все нормально.
PM MAIL   Вверх
Romikgy
Дата 9.8.2006, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
а под Data память выделять не нуно?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Alexeis
Дата 9.8.2006, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 109
Всего: 459
AlexSam, Лучше уж антивирусом, а то она может хуков понавешивала, и не дает увидеть свои файлы.


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snowy
Дата 9.8.2006, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
040904E4 - это код языка.
В разных программах он может различаться.
PM MAIL   Вверх
AlexSam
Дата 9.8.2006, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

040904E4 - это код языка.
В разных программах он может различаться

Ага... А какие еще могут быть варианты?
PM MAIL   Вверх
ne0n
Дата 9.8.2006, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


PlayBoy
**


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

Репутация: 1
Всего: 11
Цитата(AlexSam @  9.8.2006,  14:24 Найти цитируемый пост)
Ага... А какие еще могут быть варианты?


Контрольная сумма например smile 



--------------------
http://sa-sec.org
как я вам?smile
PM MAIL ICQ   Вверх
AlexSam
Дата 9.8.2006, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Мне просто тогда нужен код для Китайского(КНР) языка smile 
PM MAIL   Вверх
dumb
Дата 9.8.2006, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 13
Всего: 158
тебе просто нужно перечислить все языки, прописанные в инфо. фпоиск
PM MAIL   Вверх
AlexSam
Дата 9.8.2006, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Спасибо..работает .
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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