Создайте файл сценария VBScript со следующими кодами. Сохраните файл с расширением .vbs, например: ProductKey.vbs - просто дважды щелкните файл. Если у вас пиратский windows, вы увидите пустое! Но если у вас подлинная Windows, вы сможете увидеть productKey
Код:
Установите WshShell = CreateObject («WScript. Оболочка")
MsgBox ConvertToKey (WshShell. RegRead («HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ DigitalProductId»))
Функция ConvertToKey (Ключ)
Const KeyOffset = 52
я = 28
Chars = «BCDFGHJKMPQRTVWXY2346789»
Делать
Cur = 0
х = 14
Делать
Cur = Cur * 256
Cur = Key (x + KeyOffset) + Cur
Ключ (x + KeyOffset) = (Cur \ 24) и 255
Cur = Cur Mod 24
х = х -1
Цикл пока x> = 0
я = я -1
KeyOutput = Mid (Chars, Cur + 1, 1) и KeyOutput
Если (((29 - i) Mod 6) = 0) And (i -1) Тогда
я = я -1
KeyOutput = «-» & KeyOutput
Конец, если
Цикл пока я> = 0
ConvertToKey = KeyOutput
Конечная функция