Основан 26 Июля 2013 года
freehacks.ru fhacks.me fhacks.pw fhacksnplmzxaaoo.onion

Показано с 1 по 4 из 4
  1. #1
    TopicStarter
    Заблокирован по собственному желанию
    Аватар для S3ct0r

    Статус
    Offline
    Регистрация
    30.03.2014
    Сообщений
    459
    Репутация
    202 + / -
    Другое

    Unhappy Как узнать ключ активации установленной системы на Windows 8.1, 8, 7, Vista (Для тех кому надо)

    Довольно специфическая тема и нужна очень и очень редко, но так как этот форум создавался как архив полезных знаний, данная тема обязательно должна была здесь появиться. Итак, кому может понадобиться данная тема? В первую очередь тем, кто потерял или уничтожил свой ключ продукта. Та же наклейка на ноутбуках со временем может стереться, и это создаст определенную долю проблемы при переустановке системы, так как придется покупать новую лицензионную систему за 899 руб, что не так уж и дорого, а за 1600 можно купить лицензию сразу на три компьютера (535 р. на компьютер) копейки же. Именно в данном случае понадобится данная тема, так как вы с помощью пары кликов сможете увидеть и перезаписать в более надежное место ваш ключ Windows. Работает на любой операционной системе, в том числе на Windows 8.1 и 8. После прочтения данной темы вам можно быть интересна тема об отключении запроса ключа активации во время установки системы, но это отдельная тема.

    Определение ключа установленной системы Windows через VBScript:

    1) Создаем в любом удобном месте текстовый файл. Называем его WindowsKey (в конце данного способа доступен для скачки готовый файл).

    [Только зарегистрированные могут видеть это. ]

    2) Открываем его текстовым редактором (блокнотом или аналогом). И копируем в него следующий код:

    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
    И сохраняем файл.

    [Только зарегистрированные могут видеть это. ]

    3) Меняем расширение файла на .vbs. По ссылке доступна инструкция по изменению расширения файла. (инструкция по смене расширения файла).

    [Только зарегистрированные могут видеть это. ]

    4) Открываем файл двойным кликом. Появится окно с вашим ключом активации.

    [Только зарегистрированные могут видеть это. ]

    Нажимаете ОК и появляется окно с более подробной информацией.

    [Только зарегистрированные могут видеть это. ]
    Последний раз редактировалось S3ct0r; 30.04.2014 в 20:21.

  2. 3 пользователя(ей) сказали cпасибо:
  3. #2
    Аватар для ForCe

    Статус
    Offline
    Регистрация
    01.10.2014
    Сообщений
    1
    Репутация
    0 + / -
    Сервера
    Небольшое уточнение, этот скрипт будет работать только на домашних виндах. На корпоративных версиях выдаст [Только зарегистрированные могут видеть это. ] (win7pro).
    Но возможно кому то поможет команда частиного отображения ключа slmgr.vbs /dlv
    Последний раз редактировалось ForCe; 02.10.2014 в 16:39.

  4. #3
    Trust
    Админ негодует :3
    Аватар для admin

    Статус
    Online
    Регистрация
    27.07.2013
    Сообщений
    1,440
    Репутация
    159 + / -
    Безопасность
    WMI код:
    Select * from Win32_Product
    Не!?

    Когда то пользовался ProduKey , очень хорошая софтина.

    Вид отчета:
    [Только зарегистрированные могут видеть это. ]
    [Только зарегистрированные могут видеть это. ]
    JID: [Только зарегистрированные могут видеть это. ] - пока не сижу там, только ЛС.

  5. #4
    Аватар для sata-ata

    Статус
    Offline
    Регистрация
    29.10.2013
    Сообщений
    3,035
    Репутация
    282 + / -
    Программист
    Цитата Сообщение от ForCe Посмотреть сообщение
    Небольшое уточнение, этот скрипт будет работать только на домашних виндах. На корпоративных версиях выдаст [Только зарегистрированные могут видеть это. ] (win7pro).
    Но возможно кому то поможет команда частиного отображения ключа slmgr.vbs /dlv
    наверное ты имеешь ввиду корпаротивный ключ активации, на вин 8-8.1 корпаротивная все ок
    8AC4F56356469F79B5283364053ACDA49D8EC9FEFDADC2B42F A5B4E979D9222267583F350BF9

    с/delphi/pascal/vbs/vbm/bat
    Ник зареган, суки! [Только зарегистрированные могут видеть это. ]

Метки этой темы

Ваши права

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

Информация на сайте предоставлена исключительно в ознакомительных целях, использование знаний в противозаконных целях преследуется по закону! Администрация не несет ответственности за ваши деяния.