property prefsFileName : "com.apprenticealf.dedrm.plist" property prefsFolderName : "com.apprenticealf.dedrm" property handledExtensions : {"epub", "pdf", "prc", "azw", "azw1", "tpz", "mobi", "pdb", "der", "b64"} global eReaderTool global MobipocketTool global BNKeyGenTool global BNePubTool global AdobeKeyGenTool global AdobeePubTool global AdobePDFTool global ZipFixTool global ProgressApp global PIDs global bnKeys global KindleInfoList global KindleSerialList global AdeptKeyList global ErrorList global WarningList global CompletedList global ErrorCount global WarningCount global CompletedCount global totalebooks global completedebooks global outputFolder global logFilePath on writetolog(logstring) try set fileRef to open for access logFilePath with write permission write logstring & " " to fileRef starting at eof close access fileRef end try end writetolog on clearlog() try set fileRef to open for access logFilePath with write permission set eof fileRef to 0 close access fileRef end try end clearlog on folderexists(inputFolder) try --display dialog "test -d " & quoted form of (POSIX path of inputFolder) do shell script "test -d " & quoted form of (POSIX path of inputFolder) return true end try return false end folderexists on fileexists(inputFile) try do shell script "test -f " & quoted form of (POSIX path of inputFile) return true end try return false end fileexists on GetTools() set eReaderTool to POSIX path of file (path to me as text) & "Contents/Resources/erdr2pml.py" set MobipocketTool to POSIX path of file (path to me as text) & "Contents/Resources/k4mobidedrm.py" set BNKeyGenTool to POSIX path of file (path to me as text) & "Contents/Resources/ignoblekeygen.py" set BNePubTool to POSIX path of file (path to me as text) & "Contents/Resources/ignobleepub.py" set AdobeKeyGenTool to POSIX path of file (path to me as text) & "Contents/Resources/ineptkey.py" set AdobeePubTool to POSIX path of file (path to me as text) & "Contents/Resources/ineptepub.py" set AdobePDFTool to POSIX path of file (path to me as text) & "Contents/Resources/ineptpdf.py" set ZipFixTool to POSIX path of file (path to me as text) & "Contents/Resources/zipfix.py" set ProgressApp to POSIX path of file ((path to resource "DeDRM Progress.app") as string) if not fileexists(eReaderTool) or not fileexists(MobipocketTool) or not fileexists(BNKeyGenTool) or not fileexists(BNePubTool) or not fileexists(AdobeKeyGenTool) or not fileexists(AdobePDFTool) or not fileexists(AdobeePubTool) or not folderexists(ProgressApp) then display dialog "De-drm scripts or support files are missing from this package. Get a fresh copy." buttons {"Bother"} default button 1 with title "DeDRM Applescript" with icon stop return false end if return true end GetTools on unlockmobifile(encryptedFile) --check it's a mobi file. set BOOKMOBI to "NOTAMOBI" try set BOOKMOBI to read file encryptedFile from 61 for 8 end try if BOOKMOBI is not "BOOKMOBI" and BOOKMOBI is not "TEXtREAd" then set TOPAZ to "NOT" try set TOPAZ to read file encryptedFile from 1 for 4 end try if TOPAZ is not "TPZ0" then set ErrorCount to ErrorCount + 1 set ErrorList to ErrorList & encryptedFile & " is neither a Mobipocket nor a TOPAZ file. " return end if end if set encryptedFilePath to POSIX path of file encryptedFile tell application "Finder" set parent_folder to (container of file encryptedFile) as text set fileName to (name of file encryptedFile) as text end tell set fileExtension to "" if fileName contains "." then set AppleScript's text item delimiters to "." set fileExtension to "." & the last text item of fileName set fileName to (text items 1 through -2 of fileName) as string end if if outputFolder is "" or not folderexists(outputFolder) then set dedrmFolder to POSIX path of file parent_folder else set dedrmFolder to POSIX path of file outputFolder end if set shellcommand to "python " & (quoted form of MobipocketTool) repeat with KindleInfoPath in KindleInfoList set shellcommand to shellcommand & " -k " & quoted form of KindleInfoPath end repeat set Serialstring to GetSerialstring() if Serialstring is not "" then set shellcommand to shellcommand & " -s " & quoted form of Serialstring set PIDstring to GetPIDstring() if PIDstring is not "" then set shellcommand to shellcommand & " -p " & quoted form of PIDstring set shellcommand to shellcommand & " " & (quoted form of encryptedFilePath) & " " & (quoted form of dedrmFolder) --display dialog "shellcommand: " default answer shellcommand buttons {"OK"} default button 1 giving up after 10 writetolog("shellcommand: " & shellcommand) try set shellresult to do shell script shellcommand on error errmsg set shellresult to errmsg if (offset of "Error" in shellresult) is 0 then set shellresult to "Error: " & shellresult end if end try writetolog("shellresult: " & shellresult) --display dialog shellresult try repeat if (totalebooks > 1) or (offset of "No key found" in shellresult) is 0 then exit repeat end if -- ask for another PID as we're only doing one ebook set newPID to "None" set DialogPrompt to "Couldn't decode " & fileName & ". Do you have another PID to try?" try set dialogresult to (display dialog DialogPrompt default answer "" buttons {"Try This One", "No Extra PID"} with title "DeDRM Applescript" default button 2) if button returned of dialogresult is "Try This One" then set newPID to text returned of dialogresult end if end try if newPID is "None" or (length of newPID is not 10 and length of newPID is not 8) then exit repeat end if set shellcommand to "python " & (quoted form of MobipocketTool) & " -p " & quoted form of newPID & " " & (quoted form of encryptedFilePath) & " " & (quoted form of dedrmFolder) --display dialog "shellcommand: " default answer shellcommand buttons {"OK"} default button 1 giving up after 10 writetolog("shellcommand: " & shellcommand) try set shellresult to do shell script shellcommand on error errmsg set shellresult to errmsg end try writetolog("shellresult: " & shellresult) --display dialog shellresult end repeat if (offset of "Error" in shellresult) > 0 then set ErrorCount to ErrorCount + 1 set ErrorList to ErrorList & fileName & fileExtension & " couldn't be decoded: " & (shellresult as text) & " " else if (offset of "not encrypted" in shellresult) > 0 then set WarningCount to WarningCount + 1 set WarningList to WarningList & fileName & fileExtension & " is not encrypted. " else set CompletedCount to CompletedCount + 1 if CompletedList is "" then set CompletedList to CompletedList & fileName & fileExtension else set CompletedList to CompletedList & ", " & fileName & fileExtension end if end if end try end unlockmobifile on unlockpdbfile(encryptedFile) --check it's an eReader file. set PNRdPPrs to "NOT_eREADER" try set PNRdPPrs to read file encryptedFile from 61 for 8 end try if PNRdPPrs is not "PNRdPPrs" then set ErrorCount to ErrorCount + 1 set ErrorList to ErrorList & encryptedFile & " is not an eReader file. " return end if set encryptedFilePath to POSIX path of file encryptedFile tell application "Finder" set parent_folder to (container of file encryptedFile) as text set fileName to (name of file encryptedFile) as text end tell set fileExtension to "" if fileName contains "." then set AppleScript's text item delimiters to "." set fileExtension to "." & the last text item of fileName set fileName to (text items 1 through -2 of fileName) as string end if if outputFolder is "" or not folderexists(outputFolder) then set dedrmFolder to parent_folder else set dedrmFolder to outputFolder end if set pmlFile to dedrmFolder & fileName & "_Source:" & fileName & ".pml" set clearFile to dedrmFolder & fileName & "_Source:" & fileName & ".pdb" set clearFileNew to dedrmFolder & fileName & "_Source:" & fileName & "_nodrm.pdb" set clearFileNewName to fileName & "_nodrm.pdb" set sourcePath to POSIX path of file dedrmFolder & fileName & "_Source/" set pmlzFilePath to POSIX path of file dedrmFolder & fileName & "_nodrm.pmlz" if length of bnKeys is 0 then GetKeys(false) end if set shellresult to "Error: No eReader/Barnes & Noble Name:Number keys supplied. Can't decrypt." repeat with BNKey in bnKeys set encryptionName to first item of BNKey set encryptionNumber to second item of BNKey if length of encryptionName > 0 and length of encryptionNumber > 0 then set shellcommand to "python " & (quoted form of eReaderTool) & " " & (quoted form of encryptedFilePath) & " " & (quoted form of sourcePath) & " " & (quoted form of encryptionName) & " " & (quoted form of encryptionNumber) --display dialog "shellcommand: " & shellcommand buttons {"OK"} default button 1 giving up after 10 writetolog("shellcommand: " & shellcommand) set shellresult to "no result" try set shellresult to do shell script shellcommand on error errmsg set shellresult to errmsg end try writetolog("shellresult: " & shellresult) --display dialog shellresult if (offset of "Error" in shellresult) is 0 then -- try to run dropbook and move compiled book to same folder as encrypted book try try tell application "Finder" to set DropBook to (application file id "PPDr") as string on error error "Couldn't find DropBook application" end try -- now also compile back up into pdb file using DropBook if it's on this system tell application DropBook to open file pmlFile delay 1 -- probably don't need this, but just in case. tell application DropBook to quit try tell application "Finder" set name of file clearFile to clearFileNewName move clearFileNew to dedrmFolder end tell on error errmsg error "DropBook failed to compile the source folder into a pdb file." end try on error errmsg set WarningCount to WarningCount + 1 set WarningList to (WarningList & fileName & fileExtension & " couldn't be compiled back to pdb: " & errmsg as text) & " " end try -- try to compress source folder contensts to a pmlz file for easy import into Calibre try set shellcommand to "cd " & quoted form of sourcePath & "; zip -r " & quoted form of pmlzFilePath & " *" --display dialog shellcommand writetolog("shellcommand: " & shellcommand) set zipshellresult to do shell script shellcommand writetolog("shellresult: " & shellresult) --display dialog shellresult tell application "Finder" -- move source folder to the trash move dedrmFolder & fileName & "_Source" to trash end tell on error errmsg set WarningCount to WarningCount + 1 set WarningList to (WarningList & fileName & fileExtension & "source folder couldn't be compressed to pmlz: " & errmsg as text) & " " end try -- we've done the decrypting so exit the loop. exit repeat end if end if end repeat try if (offset of "incorrect eReader version 10" in shellresult) > 0 then set WarningCount to WarningCount + 1 set WarningList to WarningList & fileName & fileExtension & " is not encrypted. " else if (offset of "Error" in shellresult) > 0 then set ErrorCount to ErrorCount + 1 set ErrorList to (ErrorList & fileName & fileExtension & " couldn't be decoded: " & shellresult as text) & " " else set CompletedCount to CompletedCount + 1 if CompletedList is "" then set CompletedList to CompletedList & fileName & fileExtension else set CompletedList to CompletedList & ", " & fileName & fileExtension end if end if end try end unlockpdbfile on unlockepubfile(encryptedFile) --check it's an ePub file. set ePubSig to "NOT_ePub" try set ePubSig to read file encryptedFile from 31 for 28 end try --display dialog ePubSig if ePubSig is not "mimetypeapplication/epub+zip" then set ErrorCount to ErrorCount + 1 set ErrorList to ErrorList & encryptedFile & " is not an ePub file. " return end if set encryptedFilePath to POSIX path of file encryptedFile tell application "Finder" set parent_folder to (container of file encryptedFile) as text set fileName to (name of file encryptedFile) as text end tell set fileExtension to "" if fileName contains "." then set AppleScript's text item delimiters to "." set fileExtension to "." & the last text item of fileName set fileName to (text items 1 through -2 of fileName) as string end if set decoded to "NO" -- first we must fix any possible zip problems with the epub if outputFolder is "" or not folderexists(outputFolder) then set fixedFilePath to POSIX path of file (parent_folder & fileName & "_fixed" & fileExtension) else set fixedFilePath to POSIX path of file (outputFolder & fileName & "_fixed" & fileExtension) end if set shellcommand to "python " & (quoted form of ZipFixTool) & " " & (quoted form of encryptedFilePath) & " " & (quoted form of fixedFilePath) set shellresult to "no result" try --display dialog "shellcommand: " default answer shellcommand buttons {"OK"} default button 1 giving up after 10 writetolog("shellcommand: " & shellcommand) set shellresult to do shell script shellcommand on error errmsg set shellresult to "Error: " & errmsg end try writetolog("shellresult: " & shellresult) --display dialog shellresult if (offset of "Error" in shellresult) > 0 then set ErrorCount to ErrorCount + 1 set ErrorList to ((ErrorList & fileName & fileExtension & " had a problem with ZipFix: " & shellresult as text) & " ") return end if if outputFolder is "" or not folderexists(outputFolder) then set unlockedFilePath to POSIX path of file (parent_folder & fileName & "_nodrm" & fileExtension) else set unlockedFilePath to POSIX path of file (outputFolder & fileName & "_nodrm" & fileExtension) end if set shellresult to "no keys" -- first we'll try the Barnes & Noble keys repeat with BNKey in bnKeys set keyfilepath to third item of BNKey if length of keyfilepath > 0 then set shellcommand to "python " & (quoted form of BNePubTool) & " " & (quoted form of keyfilepath) & " " & (quoted form of fixedFilePath) & " " & (quoted form of unlockedFilePath) --display dialog "shellcommand: " & shellcommand buttons {"OK"} default button 1 giving up after 10 writetolog("shellcommand: " & shellcommand) set shellresult to "no result" try set shellresult to do shell script shellcommand on error errmsg set shellresult to "Error: " & errmsg end try writetolog("shellresult: " & shellresult) --display dialog shellresult if (offset of "Error" in shellresult) is 0 then set decoded to "YES" exit repeat end if if (offset of "improper key" in shellresult) is 0 then exit repeat end if end if end repeat if decoded is "NO" then set shellresult to "no keys" -- now try Adobe ePub repeat with AdeptKey in AdeptKeyList set shellcommand to "python " & (quoted form of AdobeePubTool) & " " & (quoted form of AdeptKey) & " " & (quoted form of fixedFilePath) & " " & (quoted form of unlockedFilePath) --display dialog "shellcommand: " default answer shellcommand buttons {"OK"} default button 1 giving up after 10 writetolog("shellcommand: " & shellcommand) set shellresult to "no result" try set shellresult to do shell script shellcommand on error errmsg set shellresult to "Error: " & errmsg end try writetolog("shellresult: " & shellresult) --display dialog shellresult if (offset of "Error" in shellresult) is 0 then set decoded to "YES" exit repeat end if end repeat end if if decoded is "YES" then set CompletedCount to CompletedCount + 1 if CompletedList is "" then set CompletedList to CompletedList & fileName & fileExtension else set CompletedList to CompletedList & ", " & fileName & fileExtension end if else if shellresult is "no keys" then set ErrorCount to ErrorCount + 1 set ErrorList to (ErrorList & fileName & fileExtension & " couldn't be decoded: no keys. ") else if (offset of "not an ADEPT EPUB" in shellresult) is not 0 then set WarningCount to WarningCount + 1 set WarningList to (WarningList & fileName & " doesn't seem to be encrypted. ") else set ErrorCount to ErrorCount + 1 set ErrorList to ((ErrorList & fileName & fileExtension & " couldn't be decoded: " & shellresult as text) & " ") end if tell application "Finder" move alias ((POSIX file fixedFilePath) as text) to trash end tell end unlockepubfile on unlockpdffile(encryptedFile) --check it's an ePub file. set PDFSig to "NOT_PDF" try set PDFSig to read file encryptedFile from 1 for 4 end try --display dialog PDFSig if PDFSig is not "%PDF" then set ErrorCount to ErrorCount + 1 set ErrorList to ErrorList & encryptedFile & " is not a PDF file. " return end if set encryptedFilePath to POSIX path of file encryptedFile tell application "Finder" set parent_folder to (container of file encryptedFile) as text set fileName to (name of file encryptedFile) as text end tell set fileExtension to "" if fileName contains "." then set AppleScript's text item delimiters to "." set fileExtension to "." & the last text item of fileName set fileName to (text items 1 through -2 of fileName) as string end if set decoded to "NO" -- first we must check we have a PDF script --GetIneptPDF(false) if not fileexists(AdobePDFTool) then set ErrorCount to ErrorCount + 1 set ErrorList to ErrorList & encryptedFile & " is a PDF file and no ineptpdf script found. " return end if set unlockedFilePath to POSIX path of file (parent_folder & fileName & "_nodrm" & fileExtension) set decoded to false repeat with AdeptKey in AdeptKeyList set shellcommand to "python " & (quoted form of AdobePDFTool) & " " & (quoted form of AdeptKey) & " " & (quoted form of encryptedFilePath) & " " & (quoted form of unlockedFilePath) --display dialog "shellcommand: " default answer shellcommand buttons {"OK"} default button 1 giving up after 10 writetolog("shellcommand: " & shellcommand) set shellresult to "no result" try set shellresult to do shell script shellcommand on error errmsg set shellresult to "Error: " & errmsg end try writetolog("shellresult: " & shellresult) --display dialog shellresult if (offset of "Error" in shellresult) is 0 then set decoded to true exit repeat end if end repeat if decoded then set CompletedCount to CompletedCount + 1 if CompletedList is "" then set CompletedList to CompletedList & fileName & fileExtension else set CompletedList to CompletedList & ", " & fileName & fileExtension end if else if shellresult is "no keys" then set ErrorCount to ErrorCount + 1 set ErrorList to (ErrorList & fileName & fileExtension & " couldn't be decoded: no keys. ") else set ErrorCount to ErrorCount + 1 set ErrorList to ((ErrorList & fileName & fileExtension & " couldn't be decoded: " & shellresult as text) & " ") end if end unlockpdffile on handlefile(droppedFile) tell application "Finder" set fileName to (name of file droppedFile) as text end tell set fileExtension to "" if fileName contains "." then set AppleScript's text item delimiters to "." set fileExtension to the last text item of fileName set fileName to (text items 1 through -2 of fileName) as string end if if fileExtension is "prc" or fileExtension is "mobi" or fileExtension is "azw" or fileExtension is "azw1" or fileExtension is "tpz" then set completedebooks to completedebooks + 1 IncProgress(fileName, completedebooks) unlockmobifile(droppedFile as text) else if fileExtension is "pdb" then set completedebooks to completedebooks + 1 IncProgress(fileName, completedebooks) unlockpdbfile(droppedFile as text) else if fileExtension is "epub" then set completedebooks to completedebooks + 1 IncProgress(fileName, completedebooks) unlockepubfile(droppedFile as text) else if fileExtension is "pdf" then set completedebooks to completedebooks + 1 IncProgress(fileName, completedebooks) unlockpdffile(droppedFile as text) else if fileExtension is "der" then AddAdeptKey(droppedFile as text) else if fileExtension is "b64" then AddbnKey(droppedFile as text) end if end handlefile on handlefolder(droppedFolder) tell application "Finder" to set fileList to (every file in folder droppedFolder) tell application "Finder" to set folderList to (every folder in folder droppedFolder) repeat with this_item in fileList if not ProgressActive() then exit repeat end if handlefile(this_item as text) end repeat repeat with this_item in folderList if not ProgressActive() then exit repeat end if handlefolder(this_item as text) end repeat end handlefolder on countfile(droppedFile) tell application "Finder" set fileName to (name of file droppedFile) as text end tell set fileExtension to "" if fileName contains "." then set AppleScript's text item delimiters to "." set fileExtension to the last text item of fileName set fileName to (text items 1 through -2 of fileName) as string end if --display dialog "fileName: " & fileName & " --extension: " & fileExtension if fileExtension is in handledExtensions then set totalebooks to totalebooks + 1 end if end countfile on GetSerialstring() set Serialstring to "" repeat with Serial in KindleSerialList if Serialstring is "" then set Serialstring to Serial else set Serialstring to Serialstring & "," & Serial end if end repeat return Serialstring end GetSerialstring on GetPIDstring() set PIDstring to "" repeat with PID in PIDs if PIDstring is "" then set PIDstring to PID else set PIDstring to PIDstring & "," & PID end if end repeat return PIDstring end GetPIDstring on GetKindleInfostring() set KInfostring to "" repeat with KindleInfo in KindleInfoList if KInfostring is "" then set KInfostring to (KindleInfo as text) else set KInfostring to KInfostring & " " & (KindleInfo as text) end if end repeat return KInfostring end GetKindleInfostring on GetAdeptstring() set Adeptstring to "" repeat with AdeptKeyFile in AdeptKeyList set AppleTypeFile to POSIX file (AdeptKeyFile as text) tell application "Finder" set fileName to name of file (AppleTypeFile as text) end tell if Adeptstring is "" then set Adeptstring to fileName else set Adeptstring to Adeptstring & " " & fileName end if end repeat return Adeptstring end GetAdeptstring on GetBNKeystring() set BNKeystring to "" repeat with BNKey in bnKeys if BNKeystring is "" then set BNKeystring to first item of BNKey & ":" & second item of BNKey else set BNKeystring to BNKeystring & " " & first item of BNKey & ":" & second item of BNKey end if if length of third item of BNKey > 0 then set BNKeystring to BNKeystring & "*" end if if length of second item of BNKey > 0 then set BNKeystring to BNKeystring & "†" end if end repeat return BNKeystring end GetBNKeystring on GetPIDs() set PID to "" repeat set PIDstring to GetPIDstring() if PIDstring is "" then set DialogPrompt to "Enter any Mobipocket PIDs one at a time:" set FinishedButton to "None" else set DialogPrompt to "Current PIDs: " & PIDstring & ". Enter any additional Mobipocket PIDs for your Mobipocket books one at a time:" set FinishedButton to "No More" end if set dialogresult to (display dialog DialogPrompt default answer PID buttons {"Delete All", "Add", FinishedButton} with title "DeDRM Applescript Configuration 1/5" default button 2) if button returned of dialogresult is "Add" then set PID to text returned of dialogresult set PIDlength to length of PID if PIDlength is 8 or PIDlength is 10 then set PIDs to PIDs & PID set PID to "" else display dialog "PIDs must be 8 or 10 characters long." buttons {"OK"} default button 1 with title "DeDRM Applescript" with icon caution end if else if button returned of dialogresult is "Delete All" then if PIDstring is not "" then try set dialogresult to (display dialog "Are you sure you want to delete all stored PIDs?" buttons {"Cancel", "Delete"} default button 1 with title "DeDRM Applescript") end try if button returned of dialogresult is "Delete" then set PIDs to {} end if end if else set PID to text returned of dialogresult if PID is not "" then try set dialogresult to (display dialog "You entered some text, but didn't click Add. Are you sure you want to more on to the next dialog?" buttons {"Whoops", "Yes, Move on"} default button 1 with title "DeDRM Applescript") end try if button returned of dialogresult is "Yes, Move on" then exit repeat end if else exit repeat end if end if end repeat end GetPIDs on GetSerials() set Serial to "" repeat set Serialstring to GetSerialstring() if Serialstring is "" then set DialogPrompt to "Enter any Kindle Serial Numbers one at a time:" set FinishedButton to "None" else set DialogPrompt to "Current Kindle Serial Numbers: " & Serialstring & ". Enter any additional Kindle Serial Numbers one at a time:" set FinishedButton to "No More" end if set dialogresult to (display dialog DialogPrompt default answer Serial buttons {"Delete All", "Add", FinishedButton} with title "DeDRM Applescript Configuration 2/5" default button 2) if button returned of dialogresult is "Add" then set Serial to text returned of dialogresult set Seriallength to length of Serial if Seriallength is 16 and (first character of Serial) is "B" then set KindleSerialList to KindleSerialList & Serial set Serial to "" else display dialog "Kindle Serial Numbers are 16 characters long and start with B." buttons {"OK"} default button 1 with title "DeDRM Applescript" with icon caution end if else if button returned of dialogresult is "Delete All" then if Serialstring is not "" then try set dialogresult to (display dialog "Are you sure you want to delete all stored Kindle Serial Numbers?" buttons {"Cancel", "Delete"} default button 1 with title "DeDRM Applescript") end try if button returned of dialogresult is "Delete" then set Serialstring to {} end if end if else set Serial to text returned of dialogresult if Serial is not "" then try set dialogresult to (display dialog "You entered some text, but didn't click Add. Are you sure you want to more on to the next dialog?" buttons {"Whoops", "Yes, Move on"} default button 1 with title "DeDRM Applescript") end try if button returned of dialogresult is "Yes, Move on" then exit repeat end if else exit repeat end if end if end repeat end GetSerials on GetKindleInfoFiles() repeat set KInfostring to GetKindleInfostring() if KInfostring is "" then set DialogPrompt to "To add extra Kindle Info files, click the Add… button. You do not need to add the Kindle Info file for the copy of Kindle for Mac on this machine." set FinishedButton to "None" else set DialogPrompt to "Known extra Kindle Info file: " & KInfostring & " To add extra Kindle Info files, click the Add… button. You do not need to add the Kindle Info file for the copy of Kindle for Mac on this machine." set FinishedButton to "No More" end if set dialogresult to (display dialog DialogPrompt buttons {"Forget All", "Add…", FinishedButton} with title "DeDRM Applescript" default button 2) if button returned of dialogresult is "Add…" then try set newFile to POSIX path of file ((choose file with prompt "Please select a Kindle Info file") as text) set KindleInfoList to KindleInfoList & newFile on error errmsg display dialog errmsg buttons {"Bother"} default button 1 end try else if button returned of dialogresult is "Forget All" then if KInfostring is not "" then try set dialogresult to (display dialog "Are you sure you want to forget all extra Kindel Info files?" buttons {"Cancel", "Forget"} default button 1 with title "DeDRM Applescript") end try if button returned of dialogresult is "Forget" then set KindleInfoList to {} end if end if else exit repeat end if end repeat end GetKindleInfoFiles on GetIneptPDF(always) if always or not fileexists(AdobePDFTool) then set newFile to "" try tell me to activate if (always) then set promptstring to "DeDRM Applescript 6/6 " else set promptstring to "DeDRM Applescript " end if if fileexists(AdobePDFTool) then set promptstring to promptstring & "Please find the new ineptpdf script or click Cancel if the path shown is correct: " & ((POSIX file AdobePDFTool) as text) else set promptstring to promptstring & "Please find the ineptpdf script to be able to dedrm PDF files." end if set newFile to ((choose file with prompt promptstring default location POSIX file AdobePDFTool) as text) --on error errormessage -- display dialog errormessage end try if fileexists(newFile) then -- set AdobePDFTool to POSIX path of file CopyToPrefs(newFile) set AdobePDFTool to POSIX path of file newFile WritePrefs() end if end if end GetIneptPDF on GetOutputFolder() set newFolder to "" try tell me to activate repeat if folderexists(outputFolder) then set DialogPrompt to "The deDRMed ebooks will be saved to the following folder: " & (outputFolder as text) & " " else set outputFolder to "" set DialogPrompt to "The deDRMed ebooks will be saved in the same folder as the original DRMed ebooks. " end if set DialogPrompt to DialogPrompt & "To keep this choice, click 'Finished', otherwise select the option you want by clicking on one of the other buttons." set dialogresult to (display dialog DialogPrompt buttons {"Use Same Folder as DRMed Ebooks", "Choose Output Folder…", "Finished"} with title "DeDRM Applescript Configuration 5/5" default button 3) if button returned of dialogresult is "Choose Output Folder…" then try if outputFolder is "" then set outputFolder to ((choose folder with prompt "DRM AppleScript Please choose the Output Folder for DeDRMed ebooks.") as text) else set outputFolder to ((choose folder with prompt "DRM AppleScript Please choose the Output Folder for DeDRMed ebooks." default location alias outputFolder) as text) end if end try else if button returned of dialogresult is "Use Same Folder as DRMed Ebooks" then set outputFolder to "" else exit repeat end if --on error errormessage -- display dialog errormessage end repeat end try WritePrefs() end GetOutputFolder on GetKeys(running) set bnKeyText to "" repeat set BNKeystring to GetBNKeystring() if BNKeystring is "" then set DialogPrompt to "Please enter any " set FinishedButton to "None" else set DialogPrompt to "Current B&N keys*, eReader keys†: " & BNKeystring & " Please enter any additional " set FinishedButton to "No More" end if set DialogPrompt to DialogPrompt & "eReader/Barnes & Noble Name,Number key pairs one at a time. The name is usually your name as on your credit card, but might be your Barnes & Noble user name. If you're only decoding eReader files, the last 8 digits of the Number will do. The full 15 or 16 are only needed for Barnes & Noble ePubs. Only the last eight will be stored or displayed. Please separate the name and number with a comma and click \"Add\". Or to add a an already generated .b64 file, just click \"Add\" with nothing in the text field." set dialogtitle to "DeDRM Applescript" if (running) then set dialogtitle to dialogtitle & " Configuration 3/5" end if set dialogresult to (display dialog DialogPrompt default answer bnKeyText buttons {"Delete All", "Add", FinishedButton} with title dialogtitle default button 2) if button returned of dialogresult is "Add" then set bnKeyText to text returned of dialogresult if bnKeyText is "" then try set newFile to (choose file with prompt "Please select a B&N .b64 key file") as text -- copy to prefs AddbnKey(newFile) on error message if message does not contain "cancel" then display dialog message end if end try else if not (bnKeyText contains ",") then display dialog "Name and Number must be separated by a comma (,)." buttons {"OK"} default button 1 with title "DeDRM Applescript" with icon caution else set AppleScript's text item delimiters to "," set keyNumber to the last text item of bnKeyText set keyName to (text items 1 through -2 of bnKeyText) as string if ((length of keyNumber) = 16 or (length of keyNumber) = 15 or (length of keyNumber) = 8) and (length of keyName) > 0 then set shellresult to "" set keyfilepath to "" if (length of keyNumber) = 16 or (length of keyNumber) = 15 then -- get the B&N key from this pair set shellresult to "no result" set scriptError to "Key Gen Script failed." set prefsFolder to (path to preferences from user domain as string) & prefsFolderName & ":" set keyfileName to GetUniqueName(prefsFolder, keyName & (text -8 thru -1 of keyNumber) & ".b64") set keyfilepath to POSIX path of (prefsFolder & keyfileName) writetolog("shellcommand: " & shellcommand) try set shellresult to do shell script "python " & (quoted form of BNKeyGenTool) & " " & (quoted form of keyName) & " " & (quoted form of keyNumber) & " " & quoted form of keyfilepath on error errmsg set shellresult to "no result" set scriptError to errmsg end try writetolog("shellresult: " & shellresult) --display dialog shellresult end if if shellresult is not "no result" then set bnKeys to bnKeys & {{keyName, (text -8 thru -1 of keyNumber), keyfilepath}} set bnKeyText to "" else display dialog "Error generating key from this info, error message was: " & scriptError buttons {"OK"} default button 1 with title "DeDRM Applescript" with icon caution end if else display dialog "Key numbers must be 8 or 15 or 16 characters long (no spaces) and the key name must not be absent." buttons {"OK"} default button 1 with title "DeDRM Applescript" with icon caution end if end if else if button returned of dialogresult is "Delete All" then if BNKeystring is not "" then try set dialogresult to (display dialog "Are you sure you want to delete all stored Name:Number key pairs?" buttons {"Cancel", "Delete"} default button 1 with title "DeDRM Applescript") end try if button returned of dialogresult is "Delete" then set bnKeys to {} end if end if set bnKeyText to "" else set bnKeyText to text returned of dialogresult if bnKeyText is not "" then try set dialogresult to (display dialog "You entered some text, but didn't click Add. Are you sure you want to more on to the next dialog?" buttons {"Whoops", "Yes, Move on"} default button 1 with title "DeDRM Applescript") end try if button returned of dialogresult is "Yes, Move on" then exit repeat end if else exit repeat end if end if end repeat end GetKeys on GetAdeptKeyFiles() repeat set Adeptstring to GetAdeptstring() if Adeptstring is "" then set DialogPrompt to "To add Adobe Digital Editions (Adept) key files, click the Add… button. " set FinishedButton to "None" else set DialogPrompt to "Current Adobe Digital Editions (Adept) key files: " & Adeptstring & " To add extra key files (.der), click the Add… button." set FinishedButton to "No More" end if set dialogresult to (display dialog DialogPrompt buttons {"Forget All", "Add…", FinishedButton} with title "DeDRM Applescript Configuration 4/5" default button 2) if button returned of dialogresult is "Add…" then try set newFile to (choose file with prompt "Please select an Adept key file") as text -- copy to prefs AddAdeptKey(newFile) on error message if message does not contain "cancel" then display dialog message end if end try else if button returned of dialogresult is "Forget All" then if Adeptstring is not "" then try set dialogresult to (display dialog "Are you sure you want to forget all extra Adobe Digital Editions Adept key files?" buttons {"Cancel", "Forget"} default button 1 with title "DeDRM Applescript") end try if button returned of dialogresult is "Forget" then set AdeptKeyList to {} GetAdeptKey(false) end if end if else exit repeat end if end repeat end GetAdeptKeyFiles on GetAdeptKey(always) set userPrefsPath to path to preferences from user domain as string set preferencesFolderPath to userPrefsPath & prefsFolderName & ":" if not folderexists(preferencesFolderPath) then tell application "Finder" set preferencesFolder to make new folder at userPrefsPath with properties {name:prefsFolderName} end tell end if set userAdeptKeyPath to POSIX path of (preferencesFolderPath & "Local Adept Key.der") if ((count of AdeptKeyList) is 0) or always then set shellresult to "no result" set success to true writetolog("shellcommand: " & shellcommand) try set scriptError to do shell script "python " & (quoted form of AdobeKeyGenTool) & " " & quoted form of userAdeptKeyPath on error errmsg set success to false set scriptError to errmsg end try writetolog("shellresult: " & shellresult) --display dialog shellresult if success then if not (AdeptKeyList contains userAdeptKeyPath) then set AdeptKeyList to AdeptKeyList & userAdeptKeyPath end if else if (always) then display dialog "Error generating key for Adobe Editions: " & scriptError & " You must have Adobe Digital Editions installed for this script to work with Adobe ePubs, or add a key file manually. " buttons {"OK"} default button 1 with title "DeDRM Applescript" with icon caution end if end if end if end GetAdeptKey on encodeAsBase64(theFilePath) set posixfilepath to POSIX path of file theFilePath set base64path to POSIX path of file ((path to me as text) & "Contents:Resources:encodebase64.py") return do shell script "python " & quoted form of base64path & " " & quoted form of posixfilepath end encodeAsBase64 on AddAdeptKey(keyfile) set fileExtension to "" if keyfile contains "." then set AppleScript's text item delimiters to "." set fileExtension to the last text item of keyfile end if if fileExtension is "der" then set newPrefsFile to CopyToPrefs(keyfile) set AdeptKeyList to AdeptKeyList & POSIX path of newPrefsFile else display dialog "Adobe Adept key files generated by adeptkey.py must have a .der extension." buttons {"OK"} default button 1 with title "DeDRM Applescript" with icon caution end if end AddAdeptKey on AddbnKey(keyfile) set fileExtension to "" if keyfile contains "." then set AppleScript's text item delimiters to "." set fileExtension to the last text item of keyfile end if if fileExtension is "b64" then set newPrefsFile to CopyToPrefs(keyfile) tell application "Finder" set keyfileName to (name of file newPrefsFile) as text end tell set fileExtension to "" set fileName to keyfileName if keyfileName contains "." then set AppleScript's text item delimiters to "." set fileExtension to the last text item of keyfileName set fileName to (text items 1 through -2 of keyfileName) as string end if set bnKeys to bnKeys & {{fileName, "", POSIX path of newPrefsFile}} else display dialog "Barnes & Noble key files generated by ignoblekeygen.py must have a .b64 extension." buttons {"OK"} default button 1 with title "DeDRM Applescript" with icon caution end if end AddbnKey on GetUniqueName(folderPath, fileName) set newFileName to fileName if fileexists(folderPath & fileName) then -- first find new name that's unique to folder (& temporary items folder) set namecount to 2 set fileExtension to "" set fileNameOnly to fileName if fileName contains "." then set AppleScript's text item delimiters to "." set fileExtension to the last text item of fileName set fileNameOnly to (text items 1 through -2 of fileName) as string end if repeat set newFileName to fileNameOnly & " " & (namecount as text) & "." & fileExtension if not fileexists(folderPath & newFileName) then exit repeat end if set namecount to namecount + 1 end repeat end if return newFileName end GetUniqueName on CopyToPrefs(keyfilepath) tell application "Finder" set keyfileName to (name of file keyfilepath) as text end tell set keyfileApplepath to POSIX file (POSIX path of keyfilepath) set userPrefsPath to path to preferences from user domain as string set userTempPath to path to temporary items from user domain as string set preferencesFolderPath to userPrefsPath & prefsFolderName & ":" if not folderexists(preferencesFolderPath) then tell application "Finder" set preferencesFolder to make new folder at userPrefsPath with properties {name:prefsFolderName} end tell end if if fileexists(preferencesFolderPath & keyfileName) then -- copy to temporary items folder, rename, and then we can copy from there to the preferences folder -- first find new name set namecount to 2 set fileExtension to "" set keyfileNameOnly to keyfileName if keyfileName contains "." then set AppleScript's text item delimiters to "." set fileExtension to the last text item of keyfileName set keyfileNameOnly to (text items 1 through -2 of keyfileName) as string end if repeat set newkeyfileName to keyfileNameOnly & " " & (namecount as text) & "." & fileExtension if not fileexists(preferencesFolderPath & newkeyfileName) and not fileexists(userTempPath & newkeyfileName) then exit repeat end if set namecount to namecount + 1 end repeat -- rename to new name set newkeyfilepath to userTempPath & newkeyfileName tell application "Finder" set tempfilepath to duplicate file keyfileApplepath to folder userTempPath with replacing set name of tempfilepath to newkeyfileName move file newkeyfilepath to preferencesFolderPath end tell set newFile to preferencesFolderPath & newkeyfileName else tell application "Finder" set newFile to duplicate file keyfileApplepath to folder preferencesFolderPath with replacing end tell end if return newFile as text end CopyToPrefs on ReadPrefs() -- read any existing keys from the preferences set preferencesFilePath to (path to preferences from user domain as string) & prefsFileName set PIDs to {} set bnKeys to {} set KindleInfoList to {} set KindleSerialList to {} set AdeptKeyList to {} set outputFolder to (path to desktop as string) set logFilePath to "" if fileexists(POSIX path of file preferencesFilePath) then tell application "System Events" try set PIDs to value of property list item "PIDs" of property list file preferencesFilePath end try try set KindleSerialList to value of property list item "KindleSerials" of property list file preferencesFilePath end try try set KindleInfoList to value of property list item "KindleInfoFiles" of property list file preferencesFilePath end try try set bnKeys to value of property list item "bnKeys" of property list file preferencesFilePath end try try set AdeptKeyList to value of property list item "AdeptKeys" of property list file preferencesFilePath end try try set outputFolder to value of property list item "OutputFolder" of property list file preferencesFilePath end try try set logFilePath to value of property list item "LogFilePath" of property list file preferencesFilePath end try --try --set AdobePDFTool to value of property list item "IneptPDF" of property list file preferencesFilePath --end try end tell end if if logFilePath is "" then set logFilePath to (path to preferences from user domain as string) & prefsFolderName & ":" & "last.log" end if set newList to {} repeat with i from 1 to count AdeptKeyList if fileexists(AdeptKeyList's item i) then set newList's end to AdeptKeyList's item i end repeat set AdeptKeyList to newList set newList to {} repeat with i from 1 to count bnKeys if (item 3 of bnKeys's item i) is "" or fileexists(item 3 of bnKeys's item i) then set newList's end to bnKeys's item i end repeat set bnKeys to newList end ReadPrefs on WritePrefs() -- write keys to the preferences set preferencesFilePath to (path to preferences from user domain as string) & prefsFileName tell application "System Events" set the base_dict to make new property list item with properties {kind:record} set myPrefs to make new property list file with properties {contents:base_dict, name:preferencesFilePath} make new property list item at end of property list items of contents of myPrefs with properties {kind:list, name:"PIDs", value:PIDs} make new property list item at end of property list items of contents of myPrefs with properties {kind:list, name:"KindleSerials", value:KindleSerialList} make new property list item at end of property list items of contents of myPrefs with properties {kind:list, name:"KindleInfoFiles", value:KindleInfoList} make new property list item at end of property list items of contents of myPrefs with properties {kind:list, name:"bnKeys", value:bnKeys} make new property list item at end of property list items of contents of myPrefs with properties {kind:list, name:"AdeptKeys", value:AdeptKeyList} make new property list item at end of property list items of contents of myPrefs with properties {kind:string, name:"OutputFolder", value:outputFolder} --make new property list item at end of property list items of contents of myPrefs with properties {kind:string, name:"LogFilePath", value:logFilePath} --make new property list item at end of property list items of contents of myPrefs with properties {kind:string, name:"IneptPDF", value:AdobePDFTool} end tell end WritePrefs on InitProgress(maxcount) try if totalebooks > 1 then launch application ((path to resource "DeDRM Progress.app") as string) tell application ((path to resource "DeDRM Progress.app") as string) activate set contents of «class texF» "maintext" of window "main" to "Decrypting " & maxcount & " ebooks." set contents of «class texF» "subtext" of window "main" to "Decrypting book 0: " set «class maxV» of «class proI» "bar" of window "main" to maxcount set «class conT» of «class proI» "bar" of window "main" to 0 end tell end if end try end InitProgress on ProcessItems(some_items) try set ErrorList to "" set WarningList to "" set CompletedList to "" set ErrorCount to 0 set WarningCount to 0 set CompletedCount to 0 set totalebooks to 0 set completedebooks to 0 repeat with this_item in some_items if (folder of (info for this_item) is true) then tell application "Finder" to set totalebooks to totalebooks + (count of (every file in entire contents of folder this_item whose name extension is in handledExtensions)) else countfile(this_item as text) end if end repeat InitProgress(totalebooks) repeat with this_item in some_items if totalebooks > 1 and not ProgressActive() then exit repeat end if if (folder of (info for this_item) is true) then handlefolder(this_item as text) else handlefile(this_item as text) end if end repeat endProgress() on error errmsg number errnum from fromobj display dialog "An unexpected error occurred. Please report on Apprentice Alf's blog. Error Message: " & errmsg & " Error Number: " & errnum & " Error From: " & (fromobj as string) with title "DeDRM Applescript" buttons {"Bother"} default button 1 end try if WarningList is not "" then set WarningText to "" if WarningCount is 1 then set WarningText to "There was a warning with 1 ebook:" else set WarningText to "There were warnings with " & WarningCount & " ebooks:" end if set dialogresult to display dialog WarningText & " " & WarningList buttons {"Save…", "OK"} with title "DeDRM Applescript" default button 1 if button returned of dialogresult is "Save…" then try set savefile to choose file name with prompt "Where would you like to save the warnings report?" default name "DeDRM Warnings Report.txt" set fileRef to open for access savefile with write permission set eof fileRef to 0 write WarningList to fileRef close access fileRef end try end if end if if ErrorList is not "" then set ErrorText to "" if ErrorCount is 1 then set ErrorText to "There was an error with 1 ebook:" else set ErrorText to "There were errors with " & ErrorCount & " ebooks:" end if set dialogresult to display dialog ErrorText & " " & ErrorList buttons {"Save…", "Bother"} with title "DeDRM Applescript" default button 1 if button returned of dialogresult is "Save…" then try set savefile to choose file name with prompt "Where would you like to save the errors report?" default name "DeDRM Errors Report.txt" set fileRef to open for access savefile with write permission set eof fileRef to 0 write ErrorList to fileRef close access fileRef end try end if end if if CompletedCount > 0 then set CompletedText to "" if CompletedCount is 1 then set CompletedText to "Successfully de-drmed 1 ebook:" else set CompletedText to "Successfully de-drmed " & CompletedCount & " ebooks:" end if set dialogresult to display dialog CompletedText & " " & CompletedList buttons {"Thanks"} with title "DeDRM Applescript" default button 1 end if return CompletedCount + WarningCount + ErrorCount end ProcessItems on ProgressActive() return application ((path to resource "DeDRM Progress.app") as string) is running --tell application "System Events" to set progactive to count (every process whose name is "DeDRM Progress") --if progactive > 0 then return true --return false end ProgressActive on IncProgress(booktitle, doingcount) try if ProgressActive() then tell application ((path to resource "DeDRM Progress.app") as string) set contents of «class texF» "subtext" of window "main" to "Decrypting book " & doingcount & ": " & booktitle set «class conT» of «class proI» "bar" of window "main" to doingcount end tell end if end try end IncProgress on endProgress() try if ProgressActive() then tell application ((path to resource "DeDRM Progress.app") as string) to quit end try end endProgress on run if GetTools() then set dialogresult to display dialog "To remove DRM from an ebook, click 'Select Ebook…' To configure this software, click 'Configure…' When this AppleScript is not running, you can also remove DRM from ebooks by Drag & Drop of files and folders onto its icon in the Finder. For details of the ebook formats which this AppleScript can handle, please see http://apprenticealf.wordpress.com/ Please only use this AppleScript to get access to your own books. Authors, publishers and ebook stores need to make money to produce and sell more ebooks. Don't cheat them. This AppleScript is by Apprentice Alf and uses python scripts produced by Apprentice Alf, CMBDTC, DarkReverser, DiapDealer, I ♥ Cabbages, some_updates, and others. This AppleScript is free software released into the public domain. For full information about the licence, please see http://unlicense.org/ The included Python scripts are all free, and have a variety of licences. See the individual files for details. " with title "DeDRM Applescript by Apprentice Alf" buttons {"Close", "Select Ebook… ", "Configure… "} default button 1 ReadPrefs() clearlog() GetAdeptKey(false) if button returned of dialogresult is not "Close" then if button returned of dialogresult is "Select Ebook… " then set DRMebook to "" try set DRMebook to {choose file with prompt "DeDRM AppleScript Please select a DRMed ebook"} end try if DRMebook is not "" then if ProcessItems(DRMebook) is 0 then display dialog "That was a file that this script cannot process." with title "DeDRM Applescript" buttons {"OK"} default button 1 end if end if else GetPIDs() GetSerials() GetKeys(true) GetAdeptKeyFiles() GetOutputFolder() --GetIneptPDF(true) --GetKindleInfoFiles() end if end if WritePrefs() end if end run on open some_items --display dialog (some_items as text) if GetTools() then ReadPrefs() clearlog() GetAdeptKey(false) if ProcessItems(some_items) is 0 then set dialogresult to display dialog "No ebooks found in the dropped items. DeDRM can handle Mobipocket/Kindle, eReader, Adobe ePub, Barnes & noble ePub and Adobe PDF. Please try again." buttons {"OK"} with title "DeDRM Applescript" default button 1 end if WritePrefs() end if end open