Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Клиентские ОС Microsoft » Microsoft Windows 7 » Разное - [решено] Как без прог типа produkey получить ключ, который ввели при установке

Ответить
Настройки темы
Разное - [решено] Как без прог типа produkey получить ключ, который ввели при установке

Аватара для McLotos

Старожил


Сообщения: 410
Благодарности: 21

Профиль | Отправить PM | Цитировать

Добрый вечер. Имеется вот такой скриптик
читать дальше »
Код: Выделить весь код
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
WinProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
WinProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
WinProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows Key: " & WinProductKey
WinProductID = WinProductName & WinProductID & strProductKey
MsgBox(WinProductKey)
MsgBox(WinProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin 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 (isWin = 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, работает идеально, но хотелось бы сделать что-то подобное только для получения ключей с большого количества машин. Конечно имея права админа домена можно легко повесить этот скрипт в автозагрузку всех пользователей и заставить его сохранить результат работы в текстовый файл на каком-нибудь из файловых-серверов. Но может кто-нибудь подскажет более изящное решение этой задачи? ну так чтобы не беспокоить ДК по мелочам . Раз уж тема находится а разделе Клиентские ОС, то поставлю вопрос так:
Подскажите, в каком формате (каким методом/алгоритмом) шифруется такая информация в реестре.

-------
Старайтесь не решать свои проблемы по средствам личных сообщений, они могут быть решены очень не скоро.Не забывайте пользоваться поиском по форуму.Помните что уникальных проблем не бывает.Если всё-таки ответа не нашли, создайте тему, с подробным описанием проблемы.Спасибо за понимание.

Отправлено: 20:21, 26-02-2014

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата McLotos:
Конечно имея права админа домена можно легко повесить этот скрипт в автозагрузку всех пользователей и заставить его сохранить результат работы в текстовый файл на каком-нибудь из файловых-серверов. »
Ну, так в чём проблема?

Цитата McLotos:
Но может кто-нибудь подскажет более изящное решение этой задачи? »
То, что Вы изложили выше и есть самое изящное решение. Разве что для последующей обработки складывать стоит в базу данных, а не в текстовый файл (теоретически могут наложиться операции от разных машин). Менее изящное — собрать информацию «здесь и сейчас».

Последний раз редактировалось Iska, 27-02-2014 в 09:52. Причина: Добавлена пропущенная буква

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:34, 26-02-2014 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для McLotos

Старожил


Сообщения: 410
Благодарности: 21

Профиль | Отправить PM | Цитировать

Iska, наложиться они не смогут если имя файла=имя компьютера.
База данных? MySQL? Вариант, я почему-то о нём не подумал

-------
Старайтесь не решать свои проблемы по средствам личных сообщений, они могут быть решены очень не скоро.Не забывайте пользоваться поиском по форуму.Помните что уникальных проблем не бывает.Если всё-таки ответа не нашли, создайте тему, с подробным описанием проблемы.Спасибо за понимание.

Отправлено: 22:46, 26-02-2014 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Ну, я вообще-то имел в виду MS SQL (если он уже есть, конечно — например в «упряжке» с 1С; я не буду врать, допустимо ли здесь будет использование Express Edition) или OLEDB для доступа к .mdb.

Отправлено: 23:50, 26-02-2014 | #4


Аватара для McLotos

Старожил


Сообщения: 410
Благодарности: 21

Профиль | Отправить PM | Цитировать

=(
у меня нет лицензии на MS SQL Server. А 1С стоит на Ubuntu+PostgreSQL

-------
Старайтесь не решать свои проблемы по средствам личных сообщений, они могут быть решены очень не скоро.Не забывайте пользоваться поиском по форуму.Помните что уникальных проблем не бывает.Если всё-таки ответа не нашли, создайте тему, с подробным описанием проблемы.Спасибо за понимание.

Отправлено: 09:35, 27-02-2014 | #5


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата McLotos:
у меня нет лицензии на MS SQL Server. »
Попробуйте обычный «.mdb».

Цитата McLotos:
PostgreSQL »
Тут я пас.

Отправлено: 09:53, 27-02-2014 | #6


Аватара для McLotos

Старожил


Сообщения: 410
Благодарности: 21

Профиль | Отправить PM | Цитировать

Iska, а подскажите как получить ключ office14
Ну у всех предыдущих версий можно было вытащить ключ из реестра, а в 2010 можно получить только кусочек ключа используя скрипт ospp
А как получить полный ключ?

-------
Старайтесь не решать свои проблемы по средствам личных сообщений, они могут быть решены очень не скоро.Не забывайте пользоваться поиском по форуму.Помните что уникальных проблем не бывает.Если всё-таки ответа не нашли, создайте тему, с подробным описанием проблемы.Спасибо за понимание.

Отправлено: 07:26, 28-02-2014 | #7


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

McLotos, насколько я знаю, если не был сохранён в реестре (или же был удалён оттуда впоследствии) — то никак. Только:
Цитата McLotos:
кусочек ключа »

Отправлено: 14:04, 28-02-2014 | #8



Компьютерный форум OSzone.net » Клиентские ОС Microsoft » Microsoft Windows 7 » Разное - [решено] Как без прог типа produkey получить ключ, который ввели при установке

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - [решено] Как получить ключ уже установленой оси? crashtuak Microsoft Windows 7 1 25-03-2012 21:39
Debian/Ubuntu - проблема при установке (grub и установка сист. прог.) poropeked Общий по Linux 0 04-08-2011 11:17
CMD/BAT - как получить дату и время, независимо от типа отображения даты ? mitiya Скриптовые языки администрирования Windows 3 20-12-2010 11:14
Установка - Ошибка 1601 при установке прог Комбинатор Microsoft Windows 2000/XP 7 29-06-2010 10:20
Route/Bridge - Как получить доступ к расшаренной папке на компе который за NAT? vagner_HATE Сетевые технологии 14 29-07-2009 08:29


« Предыдущая тема | Следующая тема »


 
Переход