Создайте совой сканер и удаляй вирусы или трояны которые пихают вам назойливую рекламу. Описание different сканер может обнаружить Рекламного BackDoors Hijackers KeyLogger Червь Вирус (Scanner не удаляет/не копирует / не перемещает файлы) Пример: Код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls, SkinCtrls, SkinBoxCtrls, SkinExCtrls, ThemeMgr, WinSkinStore, WinSkinData, ExtCtrls, ImgList; тип TForm1 = class(TForm) VirusDetecter: TMemo; BitBtn1: TBitBtn; ProgressBar1: TProgressBar; SkinData1: TSkinData; Button1: TButton; Label1: TLabel; Timer1: TTimer; Button2: TButton; SaveDialog1: TSaveDialog; procedure BitBtn1Click(Sender: TObject); procedure Button1Click(Sender: TObject); процедура Timer1Timer(Sender: TObject); procedure Button2Click(Sender: TObject); private { Частные заявления } публика { Публичные заявления } end; Вар Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin If FileExists('c:\Documents and Settings\All Users\Application Data\imevata.exe')then VirusDetecter.Лайнс.Add('[Adware] PC Security 2009 -> c:\Documents and Settings\All Users\Application Data\imevata.exe'); If FileExists('c:\WINDOWS\system32\sibajisehe.exe')then VirusDetecter.Лайнс.Add('[Adware] PC Security 2009 -> c:\WINDOWS\system32\sibajisehe.exe'); If FileExists('c:\Program Files\PC_Security2009\Uninstall.exe')then VirusDetecter.Лайнс.Add('[Adware] PC Security 2009 -> c:\Program Files\PC_Security2009'); If FileExists('c:\WINDOWS\system32\exeneqaze.vbs')then VirusDetecter.Лайнс.Add('[Adware] PC Security 2009 -> c:\WINDOWS\system32\exeneqaze.vbs'); If FileExists('c:\Documents and Settings\All Users\Documents\emytijy.bat')then VirusDetecter.Лайнс.Add('[Adware] PC Security 2009 -> c:\Documents and Settings\All Users\Documents\emytijy.bat'); If FileExists('C:\Documents and Settings\All Users\Start Menu\Programs\Live-Player')then VirusDetecter.Лайнс.Add('[Adware] Live-Player -> C:\Documents and Settings\All Users\Start Menu\Programs\Live-Player'); If FileExists('c:\Program Files\Live-Player')then VirusDetecter.Лайнс.Add('[Adware] Live-Player -> c:\Program Files\Live-Player'); If FileExists('c:\Program Files\Coreguard Antivirus 2009')then VirusDetecter.Лайнс.Add('[Adware] Coreguard Antivirus 2009 -> c:\Program Files\Coreguard Antivirus 2009'); If FileExists('c:\WINDOWS\Installer\$PatchCache$\Managed\D6461317C3DC4F04799BDCE9E42626FE\2.0.50727\energy.exe')then VirusDetecter.Лайнс.Add('[Adware] Antivir2009 “System Alert” -> c:\WINDOWS\Installer\$PatchCache$\Managed\D6461317C3DC4F04799BDCE9E42626FE\2.0.50727\energy.exe'); If FileExists('c:\WINDOWS\ServicePackFiles\i386\SICKBOY.exe')then VirusDetecter.Лайнс.Add('[Adware] Antivir2009 “System Alert” -> c:\WINDOWS\ServicePackFiles\i386\SICKBOY.exe'); If FileExists('c:\WINDOWS\system32\tjd.exe')then VirusDetecter.Лайнс.Add('[Adware] Antivir2009 “System Alert” -> c:\WINDOWS\system32\tjd.exe'); If FileExists('c:\Documents and Settings\All Users\Application Data\7c69f0c\UA2009.exe')then VirusDetecter.Лайнс.Add('[Adware] Antivir2009 “System Alert” -> c:\Documents and Settings\All Users\Application Data\7c69f0c\UA2009.exe'); If FileExists('c:\WINDOWS\assembly\GAC_MSIL\Microsoft.Build.Engine\2.0.0.0__b03f5f7f11d50a3a\energy.exe ')then VirusDetecter.Лайнс.Add('[Adware] Antivir2009 “System Alert” -> c:\WINDOWS\assembly\GAC_MSIL\Microsoft.Build.Engine\2.0.0.0__b03f5f7f11d50a3a\energy.exe '); If FileExists('c:\WINDOWS\std.drv')then VirusDetecter.Лайнс.Add('[Adware] Antivir2009 “System Alert” -> c:\WINDOWS\std.drv'); If FileExists('c:\WINDOWS\ServicePackFiles\i386\ppal.tmp')then VirusDetecter.Лайнс.Add('[Adware] Antivir2009 “System Alert” -> c:\WINDOWS\ServicePackFiles\i386\ppal.tmp'); If FileExists('c:\Documents and Settings\All Users\Application Data\7c69f0c\SystemStore\vd952342.bd')then VirusDetecter.Лайнс.Add('[Adware] Antivir2009 “System Alert” -> c:\Documents and Settings\All Users\Application Data\7c69f0c\SystemStore\vd952342.bd '); If FileExists('C:\Program Files\eAntiSpy')then VirusDetecter.Лайнс.Add('[Adware] eAntiSpy -> C:\Program Files\eAntiSpy'); If FileExists('C:\Program Files\MyCentria')then VirusDetecter.Лайнс.Add('[Adware] MyCentria -> C:\Program Files\MyCentria'); If FileExists('C:\Program Files\OneStep')then VirusDetecter.Лайнс.Add('[Adware] OneStep Search Tool -> C:\Program Files\OneStep'); If FileExists('C:\Documents and Settings\All Users\Documents\HBEPGUID.TXT')then VirusDetecter.Лайнс.Add('[Adware] OneStep Search Tool -> C:\Documents and Settings\All Users\Documents\HBEPGUID.TXT'); If FileExists('C:\Program Files\freeviewer')then VirusDetecter.Лайнс.Add('[Adware] Freview/Freeviewer -> C:\Program Files\freeviewer'); If FileExists('c:\WINDOWS\kvnab$.exe')then VirusDetecter.Лайнс.Add('[Adware] ADBreak -> c:\WINDOWS\kvnab$.exe'); If FileExists('c:\WINDOWS\kkcomp.exe')then VirusDetecter.Лайнс.Add('[Adware] ADBreak -> c:\WINDOWS\kkcomp.exe'); If FileExists('c:\WINDOWS\wbecheck.exe')then VirusDetecter.Лайнс.Add('[Adware] ADBreak -> c:\WINDOWS\wbecheck.exe'); If FileExists('c:\WINDOWS\kkcomp.exe')then VirusDetecter.Лайнс.Add('[Adware] ADBreak -> c:\WINDOWS\kkcomp.exe'); If FileExists('c:\WINDOWS\wbecheck.exe')then VirusDetecter.Лайнс.Add('[Adware] ADBreak -> c:\WINDOWS\wbecheck.exe'); If FileExists('c:\WINDOWS\kvnab$.exe')then VirusDetecter.Лайнс.Add('[Adware] ADBreak -> c:\WINDOWS\kvnab$.exe'); If FileExists('c:\WINDOWS\liqad.exe')then VirusDetecter.Лайнс.Add('[Adware] ADBreak -> c:\WINDOWS\liqad.exe'); If FileExists('c:\WINDOWS\liqad$.exe')then VirusDetecter.Лайнс.Add('[Adware] ADBreak -> c:\WINDOWS\liqad$.exe'); If FileExists('c:\WINDOWS\cbinst$.exe')then VirusDetecter.Лайнс.Add('[Adware] ADBreak -> c:\WINDOWS\cbinst$.exe'); If FileExists('c:\WINDOWS\winhost32.exe')then VirusDetecter.Лайнс.Add('[Adware] Virtumonde -> c:\WINDOWS\winhost32.exe'); If FileExists('c:\WINDOWS\system32\winhost32.exe')then VirusDetecter.Лайнс.Add('[Adware] Virtumonde -> c:\WINDOWS\system32\winhost32.exe'); If FileExists('c:\WINDOWS\system\winhost32.exe')then VirusDetecter.Лайнс.Add('[Adware] Virtumonde -> c:\WINDOWS\system\winhost32.exe'); If FileExists('c:\WINDOWS\system\winupd.dll')then VirusDetecter.Лайнс.Add('[Adware] Virtumonde -> c:\WINDOWS\system\winupd.dll'); If FileExists('c:\WINDOWS\winupd.dll')then VirusDetecter.Лайнс.Add('[Adware] Virtumonde -> c:\WINDOWS\winupd.dll'); If FileExists('c:\WINDOWS\WinTouch.exe')then VirusDetecter.Лайнс.Add('[Adware] WinTouch -> c:\WINDOWS\WinTouch.exe'); If FileExists('C:\Program Files\WinTouch')then VirusDetecter.Лайнс.Add('[Adware] WinTouch -> C:\Program Files\WinTouch'); If FileExists('c:\WinTouch.exe')then VirusDetecter.Лайнс.Add('[Adware] WinTouch -> c:\WinTouch.exe'); If FileExists('c:\Program Files\rhcnkrj0etfg')then VirusDetecter.Лайнс.Add('[BackDoor] CNN Alerts -> c:\Program Files\rhcnkrj0etfg'); If FileExists('c:\WINDOWS\system32\phcjkrj0etfg.bmp')then VirusDetecter.Лайнс.Add('[BackDoor] CNN Alerts -> c:\WINDOWS\system32\phcjkrj0etfg.bmp'); If FileExists('c:\WINDOWS\system32\blphcjkrj0etfg.scr')then VirusDetecter.Лайнс.Add('[BackDoor] CNN Alerts -> c:\WINDOWS\system32\blphcjkrj0etfg.scr'); If FileExists('c:\WINDOWS\system32\drivers\54c70b2e.sys')then VirusDetecter.Лайнс.Add('[BackDoor] CNN Alerts -> c:\WINDOWS\system32\drivers\54c70b2e.sys'); If FileExists('c:\Documents and Settings\LocalService\Application Data\rhcnkrj0etfg')then VirusDetecter.Лайнс.Add('[BackDoor] CNN Alerts -> c:\Documents and Settings\LocalService\Application Data\rhcnkrj0etfg'); If FileExists('c:\System32\sxmg4.dll')then VirusDetecter.Лайнс.Add('[BackDoor] FraudLoad -> c:\System32\sxmg4.dll'); If FileExists('c:\WINDOWS\System32\sxmg4.dll')then VirusDetecter.Лайнс.Add('[BackDoor] FraudLoad -> c:\WINDOWS\System32\sxmg4.dll'); If FileExists('c:\Documents and Settings\Kobayashi\Local Settings\Temp\rst.bat')then VirusDetecter.Лайнс.Add('[BackDoor] Digital Keylogger 3.3 Private -> c:\Documents and Settings\Kobayashi\Local Settings\Temp\rst.bat'); If FileExists('c:\Documents and Settings\Kobayashi\Local Settings\Temp\explorer.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Digital Keylogger 3.3 Private -> c:\Documents and Settings\Kobayashi\Local Settings\Temp\explorer.exe'); If FileExists('c:\WINDOWS\system32\dlllhost.exe')then VirusDetecter.Лайнс.Add('[BackDoor] LOST DOOR -> c:\WINDOWS\system32\dlllhost.exe'); If FileExists('c:\WINDOWS\A+++.exe')then VirusDetecter.Лайнс.Add('[BackDoor] A+++ -> c:\WINDOWS\A+++.exe'); If FileExists('c:\WINDOWS\winam.dat')then VirusDetecter.Лайнс.Add('[BackDoor] Activity Monitor 3.01 -> c:\WINDOWS\winam.dat'); If FileExists('c:\WINDOWS\mssystem.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Admin GG -> c:\WINDOWS\mssystem.exe'); If FileExists('c:\WINDOWS\mssystem.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Admin GG -> c:\WINDOWS\mssystem.exe'); If FileExists('c:\Documents and Settings\All Users\Start Menu\Programs\Startup\system.exe')then VirusDetecter.Лайнс.Add('[BackDoor] AIKON Logger -> c:\Documents and Settings\All Users\Start Menu\Programs\Startup\system.exe'); If FileExists('c:\WINDOWS\SYSTEM\AIRserver.exe')then VirusDetecter.Лайнс.Add('[BackDoor] AIR -> c:\WINDOWS\SYSTEM\AIRserver.exe'); If FileExists('c:\WINNT\system32\Server.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Almq -> c:\WINNT\system32\Server.exe'); If FileExists('C:\WINDOWS\SYSTEM\dat92003.exe')then VirusDetecter.Лайнс.Add('[BackDoor] AOL Admin -> C:\WINDOWS\SYSTEM\dat92003.exe'); If FileExists('c:\WINDOWS\system32\abacab.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Abacab -> c:\WINDOWS\system32\abacab.exe'); If FileExists('c:\WINDOWS\system32\protoc.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Abacab -> c:\WINDOWS\system32\protoc.exe'); If FileExists('c:\WINDOWS\SYSTEM\A4.EXE')then VirusDetecter.Лайнс.Add('[BackDoor] A4zeta -> c:\WINDOWS\SYSTEM\A4.EXE'); If FileExists('c:\WINDOWS\system32\regsvr.exe')then VirusDetecter.Лайнс.Add('[BackDoor] APS -> c:\WINDOWS\system32\regsvr.exe'); If FileExists('c:\WINDOWS\arar.exe')then VirusDetecter.Лайнс.Add('[BackDoor] ARAB RAT -> c:\WINDOWS\arar.exe'); If FileExists('c:\WINDOWS\system32\Aroot.exe')then VirusDetecter.Лайнс.Add('[BackDoor] ARAB RAT -> c:\WINDOWS\system32\Aroot.exe'); If FileExists('c:\WINDOWS\system32\Kernel.bat')then VirusDetecter.Лайнс.Add('[BackDoor] ARAB RAT -> c:\WINDOWS\system32\Kernel.bat'); If FileExists('C:\WINDOWS\ARSD.EXE')then VirusDetecter.Лайнс.Add('[BackDoor] Arsd -> C:\WINDOWS\ARSD.EXE'); If FileExists('C:\WINDOWS\SysReq.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Asylum -> C:\WINDOWS\SysReq.exe'); If FileExists('c:\WINDOWS\Taskmon .exe')then VirusDetecter.Лайнс.Add('[BackDoor] AYO Cam Spy -> c:\WINDOWS\Taskmon .exe'); If FileExists('c:\windows\rundll16.exe')then VirusDetecter.Лайнс.Add('[BackDoor] A-Trojan -> c:\windows\rundll16.exe'); If FileExists('C:\WINDOWS\SYSTEM\MY_BACKDOOR (NO X WIN 2000).exe')then VirusDetecter.Лайнс.Add('[BackDoor] Backfire -> C:\WINDOWS\SYSTEM\MY_BACKDOOR (NO X WIN 2000).exe'); If FileExists('c:\windows\notpa.exe')then VirusDetecter.Лайнс.Add('[BackDoor] BackDoor -> c:\windows\notpa.exe'); If FileExists('c:\WINDOWS\regclean.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Badluck Reloaded -> c:\WINDOWS\regclean.exe'); If FileExists('c:\WINDOWS\AVG-RUN.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Bump RAT -> c:\WINDOWS\AVG-RUN.exe'); If FileExists('c:\WINDOWS\twunk_12.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Bump RAT -> c:\WINDOWS\twunk_12.exe'); If FileExists('c:\WINDOWS\twumk_32.dll')then VirusDetecter.Лайнс.Add('[BackDoor] Bump RAT -> c:\WINDOWS\twumk_32.dll'); If FileExists('c:\WINDOWS\svdhost.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Bugs Prey -> c:\WINDOWS\svdhost.exe'); If FileExists('C:\WINDOWS\SYSTEM\SYSTEMTR.EXE')then VirusDetecter.Лайнс.Add('[BackDoor] Bugs -> C:\WINDOWS\SYSTEM\SYSTEMTR.EXE'); If FileExists('c:\WINDOWS\netcfga.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Barisot -> c:\WINDOWS\netcfga.exe'); If FileExists('c:\WINDOWS\BODY.LG')then VirusDetecter.Лайнс.Add('[BackDoor] Bugs -> c:\WINDOWS\BODY.LG'); If FileExists('C:\WINDOWS\SYSTEM\DDRAW16.EXE')then VirusDetecter.Лайнс.Add('[BackDoor] Barbie -> C:\WINDOWS\SYSTEM\DDRAW16.EXE'); If FileExists('c:\WINDOWS\Cmctl32.exe')then VirusDetecter.Лайнс.Add('[BackDoor] BackConstruction -> c:\WINDOWS\Cmctl32.exe'); If FileExists('c:\TEMP12345678.exe')then VirusDetecter.Лайнс.Add('[BackDoor] B-|R.A.T|-T -> c:\TEMP12345678.exe'); If FileExists('c:\WINDOWS\sdssdgjeg012.exe')then VirusDetecter.Лайнс.Add('[BackDoor] B-|R.A.T|-T -> c:\WINDOWS\sdssdgjeg012.exe'); If FileExists('C:\windows\netpopup.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Bowl -> C:\windows\netpopup.exe'); If FileExists('c:\WINDOWS\system32\Restore\wscntfy.exe')then VirusDetecter.Лайнс.Add('[BackDoor] BLACK FTP -> c:\WINDOWS\system32\Restore\wscntfy.exe'); If FileExists('c:\WINDOWS\TGHYU.exe')then VirusDetecter.Лайнс.Add('[BackDoor] BlasterX -> c:\WINDOWS\TGHYU.exe'); If FileExists('c:\WINDOWS\SYSTEMTRAY.exe')then VirusDetecter.Лайнс.Add('[BackDoor] BlasterX -> c:\WINDOWS\SYSTEMTRAY.exe'); If FileExists('c:\WINDOWS\Directory.exe')then VirusDetecter.Лайнс.Add('[BackDoor] BlasterX -> c:\WINDOWS\Directory.exe'); If FileExists('c:\WINNT\bootload.exe')then VirusDetecter.Лайнс.Add('[BackDoor] BrainBot -> c:\WINNT\bootload.exe'); If FileExists('c:\WINDOWS\system32\delete.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Cacique -> c:\WINDOWS\system32\delete.exe'); If FileExists('c:\WINDOWS\ScanDisk.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Cacique -> c:\WINDOWS\ScanDisk.exe'); If FileExists('c:\WINDOWS\navapw16.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Cold Fusion -> c:\WINDOWS\navapw16.exe'); If FileExists('c:\Program Files\Bifrost\server.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Bifrost -> c:\Program Files\Bifrost\server.exe'); If FileExists('C:\WINDOWS\ASDAPI.EXE')then VirusDetecter.Лайнс.Add('[BackDoor] Cabronator3 kill -> C:\WINDOWS\ASDAPI.EXE'); If FileExists('c:\WINDOWS\system32\DL.exe')then VirusDetecter.Лайнс.Add('[BackDoor] DarkLabel -> c:\WINDOWS\system32\DL.exe'); If FileExists('c:\WINDOWS\system32\adobe loader.exe')then VirusDetecter.Лайнс.Add('[BackDoor] DjiRAT -> c:\WINDOWS\system32\adobe loader.exe'); If FileExists('c:\WINDOWS\f.dat')then VirusDetecter.Лайнс.Add('[BackDoor] Devil 6 (c) -> c:\WINDOWS\f.dat'); If FileExists('c:\WINDOWS\system32\d3dx.dll')then VirusDetecter.Лайнс.Add('[BackDoor] DG RAT 2008 -> c:\WINDOWS\system32\d3dx.dll'); If FileExists('C:\WINDOWS\system\lol.exe')then VirusDetecter.Лайнс.Add('[BackDoor] DarkFace -> C:\WINDOWS\system\lol.exe'); If FileExists('c:\WINDOWS\SYSTEM\DARKFTP.EXE')then VirusDetecter.Лайнс.Add('[BackDoor] DARKFTP -> c:\WINDOWS\SYSTEM\DARKFTP.EXE'); If FileExists('c:\WINDOWS\TEMP\file1.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Eagle Boy -> c:\WINDOWS\TEMP\file1.exe'); If FileExists('c:\WINDOWS\TEMP\file2.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Eagle Boy -> c:\WINDOWS\TEMP\file2.exe'); If FileExists('c:\Program Files\ctfnon.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Easy Trojano -> c:\Program Files\ctfnon.exe'); If FileExists('c:\kernal32.exe')then VirusDetecter.Лайнс.Add('[BackDoor] EjTroj -> c:\kernal32.exe'); If FileExists('c:\WINDOWS\repair\MSConfig.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Epithalium -> c:\WINDOWS\repair\MSConfig.exe'); If FileExists('c:\WINDOWS\Netbios32.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Eurosol -> c:\WINDOWS\Netbios32.exe'); If FileExists('c:\WINDOWS\msnmsgr.exe')then VirusDetecter.Лайнс.Add('[BackDoor] EYE SPY -> c:\WINDOWS\msnmsgr.exe'); If FileExists('C:\WINDOWS\SYSTEM\user32.exe')then VirusDetecter.Лайнс.Add('[BackDoor] EZ KiLLA -> C:\WINDOWS\SYSTEM\user32.exe'); If FileExists('c:\WINDOWS\messenger.exe')then VirusDetecter.Лайнс.Add('[BackDoor] El-Hacker -> c:\WINDOWS\messenger.exe'); If FileExists('c:\WINDOWS\SYSTEM\elfRAT.exe')then VirusDetecter.Лайнс.Add('[BackDoor] elfRAT -> c:\WINDOWS\SYSTEM\elfRAT.exe'); If FileExists('c:\WINDOWS\system32\sys32load.exe')then VirusDetecter.Лайнс.Add('[BackDoor] EgyLoader -> c:\WINDOWS\system32\sys32load.exe'); If FileExists('c:\WINDOWS\drvtsn32.exe')then VirusDetecter.Лайнс.Add('[BackDoor] EagleAgent -> c:\WINDOWS\drvtsn32.exe'); If FileExists('c:\WINDOWS\system32\fdos.exe')then VirusDetecter.Лайнс.Add('[BackDoor] FAkEdOs -> c:\WINDOWS\system32\fdos.exe'); If FileExists('C:\WINDOWS\SYSTEM\RENIFER.EXE')then VirusDetecter.Лайнс.Add('[BackDoor] F-Backdoor -> C:\WINDOWS\SYSTEM\RENIFER.EXE'); If FileExists('c:\WINDOWS\system32\fdos.exe')then VirusDetecter.Лайнс.Add('[BackDoor] FAkEdOs -> c:\WINDOWS\system32\fdos.exe'); If FileExists('c:\WINNT\system32\msass.exe')then VirusDetecter.Лайнс.Add('[BackDoor] FeRaL[BoT] -> c:\WINNT\system32\msass.exe'); If FileExists('C:\WINDOWS\SYSTEM\FYEOFORYOUREYESONLY.EXE')then VirusDetecter.Лайнс.Add('[BackDoor] ForYourEyesOnly -> C:\WINDOWS\SYSTEM\FYEOFORYOUREYESONLY.EXE'); If FileExists('c:\WINDOWS\msstatn.exe')then VirusDetecter.Лайнс.Add('[BackDoor] FuckBot -> c:\WINDOWS\msstatn.exe'); If FileExists('c:\cod4reg.crk')then VirusDetecter.Лайнс.Add('[BackDoor] Fukas Code4 -> c:\cod4reg.crk'); If FileExists('c:\WINDOWS\CfgWiz32.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Hack a Tack 2000 -> c:\WINDOWS\CfgWiz32.exe'); If FileExists('c:\WINDOWS\Expl32.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Hack a Tack 1.20 -> c:\WINDOWS\Expl32.exe'); If FileExists('c:\WINDOWS\TEMP\server\server\ev0.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Haan -> c:\WINDOWS\TEMP\server\server\ev0.exe'); If FileExists('c:\WINDOWS\system32\Com\svchost.exe')then VirusDetecter.Лайнс.Add('[BackDoor] H4ckItUp![Reb0rn] -> c:\WINDOWS\system32\Com\svchost.exe'); If FileExists('C:\WINDOWS\SYSTEM\Kernel16.exe')then VirusDetecter.Лайнс.Add('[BackDoor] H04x3r -> C:\WINDOWS\SYSTEM\Kernel16.exe'); If FileExists('c:\WINDOWS\winpro32.exe')then VirusDetecter.Лайнс.Add('[BackDoor] FuNKys Webserver -> c:\WINDOWS\winpro32.exe'); If FileExists('c:\WINDOWS\win32ud.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Fukas -> c:\WINDOWS\win32ud.exe'); If FileExists('c:\WINDOWS\win32ud.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Fukas -> c:\WINDOWS\win32ud.exe'); If FileExists('c:\WINDOWS\SYSTEM\Isass.exe')then VirusDetecter.Лайнс.Add('[BackDoor] FuckTrojan -> c:\WINDOWS\SYSTEM\Isass.exe'); If FileExists('c:\WINDOWS\system32\svxhost.exe')then VirusDetecter.Лайнс.Add('[BackDoor] ForBot -> c:\WINDOWS\system32\svxhost.exe'); If FileExists('c:\WINDOWS\vbrun.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Feri -> c:\WINDOWS\vbrun.exe'); If FileExists('c:\WINDOWS\apph.exe')then VirusDetecter.Лайнс.Add('[BackDoor] MoneyRat -> c:\WINDOWS\apph.exe'); If FileExists('c:\WINDOWS\system32\msn.exe')then VirusDetecter.Лайнс.Add('[BackDoor] MsnControl -> c:\WINDOWS\system32\msn.exe'); If FileExists('c:\WINDOWS\SYSTEM32\SysOps.exe')then VirusDetecter.Лайнс.Add('[BackDoor] MsnControl -> c:\WINDOWS\SYSTEM32\SysOps.exe'); If FileExists('c:\WINDOWS\system32\windII.exe')then VirusDetecter.Лайнс.Add('[BackDoor] MSN Display Troy -> c:\WINDOWS\system32\windII.exe'); If FileExists('c:\WINDOWS\system32\Sysprotecmsn.exe')then VirusDetecter.Лайнс.Add('[BackDoor] MSNEspecTrum -> c:\WINDOWS\system32\Sysprotecmsn.exe'); If FileExists('c:\WINDOWS\winsys.exe')then VirusDetecter.Лайнс.Add('[BackDoor] MadCow -> c:\WINDOWS\winsys.exe'); If FileExists('c:\WINDOWS\system32\msiexec16.exe')then VirusDetecter.Лайнс.Add('[BackDoor] LOL -> c:\WINDOWS\system32\msiexec16.exe'); If FileExists('c:\WINDOWS\system32\mshost.exe')then VirusDetecter.Лайнс.Add('[BackDoor] LaMe RAT -> c:\WINDOWS\system32\mshost.exe'); If FileExists('c:\WINDOWS\system32\yinhu.bat')then VirusDetecter.Лайнс.Add('[BackDoor] LaLa Rat -> c:\WINDOWS\system32\yinhu.bat'); If FileExists('c:\WINDOWS\system32\iexploreri32.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Over-Ride -> c:\WINDOWS\system32\iexploreri32.exe'); If FileExists('C:\WINDOWS\SYSTEM\MSWinsock.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Over G -> C:\WINDOWS\SYSTEM\MSWinsock.exe'); If FileExists('c:\WINDOWS\SYSTEM\orbit.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Orbit -> c:\WINDOWS\SYSTEM\orbit.exe'); If FileExists('c:\WINDOWS\Progr.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Opwin -> c:\WINDOWS\Progr.exe'); If FileExists('c:\WINDOWS\scanregw..exe')then VirusDetecter.Лайнс.Add('[BackDoor] Opwin -> c:\WINDOWS\scanregw..exe'); If FileExists('C:\WINDOWS\msHtml.exe')then VirusDetecter.Лайнс.Add('[BackDoor] Pest -> C:\WINDOWS\msHtml.exe'); If FileExists('C:\WINDOWS\system32\wJQs.exe')then VirusDetecter.Лайнс.Add('[Hijackers] WindowsClick.com -> C:\WINDOWS\system32\wJQs.exe'); If FileExists('C:\Program Files\SC-KeyLog PRO DEMO')then VirusDetecter.Лайнс.Add('[KeyLogger] SC-KeyLog PRO -> C:\Program Files\SC-KeyLog PRO DEMO'); If FileExists('C:\Program Files\SC-KeyLog PRO')then VirusDetecter.Лайнс.Add('[KeyLogger] SC-KeyLog PRO -> C:\Program Files\SC-KeyLog PRO'); If FileExists('C:\Documents and Settings\Sapna\Desktop\Main.lnk')then VirusDetecter.Лайнс.Add('[KeyLogger] SC-KeyLog PRO -> C:\Documents and Settings\Sapna\Desktop\Main.lnk'); If FileExists('C:\Program Files\Perfect Keylogger [XVS]')then VirusDetecter.Лайнс.Add('[KeyLogger] Perfect Keylogger -> C:\Program Files\Perfect Keylogger [XVS]'); If FileExists('C:\Program Files\Blazing Tools\Perfect Keylogger')then VirusDetecter.Лайнс.Add('[KeyLogger] Perfect Keylogger -> C:\Program Files\Blazing Tools\Perfect Keylogger'); If FileExists('C:\Windows\System\csvdea')then VirusDetecter.Лайнс.Add('[KeyLogger] AIM Logger -> C:\Windows\System\csvdea'); If FileExists('C:\Windows\System32\csvdea')then VirusDetecter.Лайнс.Add('[KeyLogger] AIM Logger -> C:\Windows\System32\csvdea'); If FileExists('C:\Winnt\System32\csvdea')then VirusDetecter.Лайнс.Add('[KeyLogger] AIM Logger -> C:\Winnt\System32\csvdea'); If FileExists('C:\Program Files\SBP Demo')then VirusDetecter.Лайнс.Add('[KeyLogger] SpyBossPro -> C:\Program Files\SBP Demo'); If FileExists('C:\Program Files\SBP')then VirusDetecter.Лайнс.Add('[KeyLogger] SpyBossPro -> C:\Program Files\SBP'); If FileExists('C:\Documents and Settings\All Users\Desktop\gphone.exe')then VirusDetecter.Лайнс.Add('[Ver] Gphone -> C:\Documents and Settings\All Users\Desktop\gphone.exe'); If FileExists('C:\Blah.exe')then VirusDetecter.Лайнс.Add('[Virus] Blah -> C:\Blah.exe'); If FileExists('C:\WINDOWS\system32\eygrtt.dll')then VirusDetecter.Лайнс.Add('[Virus] Sagipsul -> C:\WINDOWS\system32\eygrtt.dll'); If FileExists('C:\WINDOWS\system32\buwidodu.dll')then VirusDetecter.Лайнс.Add('[Virus] Sagipsul -> C:\WINDOWS\system32\buwidodu.dll'); If FileExists('C:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> C:\Autorun.inf'); If FileExists('C:\Autorun.ini')then VirusDetecter.Лайнс.Add('AUTORUN -> C:\Autorun.инф'); If FileExists('F:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> F:\Autorun.inf'); If FileExists('F:\Autorun.ini')then VirusDetecter.Лайнс.Add('AUTORUN -> F:\Autorun.inf'); If FileExists('G:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> G:\Autorun.inf'); If FileExists('G:\Autorun.ini')then VirusDetecter.Лайнс.Add('AUTORUN -> G:\Autorun.ini'); If FileExists('H:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> H:\Autorun.inf'); If FileExists('H:\Autorun.ini')then VirusDetecter.Лайнс.Add('AUTORUN -> H:\Autorun.ini'); If FileExists('I:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> I:\Autorun.inf'); If FileExists('I:\Autorun.ini')then VirusDetecter.Лайнс.Add('AUTORUN -> I:\Autorun.ini'); If FileExists('J:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> J:\Autorun.inf'); If FileExists('J:\Autorun.ini')then VirusDetecter.Лайнс.Add('AUTORUN -> J:\Autorun.ini'); If FileExists('K:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> K:\Autorun.inf'); If FileExists('K:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> K:\Autorun.ini'); If FileExists('L:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> L:\Autorun.inf'); If FileExists('L:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> L:\Autorun.ini'); Прогрессбар1.Position:=99; If FileExists('M:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> M:\Autorun.inf'); If FileExists('M:\Autorun.ini')then VirusDetecter.Лайнс.Add('AUTORUN -> M:\Autorun.ini'); If FileExists('N:\Autorun.inf')then VirusDetecter.Лайнс.Add('AUTORUN -> N:\Autorun.inf'); If FileExists('N:\Autorun.ini')then VirusDetecter.Лайнс.Add('AUTORUN -> N:\Autorun.ini'); Прогрессбар1.Position:=100; VirusDetecter.Лайнс.Add('----------------------------------------'); VirusDetecter.Лайнс.add(FormatDateTime('hh:mm:ss', Now)); end; procedure TForm1.Button1Click(Sender: TObject); begin VirusDetecter.Лайнс.SaveToFile('C:\ScannerRapport.TXT'); VirusDetecter.Лайнс.Add('отчет сохранен в C:\ScannerRapport.TXT'); end; procedure TForm1.Timer1Timer(Sender: TObject); begin Лабел1.Caption:=(FormatDateTime('hh:mm:ss', Now)); end; procedure TForm1.Button2Click(Sender: TObject); begin VirusDetecter.Clear; end; end. Скачать: