Для тех ,кто решил зарегистрироваться на форуме «Беседка» !
Категорически запрещена регистрация  с одноразового и временного e-mail !Такие пользователи будут отправляться в бан без объяснения причин.
После регистрации необходимо активировать свою учетную запись .Если Вы в почте не обнаружили письмо с активацией рекомендуется проверить папку «Спам».
С уважением
 Администрация форума

* Недавно обновленные темы

Автор Тема: Извлечение ключа Windows  (Прочитано 6767 раз)

0 Пользователей и 1 Гость просматривают эту тему.

ANDREW44

Извлечение ключа Windows
« : 22 Сентябрь 2013, 19:24 »
Получаем ключ активации Windows 8 с помощью VBScript

Создайте новый текстовый файл с именем get_windows_8_key.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
Во вложении готовый файл-2 жмака и увидите ключ.

Оффлайн ALENA

  • *
  • Сообщений: 56519
  • Пол: Женский

Re: Извлечение ключа Windows
« Ответ #1 : 22 Сентябрь 2013, 19:39 »
Получаем ключ активации Windows 8 с помощью VBScript
ANDREW44,  вы хотите сказать что с помощью этого скрипта я смогу активировать виндовс 8 ?

Оффлайн Винни Пух

  • Винни очень любит мёд! Почему? Кто поймёт? В самом деле, почему Мёд так нравится ему?
  • *
  • Сообщений: 14166
  • Пол: Мужской
  • Имя : С@Ш@

Re: Извлечение ключа Windows
« Ответ #2 : 22 Сентябрь 2013, 19:58 »
ANDREW44,  вы хотите сказать что с помощью этого скрипта я смогу активировать виндовс 8 ?
Я так понял этим скриптом можно узнать какой ключ на данный момент использован для регистрации системы .

ANDREW44

Re: Извлечение ключа Windows
« Ответ #3 : 22 Сентябрь 2013, 20:13 »
Я так понял этим скриптом можно узнать какой ключ на данный момент использован для регистрации системы .
В точку.

ANDREW44

Re: Извлечение ключа Windows
« Ответ #4 : 22 Сентябрь 2013, 20:16 »
Особо это нужно (если нужно) тем,у кого предустановленная виин 8- так как ключ забит в железо.

Оффлайн Винни Пух

  • Винни очень любит мёд! Почему? Кто поймёт? В самом деле, почему Мёд так нравится ему?
  • *
  • Сообщений: 14166
  • Пол: Мужской
  • Имя : С@Ш@

Re: Извлечение ключа Windows
« Ответ #5 : 22 Сентябрь 2013, 21:08 »
Особо это нужно (если нужно) тем,у кого предустановленная виин 8- так как ключ забит в железо.
Ну так у большинства компов есть наклейка с ключом . И необходимости нету его какими то скриптами  выяснять .  er er er

Оффлайн us_er

  • *
  • Сообщений: 2397
  • Такого пользователя больше нет

Re: Извлечение ключа Windows
« Ответ #6 : 22 Сентябрь 2013, 21:59 »
Winnie Pooh, нету на ноутах с 8-кой наклейки с ключиком. Кстати, этим скриптом можно и из семёрки ключ вытащить.

Оффлайн Леха 87

  • *
  • Сообщений: 5287
  • Пол: Мужской
    • Skype - lexagres
  • Имя : Алексей

Re: Извлечение ключа Windows
« Ответ #7 : 22 Сентябрь 2013, 22:03 »
А в чем прикол-то? Ну узнал я какой ключ и ...?

Оффлайн ALENA

  • *
  • Сообщений: 56519
  • Пол: Женский

Re: Извлечение ключа Windows
« Ответ #8 : 22 Сентябрь 2013, 22:04 »
А ключ не привязан к определенному дистрибьютиву ?

Оффлайн Cherep

  • Злыдень
  • *
  • Сообщений: 1371
  • Пол: Мужской

Re: Извлечение ключа Windows
« Ответ #9 : 22 Сентябрь 2013, 22:23 »
А Аида-64 в восмерке не работает? В семёре показывает.... :??

Оффлайн Винни Пух

  • Винни очень любит мёд! Почему? Кто поймёт? В самом деле, почему Мёд так нравится ему?
  • *
  • Сообщений: 14166
  • Пол: Мужской
  • Имя : С@Ш@

Re: Извлечение ключа Windows
« Ответ #10 : 22 Сентябрь 2013, 22:32 »
А в чем прикол-то? Ну узнал я какой ключ и ...?
А прикол в том . Что как интересно да на в8 только наклейка с надписью что это 8 и всё . Юзер прав . И если переустанавливать её , то где ключ брать для активации ? Ведь система же лицензионная . Алин по идее ключ только на одну систему . Так что не знаю . Если переустанавливая он автоматом не останется .

Оффлайн Винни Пух

  • Винни очень любит мёд! Почему? Кто поймёт? В самом деле, почему Мёд так нравится ему?
  • *
  • Сообщений: 14166
  • Пол: Мужской
  • Имя : С@Ш@

Re: Извлечение ключа Windows
« Ответ #11 : 22 Сентябрь 2013, 22:36 »
А Аида-64 в восмерке не работает? В семёре показывает.... :??
Аида 64 интересная софтинка , показывающая всё всё сё о компе . Да на 7 она даже ключ лицензии показывает . Так что никакого скрипта не надо .  er er er

Оффлайн ALENA

  • *
  • Сообщений: 56519
  • Пол: Женский

Re: Извлечение ключа Windows
« Ответ #12 : 22 Сентябрь 2013, 22:41 »
Winnie Pooh, я завтра вин 8 запущу  там у меня Аида есть . Гляну .

Оффлайн Винни Пух

  • Винни очень любит мёд! Почему? Кто поймёт? В самом деле, почему Мёд так нравится ему?
  • *
  • Сообщений: 14166
  • Пол: Мужской
  • Имя : С@Ш@

Re: Извлечение ключа Windows
« Ответ #13 : 22 Сентябрь 2013, 23:15 »
Вот так у меня программа показывает .

гости не могут видеть изображения , пожалуйста зарегистрируйтесь или авторизуйтесь


ANDREW44

Re: Извлечение ключа Windows
« Ответ #14 : 23 Сентябрь 2013, 06:43 »
А прикол в том . Что как интересно да на в8 только наклейка с надписью что это 8 и всё . Юзер прав . И если переустанавливать её , то где ключ брать для активации ? Ведь система же лицензионная . Алин по идее ключ только на одну систему . Так что не знаю . Если переустанавливая он автоматом не останется .
предустановленная-Windows 8 Single Language 64-bit Russian DVD (ОЕМ) - при переустановке ключ автоматом зацепается из биос.

Winnie Pooh, нету на ноутах с 8-кой наклейки с ключиком. Кстати, этим скриптом можно и из семёрки ключ вытащить.
в точку!

качать
Извините, Вам не разрешено просматривать этот текст. Пожалуйста, войдите или зарегистрируйтесь.