Vytvořte soubor skriptu VBScript s následujícími kódy. Uložte soubor s příponou .vbs, například: ProductKey.vbs – Stačí na soubor dvakrát kliknout. Pokud máte pirátská okna, uvidíte prázdné! Ale pokud máte originální Windows, uvidíte productKey
Kód:
Set WshShell = CreateObject(“WScript. Shell”)
MsgBox ConvertToKey (WshShell. RegRead(“HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId”))
Funkce ConvertToKey (klíč)
Const KeyOffset = 52
i = 28
Znaky = „BCDFGHJKMPQRTVWXY2346789“
Dělat
Cur = 0
x = 14
Dělat
Cur = Cur * 256
Cur = Key (x + KeyOffset) + Cur
Klíč (x + KeyOffset) = (Cur \ 24) a 255
Cur = Cur Mod 24
x = x-1
Smyčka Zatímco x >= 0
i = i-1
KeyOutput = Mid (Chars, Cur + 1, 1) & KeyOutput
Jestliže (((29 – i) Mod 6) = 0) A (i -1) Pak
i = i-1
KeyOutput = „-“ & KeyOutput
End If
Smyčka, zatímco i >= 0
ConvertToKey = KeyOutput
End Function