Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Windows Новый топик    Ответить
 Windows Product Key  [new]
ku3ia
Member

Откуда: Луганск, Украина
Сообщений: 274
Доброго времени суток.

Необходимо вытянуть Product Key венды и других горе продуктов от МС (Офиса, Студии и т.п.). Но я не пойму где они находятся.

Есть одна софтина, которая это дело все вытягивает, называется Belarc Advisor. Вот она вытягивает данные и ProductID, и ProductKey

ProductID венды я нашел где он, а вот ProductKey откуда она берет? Поиск в реестре ничего не дал :-(
18 авг 10, 13:20    [9282039]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
С0ВЕСТЬ
Member [заблокирован]

Откуда:
Сообщений: 37847
значит противозаконное это дело.
18 авг 10, 13:45    [9282323]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
Cerebrum
Member

Откуда: Омикрон Персей 8
Сообщений: 7980
отлично видится Everest'ом

К сообщению приложен файл. Размер - 0Kb
18 авг 10, 13:51    [9282389]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
ku3ia
Member

Откуда: Луганск, Украина
Сообщений: 274
Я понимаю, что видится оно не только этой софтиной но и еще какой-то. Меня интересует откуда они данные эти тянут?
18 авг 10, 13:52    [9282399]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
Cerebrum
Member

Откуда: Омикрон Персей 8
Сообщений: 7980
тынц
18 авг 10, 14:05    [9282508]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
ku3ia
Member

Откуда: Луганск, Украина
Сообщений: 274
Cerebrum
тынц
назначение ссылки я что-то не совсем понял, касательно вопроса...
18 авг 10, 16:50    [9284347]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
Anatoly Podgoretsky
Member

Откуда:
Сообщений: 62912
ProcessMonitor тебе в помощь.
18 авг 10, 16:58    [9284437]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
naPmu3aH
Member

Откуда: из лесу
Сообщений: 1449
Ха, какой ниавняк... Типа вот так Microsoft взял и положил в чистом виде ключ нвсем на обозрение.
Естественно он хранится в реестре. Но зашифрован.

Windows Product key
 '  ##############################################################
 '  #        #
 '  # VBScript to retrieve Microsoft Product Keys  #
 '  # from the registry by decoding DigitalProductID's #
 '  #        #
 '  # -------------------------------------------------- #
 '  # Created by: Parabellum     #
 '  #        #
 '  ##############################################################
 '
 CONST HKEY_LOCAL_MACHINE = &H80000002
 CONST SEARCH_KEY = "DigitalProductID"
 Dim arrSubKeys(4,1)
 Dim foundKeys
 Dim iValues, arrDPID
 foundKeys = Array()
 iValues = Array()
 arrSubKeys(0,0) = "Microsoft Windows Product Key"
 arrSubKeys(0,1) = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
 arrSubKeys(2,0) = "Microsoft Office XP"
 arrSubKeys(2,1) = "SOFTWARE\Microsoft\Office\10.0\Registration"
 arrSubKeys(1,0) = "Microsoft Office 2003"
 arrSubKeys(1,1) = "SOFTWARE\Microsoft\Office\11.0\Registration"
 arrSubKeys(3,0) = "Microsoft Office 2007"
 arrSubKeys(3,1) = "SOFTWARE\Microsoft\Office\12.0\Registration"
 arrSubKeys(4,0) = "Microsoft Exchange Product Key"
 arrSubKeys(4,1) = "SOFTWARE\Microsoft\Exchange\Setup"
  
 ' <--------------- Open Registry Key and populate binary data into an array -------------------------->
 strComputer = "."
 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
 
 For x = LBound(arrSubKeys, 1) To UBound(arrSubKeys, 1)
  oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1), SEARCH_KEY, arrDPIDBytes
  If Not IsNull(arrDPIDBytes) Then
   call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
  Else
   oReg.EnumKey HKEY_LOCAL_MACHINE, arrSubKeys(x,1), arrGUIDKeys
   If Not IsNull(arrGUIDKeys) Then
    For Each GUIDKey In arrGUIDKeys
     oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1) & "\" & GUIDKey, SEARCH_KEY, arrDPIDBytes
     If Not IsNull(arrDPIDBytes) Then
      call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
     End If
    Next
   End If
  End If
 Next
 MsgBox("Finished")
 
 ' <----------------------------------------- Return the Product Key --------------------------------------------------->
 Function decodeKey(iValues, strProduct)
  
  Dim arrDPID
  arrDPID = Array()
  
  ' <--------------- extract bytes 52-66 of the DPID -------------------------->
  For i = 52 to 66
   ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
   arrDPID( UBound(arrDPID) ) = iValues(i)
  Next
   
  ' <--------------- Create an array to hold the valid characters for a microsoft Product Key -------------------------->
  Dim arrChars
  arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")
  
  ' <--------------- The clever bit !!! (decode the base24 encoded binary data)-------------------------->
  For i = 24 To 0 Step -1
   k = 0
   For j = 14 To 0 Step -1
    k = k * 256 Xor arrDPID(j)
    arrDPID(j) = Int(k / 24)
    k = k Mod 24
   Next
   strProductKey = arrChars(k) & strProductKey
   If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
  Next
  
  ReDim Preserve foundKeys( UBound(foundKeys) + 1 )
  foundKeys( UBound(foundKeys) ) = strProductKey
  strKey = UBound(foundKeys)
  MsgBox strProduct & vbNewLine & vbNewLine & foundKeys(strKey)
 End Function
19 авг 10, 15:48    [9291355]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
Бред дитектор
Guest
Anatoly Podgoretsky
ProcessMonitor тебе в помощь.


Опять ты в лужу пукнул. Эххх....
19 авг 10, 15:51    [9291401]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
Anatoly Podgoretsky
Member

Откуда:
Сообщений: 62912
Это ты не в курсе, что она делает. Она позволяет узнать откуда.
19 авг 10, 15:54    [9291432]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
naPmu3aH
Member

Откуда: из лесу
Сообщений: 1449
В данном (и многих других случаях тоже) откуда - далеко не самое главное...
Гораздо важнее вопрос КАК.
--
люди делятся на тех кто делает бэкапы и тех кто будет делать
19 авг 10, 15:56    [9291461]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
Anatoly Podgoretsky
Member

Откуда:
Сообщений: 62912
Я отвечал на этот вопрос
автор
Меня интересует откуда они данные эти тянут?

А не на как. Теперь он не узнает откуда они тянут.
19 авг 10, 16:00    [9291516]     Ответить | Цитировать Сообщить модератору
 Re: Windows Product Key  [new]
Husqvarna
Member [заблокирован]

Откуда: Коммит, ЗОМБОТРОЛЛЬ
Сообщений: 19504
С0ВЕСТЬ
значит противозаконное это дело.


как противозаконное?

большинство софта ты можешь просто скачать в нете.
А потом купить и заплатив ты именно за тот ключь. Тоесть фактически ты приобрел не продукт а 25 символов или больше или меньше.
так что видеть свои символы ты имеешь право.
19 авг 10, 16:03    [9291547]     Ответить | Цитировать Сообщить модератору
Все форумы / Windows Ответить