[Systemfailure]

Hallo Leute,

wir haben ein Problem. Wir haben einen Rechner mit Office 2000 RC1 und Windows 2000 mit SP4. Das Probblem ist das der Kunde den Lizenz key nicht mehr findet. Und wir Probleme haben dieses Auszulesen.

Wir haben es bereits mit Keyfind und everest versucht, brachte aber leider keinen Erfolg.

Hat noch jemand eine idee?


by
Systemfailure

[DK2000]

Der Key müsste in kodierter Form zu finden sein unter:
HKLM\SOFTWARE\Microsoft\Office\9.0\Registration\{GUID}\DigitalProductId

Wobei ich jetzt die GUID von Office 2000 RC1 nicht kenne. Weiß jetzt auch nicht, wie er kodiert ist. Irgendwo hatt eich mal ein VBScript rumfliegen, der das konnte. Wundert mich jetzt nur, das Everest das nicht kann.

[sn00b]

schaust du hier, folge dem link im ersten post, welsches programm es genau ist steht im dritten post! ob's geht kann ich leider nicht testen, viel glück!

gruß

[Systemfailure]

Das sind ja alles gute ansätze aber wirklich weitergekommen bin ich bisher nicht.

@Master.Max
Wenn ich das so verstehe ist das ein tool zum herausfinden eines Passwords und nicht um den Key.


by
Systemfailure

[sn00b]

Zitat

Hallo nochmal,

also noch mal was ergänzend:
das klasse tool heißt "advanced windows passwort recovery". es ließt keys von fast allen Office Versionen die es gibt und darüber hinaus auch die von windows.

der "keyfinder" ist auch ein tool zum auslesen von office- & windows keys. sein vorteil ist es, dass es sehr klein ist & man es nicht installieren muss, allerdings kann es nur die Office- keys der versionen 97 & XP auslesen. windows xp keys kann man mit dem tool sogar ändern.

so, das wärs...
tschü- das ei

das steht da im dritten post, ich verstehe es so das man den key (serial) auslesen kann, wiegesagt kann es leider nicht testen! kannst es ja mal probieren!

[DK2000]

Ist auf dem Rechner Windows Script installiert? Dann könnte es mit der .vbs Datei gehen:

Dim Act, Fso, KeyOFF
Set Act = CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
KeyOFF = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\Registration\{30120000-0011-0000-0000-0000000FF1CE}\DigitalProductId"
Function GetKey(rpk)
Const rpkOffset=52:i=28
szPossibleChars="BCDFGHJKMPQRTVWXY2346789"
Do
dwAccumulator=0 : j=14
Do
dwAccumulator=dwAccumulator*256
dwAccumulator=rpk(j+rpkOffset)+dwAccumulator
rpk(j+rpkOffset)=(dwAccumulator\24) and 255
dwAccumulator=dwAccumulator Mod 24
j=j-1
Loop While j>=0
i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1) & szProductKey
If (((29-i) Mod 6)=0) And (i<>-1) Then
i=i-1 : szProductKey="-"&szProductKey
End If
Loop While i>=0
GetKey=szProductKey
End Function
MsgBox "Product Key : " & GetKey(Act.RegRead(KeyOFF)), 0 + 48 + 0, "Product Key"

Damit kann ich von Office 2007 den Key auslesen. Müsstest halt nur die Zeile "KeyOFF =" anpassen (Version und CLSID). Theoretisch müsste es mit Office 2000 auch gehen.

Argh! sehe gerade, dass die Forensoftware einen Zeilenumbruch da reingehauen hat, wo keiner hingehört. Jetzt müsste es passen. Wird zwar das Forum etwas gedenht, aber was solls.

Menno. Jetzt ist die Zeile mit KeyOFF = einen Zeilenumbruch. Der String mit dem Registrypfad gehört natürlich hinter KeyOFF = "HKEY_LOCAL_MACHINE\..."

Dieser Beitrag wurde von DK2000 bearbeitet: 22. September 2006 - 12:56

[Systemfailure]

Zitat (Master.Max: 22.09.2006, 13:23)

das steht da im dritten post, ich verstehe es so das man den key (serial) auslesen kann, wiegesagt kann es leider nicht testen! kannst es ja mal probieren!

Also, das tool hab ich grad runter geladen. Leider ist das genau so genial wie die anderen. Das eine hat wenigestens noch gesagt "I'm sorry, i give up".

Das Scrips muss ich schnell ausprobieren.