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

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.