Sukurkite VBScript scenarijaus failą su šiais kodais. Išsaugokite failą su plėtiniu .vbs, pavyzdžiui: ProductKey.vbs – tiesiog dukart spustelėkite failą. Jei turite piratinius langus, pamatysite tuščią! Bet jei turite autentišką „Windows“, galėsite matyti produkto raktą
Kodas:
Nustatyti WshShell = CreateObject („WScript. Lukštas)
MsgBox ConvertToKey (WshShell. RegRead („HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId“)
Funkcija ConvertToKey (raktas)
Const Key Offset = 52
i = 28
Simboliai = "BCDFGHJKMPQRTVWXY2346789"
Daryk
Cur = 0
x = 14
Daryk
Cur = Cur * 256
Cur = Key (x + Key Offset) + Cur
Raktas (x + Key Offset) = (Cur \ 24) Ir 255
Cur = Cur Mod 24
x = x -1
Ciklas, kai x >= 0
i = i -1
Key Output = Vidutinis (simboliai, Cur + 1, 1) & Key Output
Jei (((29 – i) Mod 6) = 0) Ir (i -1) Tada
i = i -1
KeyOutput = "-" & Key Output
Pabaiga, jei
Ciklas, kol i >= 0
ConvertToKey = Key Output
Pabaigos funkcija