Ozzyguy

@ CoffeeFiend. Mate, our lil app now works like a charm, due to the proper offset being used. Fantastic. We have been able to determine the byte size of the new key, and display it correctly. Do ya have any idea where MAK keys are stored ? I know you said you havent researched it much, but would be nice to be able to detect their presence also. Anyways mate, thanks heaps for the assistance.

Thanks for the heads up on the offset info, thats what i was looking for mate, and, in fact all ill need. Excellent. Yes, we have all other Os'es and platforms covered. The offset info was what had us beat ill say mate. Will try that out in my existing code, and report back....again...Many thanks...

I don't have Office 2010, so I don't have a way to test (but I would love to, I would like a good implementation of this in Delphi I know works). But I can look at the code and see what I see. It appears from the script posted by Cluberti that you need to iterate through all the keys on the main path and then check the key from there. It appears you're just taking a full path and going straight into checking for the value itself, and not checking the branch for existence. Duplicate what is happening here and you should have better results. Dim strKey, subkey, arrSubkeys2, strOfficeKey, strValue strKey = "SOFTWARE\Microsoft\Office\14.0\Registration" ScriptHelper.Registry.EnumKey HKEY_LOCAL_MACHINE, strKey, arrSubkeys2 If IsNull(arrSubkeys2) Then 'Office 2010 not installed, skip it arrSubKeys(4,1) = "" Else For Each subkey In arrSubkeys2 ScriptHelper.Registry.GetBinaryValue HKEY_LOCAL_MACHINE, strKey & "\" & subkey, SEARCH_KEY, strValue If IsNull(strValue) Then strOfficeKey = "" Else strOfficeKey = strKey & "\" & subkey arrSubKeys(4,1) = strOfficeKey End If Next End If Thanks for your reply mate. Yes im using my sub key branch at the moment just to test. But, the algorithm either just doesnt work Office 2010 , or the location of the key has changed, ie the start offset (34H) and 15 byte length, which would return the Key read error. My mate is the real programmer here, im just searching for some info on the 2010 DigitalProductID, as we have tried everything, and cant get the key to be displayed. Every other Windows build, and office version is catered for, except this one. 2010 has us stumped at present.

Thanks for the reply Gunsmokingman. I suppose i should post the code snip im using. (Delphi) If i use the Windows NT location to extract the Windows key, it works fine. Substituting Office 2010 location returns an error "Error reading registry key" Im lost lol. I thought either the start and finish offsets had changed for Office 2010, or, the algorithm itself has changed. If anyone with delphi knowledge would mind checking it out, id be most happy. Thanks in advance. ProductKey.txt

{10140000-0011-0000-1000-0000000FF1CE} @GunSmokingMan Neat little app you got goin there mate. Im just curious. The Office 2010 subkey of \Registration seems to be different on each PC its installed on. The only way i could get this to return a key, was to export my Key branch....edit it with your branch number i started with above....and import the reg back in. It did return an Office 2010 key, tho it was the wrong one. I have a mate who is building an app in delphi and found your post while researching it for him. We have every other Windows and office key being displayed, but were stuck on Office 2010. Is the decryption method different from other versions ? StartOffset, EndOffset etc ? If it is, would you mind posting the changes for me? As he can enumerate the subkey branches, but no matter what, the codes are always wrong. Thanks in advance mate.