I-BEGO

Hi, kembali lagi dengan saya AURA. kali ini menghadirkan AURArchvScn.dll versi 1.0.3 . Apa itu AURArchvScn.dll ??? Biar saya jelaskan dari versi awalnya

Versi 1.0.0
Merupakan generasi awal. plugin yang dibuat untuk mempermudah para AV maker untuk melacak Viri yang mem-pack tubuhnya dalam arsip. Di versi awal ini terdapat 2 fungsi yaitu :

1-CRC32. Kalian bisa mengecek viri yang berada dalam arsip dengan checksum CRC32 ini.

Code: Select all

API: Private Declare Function AURAscnCRC32 Lib "AURArchvScn.dll" (ByVal ArchivePath As String, ByVal pCRC32 As String) As Long

Kode: if AURAscnCRC32(ArchivePath, pCRC32) > 0 then MessageBox "Ada Virus"

2-FileName. Mungkin agak kurang efektif untuk memeriksa viri melalui nama file. Tapi lihat Conflicker !!! nama file induknya Static

Code: Select all

API : Private Declare Function AURAscnFile Lib "AURArchvScn.dll" (ByVal ArchivePath As String, ByVal pFile As String) As Long

Kode : if AURAscnFile(ArchivePath, pFile) > 0 then MessageBox "Ada Virus"


Ket :
ArchivePath : Alamat dari Arsip yang akan diperiksa
pCRC32 : Nilai CRC virus yang ada dalam database AV kamu
pFile : Nama file virus yang ada dalam database AV kamu

Nilai value pada fungsi
0 = Bersih
>0 = Ada virus
-1 = Tidak bisa dibaca(kemungkinan proteksi password atau rusak)

Versi 1.0.2
1. Fungsi API sudah bisa digunakan (Export Function)
2. Penambahan fungsi AURAscnByteCount & AURAscnByteCheck
Berguna untuk para AV-Maker yang ingin membuat checksum tersendiri
dengan memanfaatkan byte yang tersedia

Adapun contoh kode dari pengecekan byte adalah

Code: Select all

API - Private Declare Function AURAscnByteCount Lib "AURArchvScn.dll" (ByVal ArchivePath As String) As Long
    Private Declare Function AURAscnByteCheck Lib "AURArchvScn.dll" (ByVal ArchivePath As String,pIndex as Long) As Long
  Kode :

  Dim tCount as long,tByte as long,l as long
   
  tCount = AURAscnByteCount(ArchivePath)        'Dapatkan kumpulan File yang ada dalam arsip
  if tcount > 0 then                    'Jika lebih dari 0 maka lanjutkan ke line selanjutnya
     for l = 1 to tcount                'Untuk l = Index dari tCount
        tByte = AURAscnByteCheck(ArchivePath,l)        'Dapatkan Byte dari Index file arsip,dan masukkan ke tByte

          ''Disini listing kode yang akan kamu tulis
        ''apabila hendak membuat checksum/hash sendiri
        ''sudah tersedia byte yang bisa dikalkulasikan

     next l                        'Lanjurkan pencarian
  end if                        'Akhir dari pencarian

Dunlut:
http://upload.ugm.ac.id/download.php?file=735AURArchvScan_1.0.3.zip

Aq ga tau ternyata forumnya pindah,ternyata aq salah posting. Hehe....

profilnya dl d tuliskan...

mantab dah om AURA....

Hei hei,, aq masih sweet 17. Jgn panggil om dunx.. Tolong report bugnya, ditunggu kalau tidak ada versi rc1 akan keluar..tolong saran dan kritik yg pedasnya juga..

jangan kaget oom . . . disini tua-muda dipanggil oom semua . . .

wah, kalo urusan testing2an, bagian om ChazD tuh . . .