Page 1 sur 1
[Ex] Récupérer la clé CD windows
Posté : mer. 25 mars 2015 01:10
par TommyDDR
Si vous devez formater votre PC, que vous avez un Windows honnêtement acheté et que vous n'avez plus la clé CD sous la main, ce programme est fait pour vous.
► Afficher le textecode
Code : Tout sélectionner
MsgBox(0, "", _WindowsGetProductKey())
Func _WindowsGetProductKey()
Local $key = StringTrimLeft(RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "DigitalProductId"), 2)
Local $keyOutput = ""
Local $keyOffset = 52
Local $i = 28
Local $chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Local $cur = 0
Local $x = 14
Do
$cur = $cur * 256
$cur = _WGPK_GetKey($key, $x + $keyOffset) + $cur
_WGPK_SetKey($key, $x + $keyOffset, BitAND(Floor($cur / 24), 255))
$cur = Mod($cur, 24)
$x -= 1
Until(Not($x >= 0))
$i -= 1
$keyOutput = StringMid($chars, $cur + 1, 1) & $keyOutput
If (Mod(29-$i, 6) = 0) And ($i <> -1) Then
$i -= 1
$keyOutput = "-" & $keyOutput
EndIf
Until(Not($i >= 0))
Return $keyOutput
EndFunc
Func _WGPK_GetKey($key, $offset)
Return Dec(StringMid($key, $offset*2+1, 2))
EndFunc
Func _WGPK_SetKey(ByRef $key, $offset, $value)
$key = StringLeft($key, $offset*2) & String(Hex($value, 2)) & StringTrimLeft($key, ($offset+1)*2)
EndFunc
(Adapté du script VB de
http://www.howtogeek.com/206329/how-to- ... duct-keys/ )
Re: [Ex] Récupérer la clé CD windows
Posté : mer. 25 mars 2015 08:19
par jguinch
Merci pour le partage Tommy.
Pour info, sur mon PC (Windows 7 x64 Enterprise), la clé retournée est BBBBB-BBBBB-BBBBB-BBBBB-BBBBB.
Cette valeur est retournée dans le cas d'une utilisation d'une clé MAK ou Volume, ce qui empêche les petits malins de récupérer la clé au boulot pour l'installer à la maison...
Re: [Ex] Récupérer la clé CD windows
Posté : mer. 25 mars 2015 11:08
par TommyDDR
Je viens de tester, ils n'ont pas la même protection à mon taff ^^'