Creați un fișier script VBScript cu următoarele coduri. Salvați fișierul cu o extensie .vbs, de exemplu: ProductKey.vbs – Doar faceți dublu clic pe fișier. Dacă aveți o fereastră piratată, veți vedea gol! Dar dacă aveți un Windows autentic, veți putea vedea ProductKey
Cod:
Setați WshShell = CreateObject ("WScript. Coajă")
MsgBox ConvertToKey (WshShell. RegRead(„HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId”))
Funcția ConvertToKey (Cheie)
Const KeyOffset = 52
i = 28
Caractere = „BCDFGHJKMPQRTVWXY2346789”
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key (x + KeyOffset) + Cur
Cheie (x + KeyOffset) = (Cur \ 24) Și 255
Cur = Cur Mod 24
x = x -1
Buclă While x >= 0
i = i -1
KeyOutput = Mid (Chars, Cur + 1, 1) & KeyOutput
Dacă (((29 – i) Mod 6) = 0) Și (i -1) Atunci
i = i -1
KeyOutput = „-” și KeyOutput
Încheiați dacă
Buclă While i >= 0
ConvertToKey = KeyOutput
Funcția de sfârșit