Anyone got code for Win XP key Finder

[nals]

Can someone please give me the script for Win XP Key finder.

Thanks

[TimeSurfer]

nals,
Its nearly impossible to locate the windows cdkey from the registry due to the fact that its encrypted and not in clear text like in the previous windows versions. However there are a number of programs that are able to locate and decrypt the data. But if you were able to somehow decrypt the product id which resides in
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion] then i believe you would have your xp key. I'll do some more research and get back with you.

[TimeSurfer]

here is a little article i have found so far on this.

The Raw Product Key is buried inside the Product Key that is printed
on the sticker distributed with each Windows XP CD. It consists of
five alphanumeric strings separated by '-' characters, where each
string is composed of five characters, as in

FFFFF-GGGGG-HHHHH-JJJJJ-KKKKK

Each character is one of the following 24 letters and digits:

B C D F G H J K M P Q R T V W X Y 2 3 4 6 7 8 9

Very similar to the decimal encoding of the Installation ID the 25
characters of the Product Key form a base-24 encoding of the binary
representation of the Product Key. Decoding the Product Key yields a
multi-precision integer of roughly 115 bits, which is stored - again
in little endian byte order - in an array of 15 bytes. Decoding the
above Product Key results in the following byte sequence.

0x6F 0xFA 0x95 0x45 0xFC 0x75 0xB5 0x52
0xBB 0xEF 0xB1 0x17 0xDA 0xCD 0x00

Of these 15 bytes the least significant four bytes contain the Raw
Product Key in little endian byte order. The least significant bit is
removed by shifting this 32-bit value (0x4595FA6F - remember the
little endian byte order) to the left by one bit position, resulting
in a Raw Product Key of 0x22CAFD37, or

583728439

in decimal notation.

The eleven remaining bytes form a digital signature, allowing
verification of the authenticity of the Product Key by means of a
hard-coded public key.

[Intrigued]

http://www.magicaljellybean.com/keyfinder.shtml

Script version? (just saw that, ohhh bit tired here... thought for a moment this was "damage control" :-))

[RizlaUK]

Its nearly impossible to locate the windows cdkey from the registry

not when you have a dll to do the job it isent

[rexzooly]

not when you have a dll to do the job it isent

Indeed sweek :yes

[nals]

RizlaUK your a lifesaver, Thank you :yes

and TimeSurfer, Intrigued Thanks

[Esfahan]

Im agree whit pre post
REX and REZ are a angel's of lifesaver...
They help to all AMS users Always.

[RizlaUK]

RizlaUK your a lifesaver, Thank you

no problem nals

They help to all AMS users Always.

yup...if i had a penny for every pice of code iv posted i'd have a full £5 by now......lol

[clueless]

While were on the subject ...
(vbScript)

' 
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer
'
'***************************************************************************

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
   Wscript.echo "Script can't run without VolumeProductKey argument"
   Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
   Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err <> 0 then
      WScript.Echo Err.Description, "0x" & Hex(Err.Number)
      Err.Clear
   end if

Next

Usage : save it in a textfile with .VBS extension and then run it like a commandline program.

[Bruce]

I would love to see the same thing for emails (with permission of course)

[GoOgLe]

While were on the subject ...
(vbScript)

' 
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer
'
'***************************************************************************

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
   Wscript.echo "Script can't run without VolumeProductKey argument"
   Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
   Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err <> 0 then
      WScript.Echo Err.Description, "0x" & Hex(Err.Number)
      Err.Clear
   end if

Next

Usage : save it in a textfile with .VBS extension and then run it like a commandline program.

how can i change the key in vbs from ams ? maybe a dialog input or something to change it...

[ShadowUK]

how can i change the key in vbs from ams ? maybe a dialog input or something to change it...

File.Open ?

[GoOgLe]

yes it runs the vbs file but what i meant was how to change the key in vbs file with input object or dialog input ???

[ShadowUK]

yes it runs the vbs file but what i meant was how to change the key in vbs file with input object or dialog input ???

Well, Use File.Run with arguments, like Input.GetText or str = Dialog.Input.