Hallo,
wollte mal fragen, ob man irgendwie den Produktkey (Installation) im nachhinein rausfinden kann.
Danke
Gruss
Modiki
Archiv Server-Windows 15.877 Themen, 54.317 Beiträge
T-Rex Modiki2 „Produkt Key unter Win2000 finden“
Afaik steht der Schlüssel unter
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
und nennt sich DigitalProductId
Der Schlüssel selbst ist verschlüsselt, mit folgendem VB/VBA-Code kannst Du ihn entschlüsseln:
Public Function GetProductKey(strValue As String) As String
Dim KeyChars() As String
Dim BinaryKey(0 To 14) As Byte
Dim DecodedKey(0 To 24) As String * 1
Dim i As Long
Dim j As Long
Dim a As Long
Dim Result As String
KeyChars = Split(StrConv("BCDFGHJKMPQRTVWXY2346789", vbUnicode), vbNullChar)
' Binary-Key-Array erstellen
For i = LBound(BinaryKey) To UBound(BinaryKey)
BinaryKey(i) = Val("&H" & Mid$(strValue, i * 2 + 1, 2) & "&") 'Hex-Werte
Next i
' ProductKey berechnen
For i = UBound(DecodedKey) To LBound(DecodedKey) Step -1
a = 0
For j = UBound(BinaryKey) To LBound(BinaryKey) Step -1
a = (a * 2 ^ 8) + BinaryKey(j)
BinaryKey(j) = a \ 24
a = a Mod 24
Next j
DecodedKey(i) = KeyChars(a)
Next i
' Ergebnis zusammensetzen
Result = vbNullString
For i = LBound(DecodedKey) To UBound(DecodedKey)
Result = Result & DecodedKey(i)
If ((i + 1) Mod 5 = 0) And (i Result = Result & "-"
End If
Next i
GetProductKey = Result
End Function
