Problém s reaktivací Windows

Klikni na to tlacitko Aktivovat

Jestli jsi platil pocitac i Windows, tak jedine se zeptat v bazaru a reklamovat to tam, ze ta licence Windows byla pravdepodobne nelegalni.

Pokud jsi kupoval jen pocitac, tak zakoupit licenci Windows a zadat novy produkt key, jak mas tlacitko na tom prvnim printscreenu.

Prijde mi, ze licence na omezenou dobu jsou jedine nejake skolske licence, asi pocitac skoncil v bazaru a nikdo se neobtezoval odinstalovat Windows, ktere tam vubec nemely byt.

jestli se s tím dá něco dělat po roce a půl od koupě v bazaru?
koupit v bazaru/na netu i licenci windows, cca za 100.

Klíč GCRJD-8NW9H-F2CDX-CCM8D-9D6T9 je generický VL klíč na Win 8.1 Pro:
https://docs.microsoft.com/en-us/windows-server/get-started/kmsclientkeys
Aktivace je dočasná a to na půl roku s tím, že se automaticky obnovuje pokud je dosptupný KMS server, kterému patří licence.
Tys ten Windows používal nelegálně. S tím, že ještě před půl rokem byl schopen se nelegálně aktivovat oproti KMS serveru.
Více info se dovíš pokud spustíš cmd jako správce a zadáš tam:
cscript slmgr.vbs /dlv
s tím, že co ti vyjede skopíruješ sem.
Pokud chceš legální Windows, tak si jej kup ve Store, Alze, CZC, Tsbohemii nebo podobném obchodě.

Ideálne je desinu aktivovať permanentne digitálnou licenciou, napríklad z Githubu.
--------
Ak chceš vedieť o jeho licencii, potom tento skript s príponou *.vbs, hotový údaj uloží na plochu v *txt.
------
Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKey.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

Jenže my jeho klíč víme, ten jsem uvedl jaký je.
A když víš klíč, tak znáš i jméno produktu a produktové id, tedy to, co zjišťuje ten tvůj skript. Takže jsi ho uvedl naprosto zbytečně.
Co se týče klíče (použit Windows 8.1 pkeyconfig.xrm-ms a zjištěno přes systémový PidGenX.dll):

Product Key:   GCRJD-8NW9H-F2CDX-CCM8D-9D6T9
Product ID:    00261-50000-00000-AA111
Edition Type:  Professional
Edition ID:    [Blue]X18-95588
Key Type:      Volume:GVLK
EULA:          Volume

Tím Více info jsem myslel to, že v tom výpisu ve slmgr /dlv je, pokud není odstraněn, údaj oproti jakému KMS bylo VL aktivované, takže by šlo zjistit jestli se jednalo o KMS server nějaké firmy/instituce/školy nebo o lokální aktivaci nebo o internetovou náhražku skutečného KMS.
Co se týče digitální licence, ideální to sice je, ale doporučovat to můžeš tak akorát na informační nebo edukativní účely, ne na běžné použití. Ideální legální řešení pro běžné použití jsem napsal, prostě koupě v normálním obchodě.
Mimochodem digitální licence popsaná za informačním a edukativním účelem líp než kdekoliv na tom tvém githubu je tu:
https://krakatoa.www3.cz/aktivace.php#slshim