Как узнать ключ установленной Windows ?

Автор

Съобщение

dinko89
Съб, 04.03.17, 16:01

Скрипт: Set WshShell = CreateObject("WScript.Shell") regKey = "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion\" 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

Отговор За печат
karadzha
Съб, 04.03.17, 17:46
RE: Как узнать ключ установленной Windows ?

Цитат на dinko89 от Събота, 04.03.2017 16:01
”
Скрипт: Set WshShell = CreateObject("WScript.Shell") regKey = "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion\" 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

„
Много гимнастика, много нещо Става с програмка за секунди
Отговор За печат
dinko89
Съб, 04.03.17, 20:11
RE: RE: Как узнать ключ установленной Windows ?

Цитат на karadzha от Събота, 04.03.2017 17:46
” Много гимнастика, много нещо Става с програмка за секунди „
Така е, но ако нямаш преносим носител на информация /cd/dvd диск,usb flash или карата с памет/ с налична програма и, ако нямаш достъп до Интернет, то ти остават само Windows скриптовете
Иначе тук има много налични :
Windows OEM Product Key Tool
ProduKey
geProduct Key Finder
Отговор За печат
iceman_
Нед, 05.03.17, 08:53

Горните скриптове, а и тези програмки работят ли за ключове на Десетка и на Офис 2013 ?
Отговор За печат
dinko89
Пон, 06.03.17, 10:41
RE: Как узнать ключ установленной Windows ?

Цитат на iceman_ от Неделя, 05.03.2017 08:53
” Горните скриптове, а и тези програмки работят ли за ключове на Десетка и на Офис 2013 ? „
Не съм пробвал !
Отговор За печат
dinko89
Пон, 06.03.17, 11:06

За Windows 10 -> ShowKeyPlus
Отговор За печат
iceman_
Пон, 13.03.17, 09:46
RE: Как узнать ключ установленной Windows ?

Цитат на dinko89 от Понеделник, 06.03.2017 11:06
” За Windows 10 -> ShowKeyPlus „
Да, работи за Десетка. За 13 Офис обаче не показва.
Отговор За печат
dinko89
Пон, 13.03.17, 20:59
RE: RE: Как узнать ключ установленной Windows ?

Цитат на iceman_ от Понеделник, 13.03.2017 09:46
” Да, работи за Десетка. За 13 Офис обаче не показва. „
Office 2013 Product Key Finder
There is a free trial one for try, which finds product key code less than 5 characters. Also full version of Product Key Finder could show complete product key for your software installed on computer.
Отговор За печат
dinko89
Пон, 13.03.17, 21:10

SterJo Key Finder v.1.8 /FREE/
Finds Keys for Operating Systems: Windows 10, Windows 8, Windows 7, Windows Vista, Windows XP, Windows Server 2008, and Windows Server 2003
Finds Keys for Other Software: Microsoft Office 2013, Office 2010, Office 2007, Office 2003, Office XP, Microsoft Money, Microsoft Works, and lots of other Microsoft and non-Microsoft programs like Adobe, Autodesk, and Cyberlink products, plus over 500 more!
http://www.sterjosoft.com/key-finder.html
редактиран от dinko89 на 13.03.17 21:11
Отговор За печат
dinko89
Пон, 13.03.17, 21:12

Още по темата :
22 Free Product Key Finder Programs
Отговор За печат
dinko89
Пон, 13.03.17, 21:23
RE: Как узнать ключ установленной Windows ?

Цитат на dinko89 от Понеделник, 13.03.2017 21:12
” Още по темата :
22 Free Product Key Finder Programs „
90% от програмите ги има и тук :
1/ Belarc Advisor
2/ Magical Jelly Bean Keyfinder
3/ WinKeyFinder
4/ LicenseCrawler
5/ Keyfinder Thing
6/ ProduKey
7/ WinGuggle
8/ SIW
/ SIW 2017 02.14 Новите версии 2016/2017 са платени. Предишните, по-стари версии на програмата са безплатни и могат да бъдат свалени от сървърите на Download.BG. /
и т.н.
Отговор За печат
iceman_
Сря, 15.03.17, 11:32
RE: Как узнать ключ установленной Windows ?

Цитат на dinko89 от Понеделник, 13.03.2017 21:10
” SterJo Key Finder v.1.8 /FREE/
Finds Keys for Operating Systems: Windows 10, Windows 8, Windows 7, Windows Vista, Windows XP, Windows Server 2008, and Windows Server 2003
Finds Keys for Other Software: Microsoft Office 2013, Office 2010, Office 2007, Office 2003, Office XP, Microsoft Money, Microsoft Works, and lots of other Microsoft and non-Microsoft programs like Adobe, Autodesk, and Cyberlink products, plus over 500 more!
http://www.sterjosoft.com/key-finder.html „
SterJo Key Finder НЕ ми показа продуктовия ключ на Офис 13, показа ми само на Десетката.
А това го може и http://www.nirsoft.net/utils/produkey.zip
Отговор За печат
dinko89
Чет, 16.03.17, 00:02
RE: RE: Как узнать ключ установленной Windows ?

Цитат на iceman_ от Сряда, 15.03.2017 11:32
” SterJo Key Finder НЕ ми показа продуктовия ключ на Офис 13, показа ми само на Десетката.
А това го може и http://www.nirsoft.net/utils/produkey.zip „
Прочети какво пише в сайта http://www.sterjosoft.com/key-finder.html НАЙ-ОТДОЛУ:
Attention to all Microsoft Office 2013 and 2016 users:
There are some cases where recovering MS Office 2013 or MS Office 2016 key could NOT be done by the conventional way with any software. If you are unable to recover the key with my keyfinder then I've created a small application which will allow you to find the last 5 digits only.

http://www.sterjosoft.com/download/mso5digitkey.zip
Отговор За печат
iceman_
Чет, 16.03.17, 09:11

Не показва и ... the last 5 digits only. Нищо. На три компютъра го опитах.
Само рекламка е.
Отговор За печат