ANTIVIRUS VISUAL BASIC
2 posters
:: Visual Basic
Halaman 1 dari 1
ANTIVIRUS VISUAL BASIC
by Agoeng_Jr Sun Dec 05, 2010 8:00 pm
AGOENG_JR wrote:ni ada sedikit tutor
DARI VISUAL BASIC
ni hanya basicnya aja buat tambahan RTP,startup dll kembangkan sendiri
tentang membuat AV sendiri dengan metode cheksum
sebelomnya ada beberapa jenis AV
1. pake extension
2.cheksum/crc32
3. gw lupa
hhee
langsung aja deh nih....
Download
program di atas u/ mencari / mengetahui CRC pada tiap² file dan
program diatas dapat kita buat menjadi sebuah rutin pengecekan file suspect virus dengan antara membandingkan hasil
CRC32nya dan database CRC kita sendiri. Algoritmanya adalah :
- Memilih file yang akan dicek
- Membuka file tersebut dalam mode binary
- Memproses byte demi byte untuk menghasilkan Checksum
- Buka file database
- Ambil isi file baris demi baris
- Samakan Checksum hasil perhitungan dengan checksum dari file
nah u/ selanjutnya qt bikin DATABASENYA agar setiap nama/ crc yg cocok pada AV qt ini dapat menditeksinya sebagai virus
dengan menabahkan module dan tambahkan command2
ni coding pada command2selamat berkreasi sendiri Thankz
- Spoiler:
pathEXE = App.Path
Else
pathEXE = App.Path & ""
End If
CommonDialog1.CancelError = True 'error bila user mengklik cancel pada CommonDialog
CommonDialog1.DialogTitle = "Baca File" 'Caption commondialog
On Error GoTo erorhandle 'label error handle
CommonDialog1.ShowOpen
namafilbuka = CommonDialog1.FileName
Open namafilbuka For Binary Access Read As #1 'buka file yang dipilih dengan akses baca pada mode binary
ReDim tmp(LOF(1) - 1) As Byte 'deklarasi ulang untuk array # Bugs Fixed #
Get #1, , tmp()
Close #1
calCrc = UBound(tmp) 'mengambil ukuran file dari array
calCrc = CCrc.CRC32(tmp, calCrc) 'hitung CRC
HasilCrc = Hex(calCrc) 'diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric
If cariDatabase(HasilCrc, pathEXE & "DB.txt") Then 'bila fungsi bernilai TRUE
MsgBox "Virus ditemukan : " & namaVirus 'tampilkan message Box
End If
Exit Sub
erorhandle:
If Err.Number <> 32755 Then MsgBox Err.Description 'error number 32755 dalah bila user mengklik tombol cancel pada saat memilih file
Format file database dapat kita tentukan sendiri, misal :
- FluBurung.A=ABCDEFGH
- Diary.A=12345678
Dimana FluBurung.A adalah nama virus dan ABCDEFGH dalah Crc32nya. Jika kita mempunyai format file seperti diatas, maka kita perlu membaca
file secara sekuensial per baris serta memisahkan antara nama virus dan Crc32nya. Dalam hal ini yang menjadi pemisah adalah karakter '='.
Buat 1 module baru (-- diberi nama module1) lalu isi dengan kode :
Public namaVirus As String, CrcVirus As String 'deklarasi variabel global untuk nama dan CRC virus
Public pathExe as String 'deklarasi variabel penyimpan lokasi file EXE AV kita
Public Function cariDatabase(Crc As String, namaFileDB As String) As Boolean
Dim lineStr As String, tmp() As String 'variabel penampung untuk isi file
Open namaFileDB For Input As #1 'buka file dengan mode input
Do
Line Input #1, lineStr
tmp = Split(lineStr, "=") 'pisahkan isi file bedasarkan pemisah karakter '='
namaVirus = tmp(0) 'masukkan namavirus ke variabel dari array
CrcVirus = tmp(1) 'masukkan Crcvirus ke variabel dari array
If CrcVirus = Crc Then 'bila CRC perhitungan cocok/match dengan database
cariDatabase = True 'kembalikan nilai TRUE
Exit Do 'keluar dari perulangan
End If
Loop Until EOF(1)
Close #1
End Function
Agoeng_Jr- Admin
- Jumlah posting : 142
Reputation : 9
Join date : 05.12.10
Age : 33
Lokasi : Macazzarct City -
Re: ANTIVIRUS VISUAL BASIC
by ™Glazer-Pb™ Fri Jun 10, 2011 10:20 pm
NICE +++ [You must be registered and logged in to see this image.]
™Glazer-Pb™- C4~ Member
- Jumlah posting : 3
Reputation : 1000
Join date : 10.06.11
Similar topics:: Visual Basic
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik|
|
|
