
Программное обеспечение
Windows 8. Пиратка или лицензия (см. внутри)?
При покупке ноутбука диск с Windows не прилагался, также нет и наклейки с ключом на задней стороне ноута. Но Windows же установлена и не требует активации! Если это лицензия, тогда почему не дали ключ? В свойствах компьютера в Активации пишет "Активация WIndows выполнена". В интернете говорят, что если нет такого изображения картинка), то это пиратка. У меня его нет. Что думаете?


это лицензия
ключ вшит в биосе
т. е. ты этим ключом сможешь пользоваться только на ноуте
есть вариант что ключ только в образе которой находится в раздел Рековери
и если винчестер даст дубу то лицензии уже нет
но в основном вшивают в БИОС
ключ вшит в биосе
т. е. ты этим ключом сможешь пользоваться только на ноуте
есть вариант что ключ только в образе которой находится в раздел Рековери
и если винчестер даст дубу то лицензии уже нет
но в основном вшивают в БИОС
если твой биос с поддержкой uefi, то ключ зашит там, при восстановления система активируется автоматом при выходе в инет. Ключ можно узнать - вытащить утилитой RWEverything
ключ не дают потому что это корпоративная так вроде она называется, там одним ключом несколько сотен активируют
Выполни VBS-будет указан твой ключ. На новых ноутах теперь так и есть, без всяких наклеек. Подразумевается что ты ту систему будешь юзать пока через год новый ноут не купишь)))
____VBS___
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win8ProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows 8 Key: " & Win8ProductKey
Win8ProductID = Win8ProductName & Win8ProductID & strProductKey
MsgBox(Win8ProductKey)
MsgBox(Win8ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 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 (isWin8 = 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
____VBS___
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win8ProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows 8 Key: " & Win8ProductKey
Win8ProductID = Win8ProductName & Win8ProductID & strProductKey
MsgBox(Win8ProductKey)
MsgBox(Win8ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 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 (isWin8 = 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
если нет наклейки на корпусе или упаковке то пиратка
Иванов Игорь
нет, ключ на 8-ке вшивают и при подключении к интернету - идёт самоакивация.
Или пиратку поставили или это ОЕМ версия для производителей оборудования.
На восьмёрке нет этой эмблемы и система при подключении к интернету сама активируется. Ключик вшит.
Активацию можно проверить выполнив команду: slmgr/xpr если активировано легально - активация будет постоянной, если нелегальная - на срок в 180 дней.
Активацию можно проверить выполнив команду: slmgr/xpr если активировано легально - активация будет постоянной, если нелегальная - на срок в 180 дней.
В свойствах компутера где написано что активация выполнена и ключ активации должен быть прописан
пиратка
тебя так волнует получил билгейц свои $300 или нет ?
В новых ноутбуках ключ вшит в биос.
Валерий Цыплин
А чтобы увидеть эту картинку зайди Панель управления - Система.
Это изображение и в пиратке есть
Похожие вопросы
- Нужен ноутбук для интернета, для работы в WINDOWS,для скачивания музыки и (см. внутри)
- Помогите! Не загружается windows 8.1 (лицензия).
- Windows 10 пиратка/лицензия
- У меня стоит пиратка Windows XP, если я куплю на сайте лицензию Windows 8.1 (ключ), то как мне его активировать?
- Не удаётся снести лицуху windows 8, что-бы поставить 7-ку пиратку?
- Перестал загружаться Windows, выдаёт вот такие ошибки (см. картинки внутри) . Как быть?
- как переустановить windows 7 и сохранить лицензию?
- Windows - пиратка или лицензия ? ( за и против )
- после ухода президента подразделения Windows Steven Sinofsky буквально через 15 дней после выхода Windows 8, и (внутри)
- Переустановка Windows 10 без потери лицензии.