begin
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1004', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1001', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1201', 3);
 QuarantineFile('C:\Users\Вова\appdata\local\temp\flash_player_update.exe','');
 TerminateProcessByName('c:\programdata\vksaver\vksaver.exe');
 QuarantineFile('C:\PROGRA~2\MYCENT~1\InfoBar\MYCENT~1.DLL','');
 QuarantineFile('C:\systemhost\24FC2AE31DB.exe','');
 QuarantineFile('C:\Program Files (x86)\Ticno\Tabs\Ticno Tabs.exe','');
 QuarantineFile('C:\Windows\system32\oaohnbe.dll','');
 TerminateProcessByName('c:\program files (x86)\ticno\tabs\ticno tabs.exe');
 DeleteFile('c:\program files (x86)\ticno\tabs\ticno tabs.exe');
 DeleteFile('C:\Program Files (x86)\Ticno\Tabs\sqlite3.dll');
 DeleteFile('C:\Windows\system32\oaohnbe.dll');
 DeleteFile('C:\Program Files (x86)\Ticno\Tabs\Ticno Tabs.exe');
 DeleteFile('C:\systemhost\24FC2AE31DB.exe');
 RegKeyParamDel('HKEY_USERS','.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run','YI9B2F0F4EXHXG2I');
 RegKeyParamDel('HKEY_USERS','S-1-5-18\Software\Microsoft\Windows\CurrentVersion\Run','YI9B2F0F4EXHXG2I');
 DeleteFile('C:\PROGRA~2\MYCENT~1\InfoBar\MYCENT~1.DLL');
 DeleteFile('C:\Program Files (x86)\Ticno\Tabs\TicnoTabsBho111217.dll');
 DeleteFile('c:\programdata\vksaver\vksaver.exe');
 DeleteFile('C:\Users\Вова\appdata\local\temp\flash_player_update.exe');
RegKeyStrParamWrite('HKEY_LOCAL_MACHINE','SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows','AppInit_DLLs','');
ExecuteSysClean;
BC_ImportAll;
BC_Activate;
RebootWindows(true);
end.

 begin
 CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
 end.

begin
 if FileExists(GetAVZDirectory + 'log\avz_log.txt') Then DeleteFile('log\avz_log.txt');
 If DownloadFile('http://dataforce.ru/~kad/ScanVuln.txt', GetAVZDirectory +'ScanVuln.txt') Then ExecuteScript('ScanVuln.txt')
 Else ShowMessage('Невозможно загрузить скрипт AVZ для обнаружения наиболее часто используемых уязвимостей!');
 if FileExists(GetAVZDirectory + 'log\avz_log.txt') Then ExecuteFile('notepad.exe', GetAVZDirectory + 'log\avz_log.txt', 1, 0, false);
ExitAVZ;
end.