Hi,
the key stored in registy is encrypted I put together script, which will grab it & decrypt it:
[code] '''''''''''''''''''''''''''''''' ' Adobe Acrobat 8.0 ' '''''''''''''''''''''''''''''''' strKeyPath = strarrKeyPath & "Adobe\Adobe Acrobat\8.0\Registration"
name_xp = "Adobe Acrobat 8.0" release_type = "" edition_type = "" path = strKeyPath subKey = "SERIAL" oReg.GetStringValue HKEY_LOCAL_MACHINE,Path,subKey,key
'This script decrypts any adobe serial stored in 'the windows registry into a key that can be used
Dim intVers, strValueName, strEncryptedKey Dim strDecryptedKey, CipherIndex, i, strFormattedKey
' Adobe Substitution Cipher Key Dim AdobeSubCipherKey(24) AdobeSubCipherKey(0) = "" AdobeSubCipherKey(1) = "0000000001" AdobeSubCipherKey(2) = "5038647192" AdobeSubCipherKey(3) = "1426053789" AdobeSubCipherKey(4) = "2604371895" AdobeSubCipherKey(5) = "4753896210" AdobeSubCipherKey(6) = "8145962073" AdobeSubCipherKey(7) = "0319728564" AdobeSubCipherKey(8) = "7901235846" AdobeSubCipherKey(9) = "7901235846" AdobeSubCipherKey(10) = "0319728564" AdobeSubCipherKey(11) = "8145962073" AdobeSubCipherKey(12) = "4753896210" AdobeSubCipherKey(13) = "2604371895" AdobeSubCipherKey(14) = "1426053789" AdobeSubCipherKey(15) = "5038647192" AdobeSubCipherKey(16) = "3267408951" AdobeSubCipherKey(17) = "5038647192" AdobeSubCipherKey(18) = "2604371895" AdobeSubCipherKey(19) = "8145962073" AdobeSubCipherKey(20) = "7901235846" AdobeSubCipherKey(21) = "3267408951" AdobeSubCipherKey(22) = "1426053789" AdobeSubCipherKey(23) = "4753896210" AdobeSubCipherKey(24) = "0319728564"
intVers = "8.0" strEncryptedKey = key
' We will build the decrypted key here ' Take the numeric value of char at index i of the encrypted ' key. That value provides an index within the string ' AdobeSubCipherKey(i). The char located at that index ' is the properly decrypted char.
For i = 1 To 24 CipherIndex = Cint(Mid(strEncryptedKey,i,1)) + 1 strDecryptedKey = strDecryptedKey & Mid(AdobeSubCipherKey(i),CipherIndex,1) Next
'Include dashes for readability strFormattedKey = Mid(strDecryptedKey,1,4) & "-" & Mid(strDecryptedKey,5,4) & "-" & Mid(strDecryptedKey,9,4) &_ "-" & Mid(strDecryptedKey,13,4) & "-" & Mid(strDecryptedKey,17,4) & "-" & Mid(strDecryptedKey,21,4) key = strFormattedKey WScript.Echo "Adobe Acrobat 8.0 key: " & strEncryptedKey & " / " & key
if IsNull(key) then else strOffXPRUKey = key form_input = "ms_keys^^^" & name_xp & "^^^" _ & strOffXPRUKey & "^^^" _ & release_type & "^^^" _ & edition_type & "^^^" _ & "adobe_acrobat_8" & "^^^" entry form_input,comment,objTextFile,oAdd,oComment strOffXPRUKey = "" release_type = "" edition_type = "" form_input = "" end if [/code]
it should work for version 9.0 as well I think because decrypting function was written for ver 9.0
enjoy
DUGi
|