Get and Decrypt Acrobat Key from Registry Script - Visual Basic , VB.NET

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

Get and Decrypt Acrobat Key from Registry Script
Author: Brandon Mulcahy
E-mail: Click to e-mail author
Submitted: 8/2/2010
Version: ASP
Compatibility: ASP3.0
Category: Windows Registry
Views: 4041
Similar to my post at http://www.a1vbcode.com/snippet-4796.asp- which deals with converting Adobe encrypted serials into usable serial keys. This is a vbscript which provides that functionality for Adobe Acrobat. You can change the registry location and key name, and the function will pull and decrypt any modern Adobe key from the registry.
Declarations:
'none
Code:
'-------------START SCRIPT-------------' Option Explicit 'This script decrypts any adobe serial stored in 'the windows registry into a key that can be used to 'reinstall the product. 'Variable Declarations Dim intVers, strComputer, strKeyPath, strValueName, strEncryptedKey Dim strDecryptedKey, CipherIndex, oReg, 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=inputbox("What Version Of Acrobat? You must use decimal format. (i.e. Version 9 must be written as 9.0)","Adobe Acrobat Key Recovery","9.0") intVers = Trim(intVers) 'Get the adobe serial from the registry. const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Adobe\Adobe Acrobat\" & intVers & "\Registration" strValueName = "SERIAL" oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strEncryptedKey ' 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) inputbox "Your Decrypted Adobe Key Is:","Adobe Acrobat Key Recovery",strFormattedKey '-------------END SCRIPT-------------'

Click Here