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
it should work for version 9.0 as well I think because decrypting function was written for ver 9.0
enjoy
DUGi