Crie um arquivo de script VBScript com os seguintes códigos. Salve o arquivo com extensão .vbs, por exemplo: ProductKey.vbs - Basta clicar duas vezes no arquivo. Se você tiver um windows pirata, verá em branco! Mas se você tiver um Windows genuíno, poderá ver a productKey
Código:
Defina WshShell = CreateObject (“WScript. Concha")
MsgBox ConvertToKey (WshShell. RegRead (“HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ DigitalProductId”))
Função ConvertToKey (Key)
Const KeyOffset = 52
i = 28
Chars = “BCDFGHJKMPQRTVWXY2346789”
Fazer
Cur = 0
x = 14
Fazer
Cur = Cur * 256
Cur = Chave (x + KeyOffset) + Cur
Key (x + KeyOffset) = (Cur \ 24) e 255
Cur = Cur Mod 24
x = x -1
Loop enquanto x> = 0
i = i -1
KeyOutput = Mid (Chars, Cur + 1, 1) e KeyOutput
If (((29 - i) Mod 6) = 0) And (i -1) Then
i = i -1
KeyOutput = “-” & KeyOutput
Fim se
Loop enquanto i> = 0
ConvertToKey = KeyOutput
Função Final