Arsip: ClamAV Delphi

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??

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...

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.dllneed to CLAMAV UNLOAD and reLOAD if sigs are updated
end exit %Rsimple 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...
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
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Insert beda server/host beda database(copy data)
by ohay24 in MySQL more 16 years ago - Tutorial delphi yang lengkap full source code only in here
by videl_87 in Delphi.NET more 17 years ago - [tanya] bagaimana load file di listbox tanpa full path name
by andrypein in Hal umum tentang Pascal Indonesia more 12 years ago - cara mendapatkan status component yang berada di scrollbox
by BLie2000 in Tip n Trik Pemrograman more 17 years ago - menambah / menjadi // atau \\
by rurouni in Hal umum tentang Pascal Indonesia more 14 years ago - menjalankan beberapa prosedur di button...
by idhiel in Tip n Trik Pemrograman more 12 years ago - PSQL untuk menangani BLOB field
by i_hasibuan in FireBird more 16 years ago - heLp mE pLease ?
by jajang in Tip n Trik Pemrograman more 16 years ago - shell execute di jaringan
by belajaraja in Tutorial & Community Project more 17 years ago - database access ..
by indray2j in Lain-lain more 17 years ago