Регистрация
и
вход
Найти
Темы
Поиск по картине
Поиск изображения по сайту
Указать ссылку
|
Загрузить файл
Крутой поиск баянов
Везде
Темы
Комментарии
Видео
О сайте
Активные темы
Помощь
Правила
Реклама
Разделы
Лента
Общение
Хаос
Инкубатор
Арт
ЯП Файлы
ЯП-Telegram
Новый пост
Картинки
Видео
События
Авто/Мото
Зверье
Двигатель Торговли
Фотопутешествия
Тексты
Фотожаба
Креативы
ЯП Издательство
Игры Онлайн
Поэзия
Весёлая рифма
Золото
Коллекция
ЯП-Обзор
Строительство
Беседы
ЭВМ
Барахолка
Цех ЯП-творчества
Кинематограф
Крутятся Диски
Игры
Кулинария
Спорт
Поздравления
Инкубатор
Работа сайта
Склад баянов
Реклама
Главная
»
Разделы
»
Лента
»
Картинки
Как узнать лицензионный номер Windows 8-10 на ноут
[
Версия для печати
]
Страницы:
(5)
« Первая
...
3
4
[5]
[
ОТВЕТИТЬ
] [
НОВАЯ ТЕМА
]
Коекто
28.09.2015 - 08:58
[
показать
]
0
Статус:
Offline
Юморист
Регистрация: 3.06.14
Сообщений: 412
Цитата
(mean122 @ 24.09.2015 - 22:31)
Всё проще.
Код
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\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
Win 8.1 Pro - скрипт показывает ключи из одних B.
[
^
]
Понравился пост? Еще больше интересного в Телеграм-канале
Я
Плакалъ!
подписаться
искать по имени
Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.
Авторизуйтесь
, пожалуйста, или
зарегистрируйтесь
, если не зарегистрированы.
1 Пользователей читают эту тему (
1 Гостей и
0 Скрытых Пользователей)
Просмотры темы: 46340
0 Пользователей:
Страницы:
(5)
« Первая
...
3
4
[5]
[
ОТВЕТИТЬ
] [
НОВАЯ ТЕМА
]
Главная страница форума
Поиск
Помощь
Лента
- Картинки
- Видео
- События
- Авто/Мото
- Зверье
- Двигатель Торговли
- Фотопутешествия
- Тексты
- Фотожаба
- Креативы
- ЯП Издательство
- Игры Онлайн
- Поэзия
- Весёлая рифма
- Золото
- Коллекция
- ЯП-Обзор
- Строительство
Общение
- Беседы
- ЭВМ
- Барахолка
- Цех ЯП-творчества
- Кинематограф
- Крутятся Диски
- Игры
- Кулинария
- Спорт
- Поздравления
Хаос
- Инкубатор
- Работа сайта
- Склад баянов
Активные темы
Вот так фокус!
(3)
Lars575
Инкубатор
16:14
В США застрелили друга Джастина Бибера, рэпера Криса Кинга
(33)
Diamondix83
Инкубатор
16:14
Дембель сына. Боль и радость отца.(Израиль)
(481)
Karhu21
Тексты
16:14
Банк России вновь сохранил ключевую ставку на уровне 16%
(35)
гоша42
Инкубатор
16:14
Замначальника УМВД по Кировской области задержан пьяным за рулём...
(33)
lurkoyop
Инкубатор
16:14
Кондуктор подралась с бабушкой в автобусе, а потом вышвырнула её...
(17)
MARIK778
Инкубатор
16:14
Как выиграть 2 часа для домашних дел
(9)
Медбрат
Инкубатор
16:14
После этой темы
(20)
andrmozg
Инкубатор
16:14
Шойгу: Российская Федерация никогда не угрожала НАТО
(177)
viva4ever3
Инкубатор
16:14
Бедные таджики
(17)
Алекс22
Инкубатор
16:14
Музыка и музыканты: QUEEN "Made in Heaven"
(58)
Айдэн
Картинки
16:14
Сила слова
(94)
lapas
Тексты
16:14
Учёные дают объяснения чудесам описанным в Библии.
(93)
Blatero
Инкубатор
16:14
Польза от мобилизации для маргинальной прослойки нашего села и в...
(24)
aristokrat90
Инкубатор
16:14
Что на самом деле означает «Георгиевская ленточка» и как правиль...
(134)
vumba
Тексты
16:13
Обзор активных тем »
Наверх