TUTORIAL MEMBUAT ANTIVIRUS DENGAN VISUAL BASIC

hai kawan semua... kali ini saya akan membahas soal visual basic lagi nih! tapi yang ini bukan dasar-dasarnya. buat yang belum tau apa itu visual basic coba anda baca dlu postingan sebelumnya yg membahaas dasar2nya, biar ngerti gituh! nih silahkan klik. buat yang udah ngerti mah langsung aja check this out . pertama saya akan menjelaskan kalau di sini saya akan membuat antivirus kayak itu tuh. tapi lebih mirip smadav sih.. hehe tutorial membuat antivirus dengan visual basic ini sangat sederhana dan dibuat untuk menangapi tutorial sebelumnya yang tidak lengkap apabila hanya membuat virus saja oke langsung aja deh tanpa basa-basi lagi

Mari kita belajar membuat sebuah AV sederhana, yang diperlukan :
1. Software Visual Basic 6.0
2. Sedikit pemahaman akan pemograman Visual Basic 6.0
3. Sampel file bersih atau virus (- opsional)
First

Sekarang kita akan belajar membuat sebuah rutin sederhana untuk :
- Memilih file yang akan dicek
- Membuka file tersebut dalam mode binary
- Memproses byte demi byte untuk menghasilkan Checksum
Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah class module dan Form dengan menambahkan sebuah objek Textbox, CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan dengan memilih Project -> COmponent atau Ctrl-T dan memilih Microsoft Common Dialog Control 6.0). Ketikkan kode berikut pada class module (kita beri nama class module tsb clsCrc) :

================= START HERE ====================
Private crcTable(0 To 255) As Long ‘crc32
Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long
‘bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file
Dim lCurPos As Long ‘Current position untuk iterasi proses array bArrayIn
Dim lTemp As Long ‘variabel temp hasil perhitungan
If lLen = 0 Then Exit Function ‘keluar fungsi apabila ukuran file = 0
lTemp = lcrc Xor &HFFFFFFFF
For lCurPos = 0 To lLen
lTemp = (((lTemp And &HFFFFFF00) &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))
Next lCurPos
CRC32 = lTemp Xor &HFFFFFFFF
End Function
Private Function BuildTable() As Boolean
Dim i As Long, x As Long, crc As Long
Const Limit = &HEDB88320
For i = 0 To 255
crc = i
For x = 0 To 7
If crc And 1 Then
crc = (((crc And &HFFFFFFFE) 2) And &H7FFFFFFF) Xor Limit
Else
crc = ((crc And &HFFFFFFFE) 2) And &H7FFFFFFF
End If
Next x
crcTable(i) = crc
Next i
End Function
Private Sub Class_Initialize()
BuildTable
End Sub
================= END HERE ====================
Lalu ketikkan kode berikut dalam event Command1_Click :
================= START HERE ====================
Dim namaFileBuka As String, HasilCrc As String
Dim CCrc As New clsCrc ‘bikin objek baru dari class ClsCrc
Dim calCrc As Long
Dim tmp() As Byte ‘array buat file yang dibaca
Private Sub Command1_Click()
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)) As Byte ‘deklarasi ulang untuk array
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
Text1.Text = HasilCrc ‘tampilkan hasilnya
Exit Sub
erorhandle:
If Err.Number <> 32755 Then MsgBox Err.Description ‘error number 32755 dalah bila user mengklik tombol cancel pada saat memilih file
================= END HERE ====================
Coba anda jalankan program diatas dengan memencet tombol F5, lalu klik Command1 untuk memilih dan membuka file. Maka program akan menampilkan CRC32nya.
Second

Kode 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
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 :
================= START HERE ====================
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
================= END HERE ====================
Lalu tambahkan 1 objek baru kedalam Form, yaitu Command button2. lalu ketikkan listing kode berikut kedalam event Command2_Click :
================= START HERE ====================
If Len(App.Path) <= 3 Then ‘bila direktori kita adalah root direktori
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)) As Byte ‘deklarasi ulang untuk array
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

Read more »

Posted in: antivirus,computering,fun,news,software

Deface Website Menggunakan Shell Injection R57, C99, C99ud, Safe0ver, ByPass

 

Banyak orang mencari cara deface website untuk berbagai tujuan. Ada yang murni ingin merusak website target, ada yang cuma ingin mencari bug untuk diinformasikan kepada pemilik website target (kali aja dapet imbalan yang pantas he...), ada yang karena benci pada pemilik website, tapi kebanyakan dari mereka cuma iseng.

Ada beberapa komponen yang akan dilibatkan dalam proses deface website ini. Komponen-komponen yang diperlukan untuk deface website ini beberapa diantaranya seperti yang disebutkan pada judul meliputi shell injectionR57, C99, C99ud, Safe0ver dan bypass.

