Данная статья создана исключительно в ознакомительных целях.
После статьи про лицензионный ключ активации Windows, мне вспомнился случай с одним хорошим знакомым, который приобрел ноутбук на Авито.
Это был относительно старый ноутбук 2011 года, приобретаемый для офисной работы, с предустановленной Windows 7 на борту. С ноутбуком, шел OEM ключ активации - наклейка на корпусе. Приехав за ноутбуком, осмотрев его, прогнав от и до, Игорь (пусть будет Игорем) не обратил внимание только на одну единственную мелочь. Наклейка с OEM ключом практически не держится.
Уложив ноутбук в сумку , он отправился домой. В общественном транспорте он несколько раз доставал его из сумки, включал, серфил интернет. Приехав домой, сразу же занялся улучшением покупки. Заменил HDD на SSD, вставил новую ОЗУ и без долгих раздумий начал установку Windows.
Ничего не предвещало беды, но в момент установки Windows 7 попросила ключ активации. Игорь посмотрел на заднюю крышку, и... наклейки с ключом не обнаружил. Подключив обратно HDD, Игорь позвонил мне, и спросил, как можно узнать ключ активации?
Тогда, а это был далекий 2014, у меня не возникало потребности восстанавливать ключ активации. Немного поразмыслив, я начал просматривать разные зарубежные форумы, и нашел одно решение.
Помимо программ showkeyplus, oemkey, rweverything, которые еще нужно было найти, скачать, установить (а это еще то приключение). Мне попался текст одного интересного скрипта. Выполняя который, на экране появляется табличка с ключом активации.
Итак, сам скрипт:
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win10ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win10ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win10ProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows 10 Key: " & Win10ProductKey
Win10ProductID = Win10ProductName & Win10ProductID & strProductKey
MsgBox(Win10ProductKey)
MsgBox(Win10ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin10 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin10 And 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
y = y -1
Loop While y >= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j >= 0
If (isWin10 = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = "N"
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
a = Mid(winKeyOutput, 1, 5)
b = Mid(winKeyOutput, 6, 5)
c = Mid(winKeyOutput, 11, 5)
d = Mid(winKeyOutput, 16, 5)
e = Mid(winKeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function
Выглядит это примерно так:
Создаем текстовый документ, вставляем текст, теперь нажимаем сохранить как:
В графе имя файла пишем KeyWindows.vbs и нажимаем сохранить, появится файл.
Теперь запускаем, должно появиться вот такое окно с ключом активации:
После нажатия кнопки "ок" появится второе окно, с более подробными данными системы:
Может возникнуть вопрос, какого хрена Игорь вместо того, чтобы произвести ряд манипуляций и использовать активатор, начал звонить и выяснять, как узнать настоящий ключ.
Очень просто:
Во-первых, активируя систему без лицензионного ключа - вы нарушаете закон.
Во-вторых, для офисной работы очень желательна лицензионная копия.
В-третьих, Игорь - честный парень, отстаньте от Игоря!
Экономьте ваши деньги, и не будьте обманутыми, берегите себя и близких.
Если у вас возникли вопросы, либо пожелания, пишите в комментариях, либо в группу ВК.
