Русскоязычный форум в Германии

Вернуться   форум sWalki.net - Русский компьютерный форум в Германии > Компьютер > Система > Прочее

Ответ
 
Опции темы Опции просмотра
Старый 22.07.2019, 12:30   #1
Igor48
Директор
З‡везда ветерану форума.
ЗОЛОТОЊедаль пользователю форума.
ЗОЛОТОЊедаль автору.
ЗОЛОТО
Авторитет
 
Аватар для Igor48
 
Регистрация: 15.04.2006
Адрес: Кёльн
Сообщений: 3,721
Igor48 репутация неоспоримаIgor48 репутация неоспоримаIgor48 репутация неоспоримаIgor48 репутация неоспоримаIgor48 репутация неоспоримаIgor48 репутация неоспоримаIgor48 репутация неоспоримаIgor48 репутация неоспоримаIgor48 репутация неоспоримаIgor48 репутация неоспоримаIgor48 репутация неоспорима
По умолчанию Как узнать свой 25-значный код (ключ) активации




Для активации Windows 10 используется 25-значный код (ключ) формата: XXXXX-XXXXX-XXXXX-XXXXX-XXXXX. Чтобы узнать какой ключ использовался для активации системы, можно воспользоваться VBS скриптом.


Код скрипта для Windows 10:


Откройте блокнот и вставьте в него следующий текст:


Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Micro soft\Windows NT\CurrentVersion\DigitalProductId"))


Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function


В диалоговом окне Сохранить выберите Все файлы и сохранить файл в формате «имяфайла.vbs». Например, «Keyfinder.vbs».


Запустите получившийся скрипт и увидите ключ активации.


Код скрипта для Windows 7 / 8 / 8.1:


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 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
__________________
Семь раз отпей, один раз отъешь!
Igor48 вне форума   Ответить с цитированием
Реклама
Ответ

Социальные закладки


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход



Яндекс.Метрика

Рейтинг@Mail.ru

Яндекс цитирования
Powered by vBulletin® Version 3.8.12 by vBS
Copyright ©2000 - 2020, vBulletin Solutions, Inc. Перевод: zCarot
Все права защищены © sWalki.net
Design by HTWoRKS