Arsip: ClamAV Delphi

 
user image
more 18 years ago

testing-ting

salam kenal aja yah, mo tanya, ada yang tau gak caranya buat antivirus pake library-nya(libclamav.dll) CLAMAV-WIN, spt PCMedia antivirus??
user image
more 18 years ago

saysansay

Klu masalah AntiVirus Coba konsultasi ama Mas delogic....Tapi Klu untuk Virus....Wonosobo Hecker Jagonyanya Tuh...wakakakakaka Moso Ngeluarin Virus nga mutu banget...wakakakakaka Decoil Gitu lho...
user image
more 18 years ago

testing-ting

yah mas delogic kasih tutorial-nya dong, saya udah dapat script-nya tapi blom bisa... saya dapat di forum.vdsworld.com sebagai berikut:

VDS commands / functions to use ClamAV DLLs

#definecommand,CLAMAV #definefunction,CLAMAV,CLAMSCAN :clamav if @equal(%1,scan)

CLAMAV SCAN, <filename> // OK = true if clean; false if virus or some other problem

%%clamav_retcode = actual return code

%%clamav_scan = virus name or explanation of problem

%V = @fill(128,,Z) %S = @binary(DWORD,0) %L = @binary(DWORD,8)@binary(DWORD,1000)@binary(DWORD,1000)@binary(DWORD,0)@binary(DWORD,20971520) %%clamav_retcode = @lib(libclamav,clam_scanfile,INT:,@addr("%2"),@addr("%V"),@addr("%S"),%%clamav_root,@addr("%L"),INT:1019) if @zero(%%clamav_retcode) %%clamav_scan = else if @equal(%%clamav_retcode,1) %V = @adjust(%V) %%clamav_scan = Infected: %V elsif @equal(%%clamav_retcode,10) %%clamav_scan = Not scanned: recursion level limit exceeded elsif @equal(%%clamav_retcode,11) %%clamav_scan = Not scanned: size limit exceeded elsif @equal(%%clamav_retcode,12) %%clamav_scan = Not scanned: files limit exceeded elsif @equal(%%clamav_retcode,100) %%clamav_scan = Not scanned: rar handler error elsif @equal(%%clamav_retcode,101) %%clamav_scan = Not scanned: zip handler error elsif @equal(%%clamav_retcode,102) %%clamav_scan = Not scanned: corrupt archive elsif @equal(%%clamav_retcode,103) %%clamav_scan = Not scanned: gzip handler error elsif @equal(%%clamav_retcode,104) %%clamav_scan = Not scanned: bzip2 handler error elsif @equal(%%clamav_retcode,105) %%clamav_scan = Not scanned: OLE2 handler error elsif @equal(%%clamav_retcode,106) %%clamav_scan = Not scanned: compress.exe handler error elsif @equal(%%clamav_retcode,107) %%clamav_scan = Not scanned: MS CAB module error elsif @equal(%%clamav_retcode,200)@equal(%%clamav_retcode,-4) %%clamav_scan = Not scanned: access denied else %%clamav_scan = Not scanned: error code %%clamav_retcode end ERROR -1 end elsif @equal(%1,load)

CLAMAV LOAD, <path to .cvd files> // MUST EXECUTE THIS BEFORE SCANNING

if @null(%2) %2 = @substr(@path(%0),1,-1) end if @not(%%clamav_loaded) LOADLIB %2\libclamav.dll if @not(@ok()) ERROR 28 exit end %%clamav_loaded = 1 %%clamav_root = end %%clamav_error = %N = @binary(DWORD,0) %E = @binary(DWORD,0) %%clamav_root = @lib(libclamav,clam_loaddbdir,INT:,STR:%2,@addr("%N"),@addr("%E")) if @zero(@val(%E)) %I = @lib(libclamav,clam_build,INT:,%%clamav_root) if @not(@zero(%I)) %%clamav_error = %I end else %%clamav_error = %E end if %%clamav_error ERROR -1 end elsif @equal(%1,unload)

CLAMAV UNLOAD // EXECUTE BEFORE CLOSING

FREELIB libclamav.dll %%clamav_loaded = %%clamav_root = elsif @equal(%1,version)

%%ver = @CLAMAV(VERSION) // not very useful

%R = @fill(260,,Z) %I = @lib(libclamav,clam_retver,NUL:,@addr("%R")) elsif @equal(%1,update)

CLAMAV UPDATE, <path to .cvd files>, <mirror> // mirror is db.xx.clamav.net where xx is ICANN country code

LOADLIB freshclam.dll if @not(@ok()) ERROR 28 exit end if @null(%2) %2 = @substr(@path(%0),1,-1) end if @null(%3) %3 = db.us.clamav.net end %I = @lib(freshclam,clam_update,INT:,INT:1,STR:%2,STR:%2\update.log,STR:current.cvd.clamav.net,STR:%3,STR:database.clamav.net,NIL:)

I haven't figured out what the return codes mean yat...

info "%I = "%I FREELIB freshclam.dll

need to CLAMAV UNLOAD and reLOAD if sigs are updated

end exit %R

simple function to scan one file, returning true if file OK (uninfected)

virus name in %%clamav_scan if infected

:clamscan %V = 1 option errortrap,noclamav CLAMAV LOAD,%%clamavpath option errortrap if @ok() CLAMAV SCAN,%1 %V = @unequal(%%clamav_retcode,1) CLAMAV UNLOAD end :noclamav option errortrap exit %V semoga ada yang bisa ngasih pelajaran yang berguna, makasih...
user image
more 18 years ago

deLogic

wah ada yg nyebut nama gw ya...?? sorry beberapa hari yg lalu lagi sibuk finishing project, jd gak sempat OL.. :) CLAM-AV yah.. terus terang saya belum pernah experimen dengannya.. hmm.. coba saya buka2 dulu deh web page, siapa tahu ada pelajaran menarik... btw udah coba baca2 di bagian 3rd Party Software belum, ada beberapa program yang under MS-WIN, mungkin bisa dijadikan contoh.
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com