Jump to content
Sign in to follow this  
ricky

License Key Windows XP

Recommended Posts

ricky

Hello,

I need some help. I'm coding a little soft with auto-it and I need to generate an unique registration code. For this, I need the License key of Windows. It's possible with auto-it to find it?

Best Regards

Share this post


Link to post
Share on other sites
dbzfanatic
rasim

CODE

HKLM\SOFTWARE\Microsoft\Internet Explorer\Registration

"ProductId"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ"

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion

"ProductId"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ"

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion

"ProductId"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ"

Share this post


Link to post
Share on other sites
ricky

Thanks rasim, but I want de license key, not the product ID.

dbzfanatic -> Sorry but I didn't find it or not good research. Could you help me?

Share this post


Link to post
Share on other sites
dbzfanatic

here

Func GetXPKey($binaryDPID)
    Local $bKey[15]
   Local $sKey[29]
   Local $Digits[24]
   Local $Value = 0
   Local $hi = 0
   local $n = 0
   Local $i = 0
   Local $dlen = 29
   Local $slen = 15
   Local $Result

   $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789","")

   $binaryDPID = stringmid($binaryDPID,105,30)

   For $i = 1 to 29 step 2
       $bKey[int($i / 2)] = dec(stringmid($binaryDPID,$i,2))
   next

   For $i = $dlen -1 To 0 Step -1
       If Mod(($i + 1), 6) = 0 Then
           $sKey[$i] = "-"
       Else
           $hi = 0
           For $n = $slen -1 To 0 Step -1
               $Value = Bitor(bitshift($hi ,- 8) , $bKey[$n])
               $bKey[$n] = int($Value / 24)
               $hi = mod($Value , 24)
           Next
           $sKey[$i] = $Digits[$hi +1]
       EndIf

   Next
   For $i = 0 To 28
       $Result = $Result & $sKey[$i]
   Next

   Return $Result
EndFunc

Share this post


Link to post
Share on other sites
ricky

And the $binaryDPID is the Product ID found in one of this three reg lines ?

HKLM\SOFTWARE\Microsoft\Internet Explorer\Registration

"ProductId"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ"

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion

"ProductId"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ"

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion

"ProductId"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ"

Share this post


Link to post
Share on other sites
dbzfanatic

$key = RegRead("HKLM\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion","DigitalProductId")
GetXPKey($key)

Func GetXPKey($binaryDPID)
    Local $bKey[15]
   Local $sKey[29]
   Local $Digits[24]
   Local $Value = 0
   Local $hi = 0
   local $n = 0
   Local $i = 0
   Local $dlen = 29
   Local $slen = 15
   Local $Result

   $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789","")

   $binaryDPID = stringmid($binaryDPID,105,30)

   For $i = 1 to 29 step 2
       $bKey[int($i / 2)] = dec(stringmid($binaryDPID,$i,2))
   next

   For $i = $dlen -1 To 0 Step -1
       If Mod(($i + 1), 6) = 0 Then
           $sKey[$i] = "-"
       Else
           $hi = 0
           For $n = $slen -1 To 0 Step -1
               $Value = Bitor(bitshift($hi ,- 8) , $bKey[$n])
               $bKey[$n] = int($Value / 24)
               $hi = mod($Value , 24)
           Next
           $sKey[$i] = $Digits[$hi +1]
       EndIf

   Next
   For $i = 0 To 28
       $Result = $Result & $sKey[$i]
   Next

   Return $Result
EndFunc

Share this post


Link to post
Share on other sites
ricky

Thanks for your help.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×