hallo,
kann einer mir sagen wie ich das serial für XP Office 2003 auslese.
gibt es da inen tool für?
danke und gruss
macoku
PS: Die Original CD-Hülle, haben meine beiden kinder als Bastelvorlage benutzt :-(
Seite 1 von 1
Office Xp Serial Auslesen
Anzeige
#3
geschrieben 30. August 2006 - 09:33
Ich wage mal zu bezweifeln, dass diese KeyFinder sauber sind. Das ist schließlich eine gute Methode Malware einzuschleusen
#4 _MagicAndre1981_
geschrieben 30. August 2006 - 09:43
wieso? der algorithmus ist nicht schwer und den gibts genug im Netz
#5
geschrieben 30. August 2006 - 09:54
Der Algorythmus ja. Aber da kannst du noch eine Menge ranfügen Ich hatte vor 2 Jahren mal einem mit nem Keylogger erwischt. Also Nix ist unmöglich
#6
geschrieben 30. August 2006 - 10:12
mit tweak-xp kannst du die serial für office und windows auslesen.
guggst du hier -> http://www.totalidea...tent/index.html
guggst du hier -> http://www.totalidea...tent/index.html
#7
geschrieben 30. August 2006 - 11:41
Du kannst das ganze auch mit VBS machen wenn du den Keyfindern nicht traust.
Hier ein Beispiel für Office XP Professional:
Für Office 2003 (Professional) einfach den Reg-Key (in der zweiten Zeile) etwas abändern:
HKLM\SOFTWARE\Microsoft\Office\11.0\Registration\{90110407-6000-11D3-8CFE-0150048383C9}\DigitalProductId
Hier ein Beispiel für Office XP Professional:
Set WshShell = WScript.CreateObject("WScript.Shell") HexBuf = WshShell.RegRead("HKLM\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
Für Office 2003 (Professional) einfach den Reg-Key (in der zweiten Zeile) etwas abändern:
HKLM\SOFTWARE\Microsoft\Office\11.0\Registration\{90110407-6000-11D3-8CFE-0150048383C9}\DigitalProductId
Dieser Beitrag wurde von puppet bearbeitet: 30. August 2006 - 11:51
Thema verteilen:
Seite 1 von 1