Cree un archivo de script VBScript con los siguientes códigos. Guarde el archivo con una extensión .vbs, por ejemplo: ProductKey.vbs - Simplemente haga doble clic en el archivo. Si tienes ventanas pirateadas, ¡verás en blanco! Pero si tiene un Windows original, podrá ver la clave de producto
Código:
Establezca WshShell = CreateObject (“WScript. Cascarón")
MsgBox ConvertToKey (WshShell. RegRead ("HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ DigitalProductId"))
Función ConvertToKey (clave)
Const KeyOffset = 52
i = 28
Caracteres = "BCDFGHJKMPQRTVWXY2346789"
Hacer
Cur = 0
x = 14
Hacer
Cur = Cur * 256
Cur = Clave (x + KeyOffset) + Cur
Clave (x + KeyOffset) = (Cur \ 24) Y 255
Cur = Cur Mod 24
x = x -1
Bucle mientras x> = 0
yo = yo -1
KeyOutput = Mid (Chars, Cur + 1, 1) y KeyOutput
Si (((29 - i) Mod 6) = 0) Y (i -1) Entonces
yo = yo -1
KeyOutput = “-” y KeyOutput
Terminara si
Bucle mientras i> = 0
ConvertToKey = KeyOutput
Función final