productsleutel

[mdc1756]

Hallo,

Waar kan ik mijn produktsleutel van mijn legale windows 7 terugvinden,
ik weet dat je die in het register kan vinden maar ben het vergeten.

groetjes,

ed

 

[Quit]

Ik kan er niet zo veel over zeggen welke versleuteling of encryptie er gebruikt wordt.
Er zijn nogal wat verschillende algoritmes.
Versleuteling werd al in de pré-historie gebruikt.

Tik het woord encryptie eens bij Google in en ik wens je vele maanden leesplezier.
Wat je dan allemaal kunt lezen kan ik je niet beter uitleggen.

Misschien toch een leuk linkje naar de heer Bruce Schneier om te laten zien hoe een versleuteling er uit kan zien. https://www.schneier.com/code/constants.txt

 

[mdc1756]

fijn te lezen, maar ik wou alleen weten hoe uw script werkt om mijn sleutel in windows 7 te vinden

ed

 

[Quit]

fijn te lezen, maar ik wou alleen weten hoe uw script werkt om mijn sleutel in windows 7 te vinden

ed

Dat script is gemaakt in de scriptaal VisualBasic

Hier is de code, opslaan met een tekstverwerker met de extentie vbs
En als je hiermee verder wilt gaan adviseer ik je om deze taal te gaan leren.

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
msgbox "Gemaakt door Skippy  [URL="http://www.pctuts.be"]www.pctuts.be[/URL] "+a
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

 

[Qtex]

je opent kladblok en je plakt deze script er in ..
je kiest opslaan als ...
als naam kies je bijv: keyfinder.vbs en je sla deze op bijv: op je bureaublad
er komt een snelkoppeling op je bureaublad te staan of op de plaats waar je deze heb opgeslagen ..
dubbelklik op deze en je licentie word weer gegeven ...

 

[Quit]

Kan ook gewoon met Kladblok.
Standaard staat deze op de txt extentie , kies dan voor alle bestanden en sla het bijvoorbeeld op als naam.vbs

 

[Qtex]

zag het nadien en had al vermeld hoe men tewerk diende te gaan ...
krijg wel een andere te zien nu ...

 

[Quit]

Hoe bedoel je, "krijg wel een andere te zien nu"?

 

[Qtex]

ja als ik via het register ga kijken (zie link in bericht #4) dan zie ik dus bij HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform de sleutel beginnende met VK7 en eindigend met 66T (25tekens lang cijfers en letters )
gebruik ik het script van u dan begint deze met TY4 en eindigd deze met FC6 (25tekens lang cijfers en letters)

 

[Quit]

Ik denk dat dit met de update van vorige versies van Windows te maken heeft.
Staat ook bij Backup Productkey

Windows 10 kan nooit dezelfde key hebben als die je met Windows 8 of lager had.

 

[Qtex]

denk inderdaad ook dat dit met de komst van de verjaarsdag update te maken heeft ..
maar het rare is dus dat er bij HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform dus wel de licentie te zien is .
en bij HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey een DigitaleProductID (het is deze dus die door het script gelezen word ).

 

[Quit]

Mijn script geeft toch echt de huidige key van de gebruikte Windows versie weer.

Uiteraard is dit niet de key van de Windows versie uit het verleden die daarna ge-update is. ( Bijvoorbeeld Windows 7 ==> Windows 8 ==> Windows 10 )

In het register bij HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey een DigitaleProductID staat ook de licentie code maar dan versleuteld.
Dubbelklik maar eens op DigitalProductId

 

[Qtex]

dat had ik al gedaan maar zoals je zegt deze is dus versleuteld ...

 

[Quit]

dat had ik al gedaan maar zoals je zegt deze is dus versleuteld ...

Het script zet deze versleutelde licentie code om naar de juiste licentie code.
Kijk maar naar mijn script op regel 2

MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Hier zie je dus dat de versleutelde code geconverteerd wordt naar de sleutel of key en dit wordt in een messagebox gezet. ( Dit is het popupje van het programmaatje )
Verder staat er dat deze binaire sleutel vanuit het register uitgelezen moet worden die op deze locatie staat: HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId

 

[Qtex]

denk dat jij bericht #25 nog eens moet lezen want daar vermeld ik al " het is deze die door het script gelezen word "

 

[Quit]

denk dat jij bericht #25 nog eens moet lezen want daar vermeld ik al " het is deze die door het script gelezen word "

Ik denk dat we een beetje langs elkaar heen praten.