Search This Blog

Sunday, July 15, 2007

Windows XP Product Key Finder

' Windows XP Product Key Finder
' Copy text and paste it in a vbs file and run it.
' Code found by SaM. EnJoY!
' We work in the dark. We get what we want.

Public Function sGetXPCDKey()

Dim bDigitalProductID
Dim bProductKey()
Dim bKeyChars(24)
Dim ilByte
Dim nCur
Dim sCDKey
Dim ilKeyByte
Dim ilBit

ReDim Preserve bProductKey(14)

Set objShell = CreateObject("WScript.Shell")

bDigitalProductID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\DigitalProductId")

Set objShell = Nothing

For ilByte = 52 To 66
bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
Next

'Possible characters in the CD Key:
bKeyChars(0) = Asc("B")
bKeyChars(1) = Asc("C")
bKeyChars(2) = Asc("D")
bKeyChars(3) = Asc("F")
bKeyChars(4) = Asc("G")
bKeyChars(5) = Asc("H")
bKeyChars(6) = Asc("J")
bKeyChars(7) = Asc("K")
bKeyChars(8) = Asc("M")
bKeyChars(9) = Asc("P")
bKeyChars(10) = Asc("Q")
bKeyChars(11) = Asc("R")
bKeyChars(12) = Asc("T")
bKeyChars(13) = Asc("V")
bKeyChars(14) = Asc("W")
bKeyChars(15) = Asc("X")
bKeyChars(16) = Asc("Y")
bKeyChars(17) = Asc("2")
bKeyChars(18) = Asc("3")
bKeyChars(19) = Asc("4")
bKeyChars(20) = Asc("6")
bKeyChars(21) = Asc("7")
bKeyChars(22) = Asc("8")
bKeyChars(23) = Asc("9")

For ilByte = 24 To 0 Step -1
nCur = 0

For ilKeyByte = 14 To 0 Step -1
'Step through each byte in the Product Key
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next

sCDKey = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
Next

sGetXPCDKey = sCDKey
End Function

Public Function Question()

Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim Ans

Ans = MsgBox("Yes = Write Windows XP Serial key to the C Drive and No =
Prompt with Serial key",4)

If Ans = vbYes then

Set oOutFile = objFSO.CreateTextFile("c:\XP_Serial_Key.txt")

oOutFile.WriteLine sGetXPCDKey
else
wscript.echo sGetXPCDKey
End If
End Function

call Question

' Script ends here

Get the script here.

Change Office 2007 Key without reinstalling

1.      Close all Microsoft Office applications.

2.      Click Start, click Run, type regedit in the Open box, and then click OK.

3.      Locate the following registry subkey:
HKEY_LOCAL_MACHINE\Software\Microsoft\Office\12.0\Registration

Note You may also find another subkey that resembles the following subkey:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\Registration\{91120000-0011-0000-0000-0000000FF1CE}

4.      If you find additional subkeys that reference Microsoft 12.0 registration, open each subkey, and then identify the product by the ProductName entry.
For example: ProductName=Microsoft Office Professional Plus 2007

5.      When you find the subkey for the product from which you want to remove the existing product license key, delete the following entries:

o    DigitalProductID

o    ProductID

6.      Exit Registry Editor.

The next time that you try to run an Office application, you will be prompted for a new product license key. Then, you can enter the product license key.

Hit the "Install Now" button and you Office app, will be updated with the new key. After updating you can activate your Office app, without reinstalling it.

Wednesday, July 11, 2007

A feeling which I had long forgotten

Today after much though, I realized what is actually bothering me. Well, "bothering" would be the incorrect word to use in this context because I believe that I have once again fallen in love! And that too with the person I never expected to fall in love with... a very good friend. I realized that I was missing something after moving away from her and then I realized that I was missing her (a lot). It happens all the time... we never care for things which we can easily avail, but once those things become hard to get we come to know its worth. I never imagined myself falling in love again after I crashed and burned at my first attempt which was very painful to say the least. And now once again I am treading on the same path and guess what... I can't see what's ahead! I guess I would have never felt this way about her unless she allowed me to, so she too must be having some idea about how I feel about her. I guess I should confess to her about my feelings soon before it gets deeper in my head. Love is good and bad at the same time. It gives you that awesome feeling and the same time make you a worthless piece of s**t. So baby here I come and you're going to tell me if "I am in" or "I am out"!

Feedback Please

I would like to formally announce that right now I am working on my very own website. Please visit http://gomes.samuel.googlepages.com/
I need feedback and support from all you guys out there.

P.S.: It is still a work in progress.