hightower

?

Yes, this is the VBS-Code: Function decodeKey2(iValues, strProduct) Dim arrDPID arrDPID = Array() ' <--------------- extract bytes 52-66 of the DPID --------------------------> For i = 808 to 822 ReDim Preserve arrDPID( UBound(arrDPID) + 1 ) arrDPID( UBound(arrDPID) ) = iValues(i) Next ' <--------------- Create an array to hold the valid characters for a microsoft --------------------------> Dim arrChars arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9") ' <--------------- The clever bit !!! (decode the base24 encoded binary data)--------------------------> For i = 24 To 0 Step -1 k = 0 For j = 14 To 0 Step -1 k = k * 256 Xor arrDPID(j) arrDPID(j) = Int(k / 24) k = k Mod 24 Next strProductKey = arrChars(k) & strProductKey If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey Next ReDim Preserve foundKeys( UBound(foundKeys) + 1 ) foundKeys( UBound(foundKeys) ) = strProductKey strKey = UBound(foundKeys) '' write output data inserted in XML' Wscript.Echo "<OFFICEPACK>" Wscript.Echo "<OFFICEKEY>" & foundKeys(strKey)& "</OFFICEKEY>" Wscript.Echo "<OFFICEVERSION>" & strProduct & "</OFFICEVERSION>" Wscript.Echo "</OFFICEPACK>" End Function

Hey, thx - but sorry - i would like to use non 3rd party application. we have written in autoit our own application. has anobody some idea to decode the office 2010 key?

I would use the code/function for harvest my Computer-Configuration on the Network! not for illegal use eg..

Hello Guys, i try to extract the Installationkey of Office 2010 from the Registry. In Version 2010 the range has been modified by Microsoft from 52 - 66 to 808 to 822. Can anyone help me to modify this script? -snip- Regards