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