Download shell injection :

R57
C99
C99ud
Safe0ver
ByPass

Shell-shell injection di atas bisa digunakan untuk mengirimkan perintah-perintah ke hosting target. Bila kita sudah menemukan file bug dari hasil scan website target, maka kita bisa inject tuh file bug nya dengan salah satu script shell injection di atas.

Read more »

Posted in: antivirus,computering,fun,hacking,software

Download Berbagai Macam Distro Linux

Distro Linux (Singkatan dari distribusi Linux) adalah sebutan untuk sistem operasi komputer dan aplikasinya, merupakan keluarga Unix yang menggunakan kernel Linux.
Distribusi Linux bisa berupa perangkat lunak bebas dan bisa juga berupa perangkat lunak komersial.
Berikut daftar macam-macam Distro Linux yang bisa anda download gratis di internet:

Read more »

Posted in: antivirus,computering,fun,news,software

Update Manual Avira Antivir Terbaru 14 Januari 2012 (Definition Update)

Update Manual Avira Antivir Terbaru 14 Januari 2012 (Definition Update) | Berita Teknologi Terbaru, Free Download Software Full Version, Gadget Terbaru - Pada saat ini jumlah virus baru dan malware semakin meningkat. Avira AntiVir merupakan antvirus profesional yang selalu melindungi komputer atau laptop dari serangan virus dan malware melalui file definisi update terbaru.

Update manual (offline) Avira terbaru merupakan solusi yang sangat membantu untuk para pecinta avira.

Fitur terbaru dari Avira Antivirus Definition Update yang baru dirilis tanggal 14 Januari 2012 yaitu pada File Update yang dapat bekerja untuk aplikasi berikut :

• Avira AntiVir Personal, Premium and Premium Security S

Read more »

Posted in: antivirus,computering,fun,news,software

Update Avira Terbaru 16 Januari 2012

Update Avira Terbaru 16 Januari 2012 - kali ini saya share mengenai Download Update Avira Terbaru 16 Januari 2012. Avira adalah antivirus kelas dunia yang memang banyak penggunanya. Untuk melakukan perbaikan terhadap bugs ataupun update database, avira melakukan update setiap hari. Download Free Update Avira Terbaru 16 Januari 2012 ini merupakan update harian yang bisa ada download secara gratis pada link dibawah ini.

Read more »

Posted in: antivirus,computering,fun,news,software

GUITAR PRO 6 FULL VERSION + CRACK

GUITAR PRO 6 FULL VERSION + CRACK - guitar pro ini merupakan software yang paling populer bagi para musisi dan buat mereka yang suka berkarya dalam kesenian musik tentunya, nahh apa fungsi dari guitar pro 6 ini ? menurut pengamatan sendiri, software ini berguna untuk membaca tabulatur gitar,bass,piano. semuanya memang lengkap pada software yang satu ini,yang perlu anda cari adalah "sheet" musik lalu buka menggunakan guitar pro 6, maka dengan otomatis anda bisa mengetahui tab bass,guitar,piano yang ada pada musik tersebut.
Untuk mencari cari "tabs"/ "sheet" lagunya bisa di cari ke website di bawah ini:
www.911tabs.com atau http://sruput.web.id/index.html
Disana anda tinggal ketik saja di search lagu yang anda mau cari, setelah keluar.. tinggal download dan open deh pakai guitar pro6. 

Read more »

Posted in: antivirus,computering,fun,music area,news,software

nih 24 software yg perlu kamu punya!

