selamat pagi, siang, sore, malam para pembaca di seluruh dunia kali ini Blog Ilmu Komputer akan berbagi teknik untuk mendeteksi virus yang dibuat dengan dengan visual basic script (VBS), aplikasi yang akan kita buat ini mengunakkan bahasa pemrograman visual basic untuk mengerjakanya.
Bagi yang ingin membuatnya minimal mengerti sedikit tentang bahasa pemrograman visual basic!
okey langsung kita buat aplikasinya!
1. Buka Program Visual Basic Anda
2. lalu tambahkan 1 textbox, dan 1 commandbutton. lalu desain agar mirip seperti di bawah ini!
3. Lalu masukkan kode ini kedalan commandbutton
Private Sub Command1_Click()
Dim ss As String
On Error GoTo gagal
If Text1.Text = "" Then
MsgBox "Masukkan Nama File Dengan Benar, Object Text Kosong", vbCritical, "Warning"
Else
If LCase(Right(Text1.Text, 3)) = "vbs" Or "txt" Then
Open Text1.Text For Binary Access Read As #1
ss = Space(LOF(1))
Get #1, , ss
Close #1
If InStr(LCase(ss), "createobject") > 0 And InStr(LCase(ss), "reg.write") > 0 Then
MsgBox "File Ini Sebuah File Virus VBS", vbCritical, "Buuseeeet!!!"
Else
MsgBox "Ini Bukanlah Sebuah Virus VBS", vbInformation, "Warning"
End If
Else
MsgBox "File Ini Bukanlah File Dengan Ekstensi .vbs atau .txt" & Chr(13) & "Proses Pemeriksaan Di Hentikan!", vbExclamation, "Warning"
End If
End If
Exit Sub
gagal:
MsgBox "File Tidak Dapat Ditemukan, Harap Anda Memasukkan Nama Filenya Dengan Benar", vbInformation, "Warning"
End Sub
4. Jika anda sudah memasukkan kode tadi, waktunya menjalankan program tadi kita buat!
tekan tombol F5 untuk menjalankan program!
Di sini saya akan mencoba mengecek sebuah file virus berekstensi vbs buatan saya. Mari kita uji!
di atas adalah tampilan program kita saat di jalankan dan saya memasukkan lokasi virus ke dalam objek textbox
gambar di atas adalah gambar di mana saat saya menekan tombol "CEK FILE INI" dan program yang kita buat ini langsung menangkap file ini sebagai sebuah virus
Semoga Bermanfaat :D
Bagi Agan-Agan Yang Mempunyai Sample Virus
Tolong Di Kirim Ke E-mail saya di musaVB17@gmail.com
atau baca tentang Cara Menyisipkan File Pada E-Mail Yang Akan Dikirim Lewat G-Mail
Bagi yang ingin membuatnya minimal mengerti sedikit tentang bahasa pemrograman visual basic!
okey langsung kita buat aplikasinya!
1. Buka Program Visual Basic Anda
2. lalu tambahkan 1 textbox, dan 1 commandbutton. lalu desain agar mirip seperti di bawah ini!
Private Sub Command1_Click()
Dim ss As String
On Error GoTo gagal
If Text1.Text = "" Then
MsgBox "Masukkan Nama File Dengan Benar, Object Text Kosong", vbCritical, "Warning"
Else
If LCase(Right(Text1.Text, 3)) = "vbs" Or "txt" Then
Open Text1.Text For Binary Access Read As #1
ss = Space(LOF(1))
Get #1, , ss
Close #1
If InStr(LCase(ss), "createobject") > 0 And InStr(LCase(ss), "reg.write") > 0 Then
MsgBox "File Ini Sebuah File Virus VBS", vbCritical, "Buuseeeet!!!"
Else
MsgBox "Ini Bukanlah Sebuah Virus VBS", vbInformation, "Warning"
End If
Else
MsgBox "File Ini Bukanlah File Dengan Ekstensi .vbs atau .txt" & Chr(13) & "Proses Pemeriksaan Di Hentikan!", vbExclamation, "Warning"
End If
End If
Exit Sub
gagal:
MsgBox "File Tidak Dapat Ditemukan, Harap Anda Memasukkan Nama Filenya Dengan Benar", vbInformation, "Warning"
End Sub
4. Jika anda sudah memasukkan kode tadi, waktunya menjalankan program tadi kita buat!
tekan tombol F5 untuk menjalankan program!
Di sini saya akan mencoba mengecek sebuah file virus berekstensi vbs buatan saya. Mari kita uji!
di atas adalah tampilan program kita saat di jalankan dan saya memasukkan lokasi virus ke dalam objek textbox
gambar di atas adalah gambar di mana saat saya menekan tombol "CEK FILE INI" dan program yang kita buat ini langsung menangkap file ini sebagai sebuah virus
Semoga Bermanfaat :D
Bagi Agan-Agan Yang Mempunyai Sample Virus
Tolong Di Kirim Ke E-mail saya di musaVB17@gmail.com
atau baca tentang Cara Menyisipkan File Pada E-Mail Yang Akan Dikirim Lewat G-Mail
Komentar
Posting Komentar