Archiv Server-Windows 15.877 Themen, 54.317 Beiträge

Verfolgung starten Optionen

Produkt Key unter Win2000 finden

Modiki2 / 7 Antworten / Baumansicht Nickles

Hallo,


wollte mal fragen, ob man irgendwie den Produktkey (Installation) im nachhinein rausfinden kann.


Danke


Gruss
Modiki

T-Rex Modiki2 „Produkt Key unter Win2000 finden“
Optionen

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



 
UselessUser T-Rex „Afaik steht der Schlüssel unter HKEY_LOCAL_MACHINE SOFTWARE Microsoft Windows...“
Optionen

Hi T-Rex,

stark, wo hast du das her?? Werde ich mir gleich einmal kopieren, bevor ein eifriger "Wip" das hier von der Tafel wischt. ;-)

MfG

UselessUser

T-Rex UselessUser „Hi T-Rex, stark, wo hast du das her?? Werde ich mir gleich einmal kopieren,...“
Optionen

Warum sollte ein VIP das wegwischen? Hier steht ja nur, wie man den ausgelesenen Wert umrechnet, auslesen muß man selbst.

AFAIR war das mal Delphi, bei www.ActiveVB.de wurde das nach VB6 umgeschrieben.


 

fbe Modiki2 „Produkt Key unter Win2000 finden“
Optionen

Google mal nach keyfinder.exe
fbe

Der Gnadenlose Modiki2 „Produkt Key unter Win2000 finden“
Optionen

darf ich dir dieses Tool ans Herz legen?

Dieses Proggy ließt aus einem bereits installierten Win-BS (auch Office) (Windows 95, 98, ME, NT4, 2000, XP, Server 2003, Office 97, und Office XP) den CD Code aus.

Der Gnadenlose Modiki2 „Produkt Key unter Win2000 finden“
Optionen

Oupps.......:C

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

gelöscht_84526 Modiki2 „Produkt Key unter Win2000 finden“
Optionen

Geht auch mit AIDA oder dem Nachfolgeprogramm Everest.

Gruß