Касперский находит трояна в файле GenGUID.exe

[feya]

Фигасе Result := True; оставил!)))

[Cowa]

Ну, это же все таки функция хотелось бы чтобы она что-нить возвращала. А то не красиво как-то.

[svp]

А может он потом навешивается на бинарь? Может в системе какой-нибудь процесс висит и дописывает к exe-шнику тело трояна.
Дебаггер дельфёый не ругается при трассировке? Если чистый проект откомпилить, будет его антивирус ловить? А если функции по одной комментить вместе с заголовками?

[feya]

А может он потом навешивается на бинарь?

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

[Cowa]

Да нет, в системе наверняка все путем. Просто при компиляции GenGUID получается комбинация байтиков, которая похожа на сигнатуру одного из вирусов. Вот антивирусы и надрываются.
У меня как-то давно была похожая ситуация - пришлось слегка поменять алгоритм. И заметил, что не любят антивирусы прямого обращения/копирования в памяти и некоторых вызовов API. Точнее их комбинаций между собой.
Нужен другой алгоритм генерации GUID.

[svp]

Я получаю GUID вызовом функции из SysUtils:

Код: Выделить всё

function CreateGUID(out Guid: TGUID): HResult;

А там внутри вызывается функция из системной библиотеки:

Код: Выделить всё

function CoCreateGuid(out guid: TGUID): HResult; stdcall; external 'ole32.dll' name 'CoCreateGuid';

И антивирусники не против.

[feya]

Дело не в генерации ID а в ф-ии копирования в буффер. Менять не хочу, т.к. существенно возрастет размер программки, при использовании clipbrd - до 360 kb!

[Cowa]

feya
Точно. Только что скомпилил, подставив вместо
SetClipboardText(GetConsoleCP, PUID);
строку
Clipboard.AsText:=PUID;
Антивируснки не ругаются. Размер 368 kb. Ну и ладно, с размером-то. Главное тихо все
Если 368 это много, можно пропустить через UPX - в результате 152 kb.
Ну или разбираться с Clipboard

[feya]

Все, нашел другую ф-ю:
procedure CopyStringToClipboard(s: string);
var hg: THandle;
P: PChar;
begin
hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, Length(S)+1);
P:=GlobalLock(hg);
StrPCopy(P, s);
GlobalUnlock(hg);
OpenClipboard(GetConsoleCP);
SetClipboardData(CF_TEXT, hg);
CloseClipboard;
GlobalFree(hg);
end;

Антивирусы не ругаются, а размер тотже

[Parasite]

Все, нашел другую ф-ю:
Антивирусы не ругаются, а размер тотже

Ммда...дожили......Софт подстраивают под антивирусы!!
O tempora, o mores....

PS: это я не к автору - автор-то тут как раз ни при чем... Это я так, немного тематически оффтоплю.