Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
procedure CreateLink(const FileName, LinkSelfFileName: pchar); var IObject: IUnknown; begin Coinitialize(nil); if CoCreateInstance(CLSID_ShellLink, nil, 1 or 4, IUnknown, IObject) <> 0 then begin CoUninitialize;exit;end; (IObject as IShellLink).SetPath(FileName); (IObject as IPersistFile).Save( PWChar(WideString(LinkSelfFileName)), FALSE); CoUninitialize; end;
if(strpos($content,'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'))
{
echo "Seems like \"Virus.Win32.AdWare\"";
}
* This source code was highlighted with Source Code Highlighter.
Программист и антивирус II — окончание истории