Erstellen Sie eine VBScript-Skriptdatei mit den folgenden Codes. Speichern Sie die Datei mit der Erweiterung .vbs, zum Beispiel: ProductKey.vbs – Doppelklicken Sie einfach auf die Datei. Wenn Sie ein Raubkopienfenster haben, sehen Sie leer! Aber wenn Sie ein echtes Windows haben, können Sie den productKey sehen
Code:
Set WshShell = CreateObject(“WScript. Hülse")
MsgBox ConvertToKey (WshShell. RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Funktion ConvertToKey (Schlüssel)
Const KeyOffset = 52
ich = 28
Zeichen = "BCDFGHJKMPQRTVWXY2346789"
Tun
Cur = 0
x = 14
Tun
Cur = Cur * 256
Cur = Key (x + KeyOffset) + Cur
Schlüssel (x + KeyOffset) = (Cur \ 24) Und 255
Cur = Cur Mod 24
x = x -1
Schleife während x >= 0
ich = ich -1
KeyOutput = Mid (Chars, Cur + 1, 1) & KeyOutput
Wenn (((29 – i) Mod 6) = 0) Und (i -1) Dann
ich = ich -1
KeyOutput = „-“ & KeyOutput
Ende Wenn
Schleife während ich >= 0
ConvertToKey = KeyOutput
Endfunktion