ricky Posted November 2, 2008 Share Posted November 2, 2008 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 Link to comment Share on other sites More sharing options...
dbzfanatic Posted November 2, 2008 Share Posted November 2, 2008 Yes it's possible, there have been a few topics on this so search. Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote] Link to comment Share on other sites More sharing options...
rasim Posted November 2, 2008 Share Posted November 2, 2008 CODE HKLM\SOFTWARE\Microsoft\Internet Explorer\Registration "ProductId"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ" HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion "ProductId"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ" HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion "ProductId"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ" Link to comment Share on other sites More sharing options...
ricky Posted November 2, 2008 Author Share Posted November 2, 2008 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? Link to comment Share on other sites More sharing options...
dbzfanatic Posted November 2, 2008 Share Posted November 2, 2008 here expandcollapse popupFunc 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 Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote] Link to comment Share on other sites More sharing options...
ricky Posted November 2, 2008 Author Share Posted November 2, 2008 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"="ХХХХХ-ХХХ-ХХХХХХХ-ХХХХХ" Link to comment Share on other sites More sharing options...
dbzfanatic Posted November 2, 2008 Share Posted November 2, 2008 expandcollapse popup$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 Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote] Link to comment Share on other sites More sharing options...
ricky Posted November 2, 2008 Author Share Posted November 2, 2008 Thanks for your help. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now