Office-Key auslesen?

mit aida32 kannst es auslesen - aber da solltest glaub ich von der hdd booten - na bin mir sogar sicher.

nagut, wird aber kompliziert

als erstes holen wir uns die registry von der alten platte.
dazu brauchst du die datei x:\WINDOWS\system32\config\system (ohne endung) des alten systems.
vorher eventuell unter extras - ordneroptionen - ansicht, die systemdateien anzeigen lassen.

dann .. machst du den registryeditor auf.
markierst den hkey_lm ordner und gehst auf Datei - Struktur laden und speicherst das ganze unter OFFICEKEY.

soweit so gut.

jetzt machst du irgendwo am pc ein neues textdokument.
benennst es auf office.vbs um.
sollte sich das symbol nicht ändern in eine seite mit einer grünen "papierwelle" drinnen, musst du vorher im arbeitsplatz auf extras ordneroptionen, ansicht, und den hacken bei "erweiterungen bei bekannten dateitypen ausblenden" entfernen.
dann nochmal auf office.vbs umbenennen (sprich das vorher versteckte office.vbs.txt weglöschen.

jetzt hast du die grüne welle.

jetzt klickst du das file rechts an und gehst auf bearbeiten.
geht ein normales editorfenster auf und du kopierst folgendes hinein:

Zitat

Set WshShell = WScript.CreateObject("WScript.Shell")
HexBuf = WshShell.RegRead("HKLM\OFFICEKEY\SOFTWARE\Microsoft\Office\10.0\Registration\{90280409-6000-11D3-8CFE-0050048383C9}\DigitalProductId")
For l = lBound(HexBuf) to uBound(HexBuf)
tmp=tmp & " "& Hex (HexBuf(l))
next
StartOffset = 52
EndOffset =67
Dim Digits (24)
Digits (0) = "B" : Digits (1) = "C": Digits (2) = "D": Digits (3) = "F":
Digits (4) = "G": Digits (5) = "H": Digits (6) = "J": Digits (7) = "K":
Digits (8) = "M": Digits (9) = "P": Digits (10) = "Q": Digits (11) = "R":
Digits (12) = "T": Digits (13) = "V": Digits (14) = "W": Digits (15) = "X":
Digits (16) = "Y": Digits (17) = "2": Digits (18) = "3": Digits (19) = "4":
Digits (20) = "6" : Digits (21) = "7" : Digits (22) = "8": Digits (23) = "9"
dLen = 29
sLen = 15
Dim HexDigitalPID (15)
Dim Des (30)
For i = StartOffset to EndOffset
HexDigitalPID (i-StartOffset) = HexBuf(i)
tmp2=tmp2 & " "& Hex (HexDigitalPID(i-StartOffset))
next
KEYSTRING =""
for i=dLen-1 to 0 step -1
if ((i + 1) mod 6) = 0 then
Des (i) = "-"
KEYSTRING =KEYSTRING & "-"
else
HN = 0
For N = (sLen -1) to 0 step -1
Value = ( (HN *2^8 ) Or HexDigitalPID (N))
HexDigitalPID (N) = Value \ 24
HN = (Value mod 24)
next
Des(i) = Digits(HN)
KEYSTRING =KEYSTRING & Digits(HN)
end if
next
KEYSTRING2 = StrReverse (KEYSTRING)
WScript.Echo "Product Key: " & KEYSTRING2

speicherst das ganze.

gehst auf start - ausführen und schreibst dort CMD rein.
in das jetzt offene prompt ziehst du die vorhin erstellte .vbs rein und drückst enter.

tata .. dein code.

Mfg fEw

das aus deinem quote schon, den quellcode habich nurmehr geringfügigst angepasst, eine zeile . da der normalerweise auf der entsprechenden Windowsinstallation ausgeführt wird und nicht in eine importierten registry.

Mfg fEW

also bei mir is das selbe, ich möchte den key irgendwie auslesen, gibt es da so ne art tool?

mit Aida hab ich es schon versucht, dort hab cih nur den windows key gefunden.

mfg feldputtn

wenn du das selbe prroblem hast, was spricht dagegen die selbe lösung zu verwenden ?

Mfg fEw