Vytvorte súbor skriptu VBScript s nasledujúcimi kódmi. Uložte súbor s príponou .vbs, napríklad: ProductKey.vbs – Stačí dvakrát kliknúť na súbor. Ak máte pirátske okná, uvidíte prázdne! Ale ak máte originálny Windows, uvidíte productKey
kód:
Nastaviť WshShell = CreateObject(“WScript. Shell”)
MsgBox ConvertToKey (WshShell. RegRead(“HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId”))
Funkcia ConvertToKey (kľúč)
Const KeyOffset = 52
i = 28
Znaky = „BCDFGHJKMPQRTVWXY2346789“
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key (x + KeyOffset) + Cur
Kľúč (x + KeyOffset) = (Cur \ 24) a 255
Cur = Cur Mod 24
x = x-1
Slučka, zatiaľ čo x >= 0
i = i-1
KeyOutput = Mid (Chars, Cur + 1, 1) & KeyOutput
Ak (((29 – i) Mod 6) = 0) A (i -1) Potom
i = i-1
KeyOutput = „-“ & KeyOutput
Koniec Ak
Slučka, zatiaľ čo i >= 0
ConvertToKey = KeyOutput
End Function