"24 Software Gratis (Full Version) Pilihan Yang Perlu Tuk Anda Miliki!"

 Adobe Reader (membaca file ebook berformat pdf)
 PrimoPDF (membuat file ebook berformat pdf)
 Rapid Typing Tutor (belajar mengetik cepat)
 BricoPack Vista Inspirat Ultimate (merubah tampilan windows XP ke Vista)
 Photobie (versi freeware saingan adobe photoshop)
 IZArc (compression tool terbaik, versi duniadownload)
 Free and Easy Biorhythm Calculator (software untuk meramal)
 XnView (pengelola lebih dari 400 jenis file gambar)
 AVG AntiVirus Free (antivirus yang telah digunakan oleh lebih dari 50 juta orang di dunia)
 Winamp (software pemutar musik terpopuler)
 BioniXWallpaper (perubah tampilan desktop background otomatis)
 Free Screen Hunter (ahlinya pembuat screenshot dari tampilan layar computer)
 Download Accelerator Plus (peningkat kecepatan download)
 CCleaner (penghilang file file tidak berguna dari sistem komputer)
 Ad-Aware Free (software anti spyware terpopuler di dunia)
 Smadav Anti Virus (antivirus lokal kebanggaan indonesia)
 Youtube Downloader (untuk mendownload video dari youtube)
 FLV Player (pemutar file berformat flv/flash video)
 GOM Player (pemutar file video paket komplit!)
 Mozilla Firefox (browser internet terpopuler)
 Google Earth (jelajahi dunia melalui internet)
 CD Burner XP (pem'burn CD & DVD gratis)
 Quran Auto Reciter (belajar membaca sambil mendengarkan Al-Quran)
 Camstudio (perekam aktivitas di layar komputer)

Read more »

Posted in: antivirus,computering,fun,news,software

Autorun Virus Remover 3.1 With Keygen Full Version

Autorun Virus Remover 3.1 With Keygen Full Version ini merupakan software security yang handal dalam membasmi virus autorun seperti Autorun.inf Dengan software Autorun Virus Remover 3.1 + Keygen Full Version anda dapat lebih tenang dalam menghubungkan flashdisk ke komputer atau notebook anda


Screenshot: 

Read more »

Posted in: antivirus,computering,fun,news,software

Avast Free v6.0.1289 with Serial License Until 2038

Avast Free v6.0.1289 with Serial License Until 2038 - Avast antivirus merupakan salah satu dari 10 antivirus terbaik di dunia saat ini. Kemampuannya dalam mendeteksi virus, worm, trojan, conficker dll jauh lebih baik di banding antivirus lainnya. Di sini koskomputer akan berbagi Avast Free Antivirus v6.0.1289 with license full version yang akan aktif hingga 2038. Nah bagi anda yang yang tertarik mencoba antivirus yang satu ini, yuk mari langsung saja di cicipi.

Read more »

Posted in: antivirus,computering,fun,news,software

Avast Internet Security 6.0.1367 Full Crack License Until 2050

Avast Internet Security 6.0.1367 with Crack License Until 2050 - Avast Internet Security memberikan perlindungan maksimal terhadap penggunanya dari ancaman pencurian password dan serangan virus,worm,trojan,malware dll. Scanning yang super cepat dan akurat adalah kelebihan dari avast. Dan avast juga merupakan antivirus yang sangat bersahabat dengan semua komputer juga laptop, jika antivirus lain memakai banyak ruang RAM di komputer anda, avast antivirus ini cuma menggunakan 30% dari yang di gunakan antivirus lain. 


Screenshot

Read more »

Posted in: antivirus,computering,fun,news,software

AVG Internet Security 2012 Full Serial Valid Untill 2018

Siapa yang tidak mengenal AVG Internet Security ? Antivirus ini merupakan antivirus dengan pengguna yang sangat banyak dalam masalah penanganan virus yang menyebar di indonesia maupun negara lainnya.

Pada tahun 2011 ini AVG sudah mengeluarkan versi terbarunya yaitu AVG Internet Security 2012 yang pastinya dengan fitur dan performa yang baik juga.

Di postingan kali ini saya sudah menyertakan serial numbernya,sehingga bagi sobat yang menggunakan serial tersebut akan memiliki AVG dengan masa aktif sampai dengan 2018. AVG Internet Security 2012 Full Serial Valid Untill 2018 yang saya posting padat dibuktikan sendiri dengan mendownload softwarenya.

Screenshot :

Read more »

Posted in: antivirus,computering,fun,news,software

Norton Internet Security 2012 full

Norton Internet Security 2012 adalah sebuah aplikasi antivirus yang memiliki perlindungan yang kuat dan cepat terhadap malware atau ancaman online tanpa memperlambat kinerja komputer anda. Versi terbaru ini memiliki fungsi antivirus, antispyware, firewall dan dilengkapi teknologi yang terbaru sehingga lebih efektif melindungi komputer anda dari semua jenis ancaman dari Internet.

Pada kesempatan siang ini saya sudah membagikan antivirus yang sudah tidak asing ini yaitu Norton Internet Security 2012 atau yang biasa disingkat NIS 2012. Dan tak lupa saya sertakan Patch yang aktif 1 tahun (340 day remaining) + Trial Reseter.

Read more »

Posted in: antivirus,computering,fun,news,software

Norton Trial Reset For All Product 2011

Norton Trial Reset For All Product 2011 - Norton trial reset ini berfungsi untuk mereset masa trial dari antivirus jagoan yang satu ini seperti: Norton Internet Security 2011, Norton Antivirus 2011, Norton 360 v5.0. Norton memberikan full fiturnya walaupun norton antivirus tersebut adalah versi trial, cuma yang jadi permasalahannya adalah antivirus ini tidak dapat di crack dan di patch.

Read more »

Posted in: antivirus,computering,fun,news,software