Looge VBScripti skriptifail järgmiste koodidega. Salvestage fail laiendiga .vbs, näiteks: ProductKey.vbs – lihtsalt topeltklõpsake failil. Kui teil on piraataknad, näete tühja! Kuid kui teil on ehtne Windows, näete tootevõtit
Kood:
Määra WshShell = CreateObject (“WScript. Shell)
MsgBox ConvertToKey (WshShell. RegRead ("HKLM\TARKVARA\Microsoft\Windows NT\CurrentVersion\DigitalProductId")
Funktsioon ConvertToKey (võti)
Const Key Offset = 52
i = 28
Tähed = "BCDFGHJKMPQRTVWXY2346789"
Tee
Cur = 0
x = 14
Tee
Cur = Cur * 256
Cur = Key (x + Key Offset) + Cur
Klahv (x + klahvinihe) = (Cur \ 24) ja 255
Cur = Cur Mod 24
x = x -1
Silmus, kui x >= 0
i = i -1
Key Output = keskmine (tähed, Cur + 1, 1) ja klahviväljund
Kui (((29 – i) Mod 6) = 0) Ja (i -1) Siis
i = i -1
KeyOutput = "-" & Key Output
Lõpeta Kui
Silmus, kui i >= 0
ConvertToKey = Võtmeväljund
Lõpetamisfunktsioon