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
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 unlockedFileParentFolderPath)
--display dialog "shellcommand: " default answer shellcommand buttons {"OK"} default button 1 giving up after 10
try
set shellresult to do shell script shellcommand
on error errmsg
set shellresult to errmsg
end try
--display dialog shellresult
end repeat
if (offset of "Error" in shellresult) > 0 or (offset of "No key found" in shellresult) > 0 then
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 encryptionName) & " " & (quoted form of encryptionNumber)
--display dialog "shellcommand: " & shellcommand buttons {"OK"} default button 1 giving up after 10
set shellresult to "no result"
try
set shellresult to do shell script shellcommand
on error errmsg
set shellresult to errmsg
end try
--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 parent_folder
end tell
on error
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
set zipshellresult to do shell script shellcommand
--display dialog zipshellresult
tell application "Finder"
-- move source folder to the trash
move parent_folder & 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 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
set fixedFilePath to POSIX path of file (parent_folder & fileName & "_fixed" & fileExtension)
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
set shellresult to do shell script shellcommand
on error errmsg
set shellresult to "Error: " & errmsg
end try
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
set unlockedFilePath to POSIX path of file (parent_folder & fileName & "_dedrmed" & fileExtension)
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
set shellresult to "no result"
try
set shellresult to do shell script shellcommand
on error errmsg
set shellresult to "Error: " & errmsg
end try
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
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
set shellresult to "no result"
try
set shellresult to do shell script shellcommand
on error errmsg
set shellresult to "Error: " & errmsg
end try
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.
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 & "_dedrmed" & 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
set shellresult to "no result"
try
set shellresult to do shell script shellcommand
on error errmsg
set shellresult to "Error: " & errmsg
end try
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
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
if Seriallength is 16 and (first character of Serial) is "B" then
set KindleSerialList to KindleSerialList & Serial
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 DialogPrompt to "To add extra Kindle Info files, click the Add<64> 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<64> 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<64>", FinishedButton} with title "DeDRM Applescript" default button 2)
if button returned of dialogresult is "Add<64>" then
try
set newFile to POSIX path of file ((choose file with prompt "Please select a Kindle Info file") as text)
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 DialogPrompt to DialogPrompt & "eReader/Barnes & Noble Name,Number key pairs one at a time. 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 dialogresult to (display dialog DialogPrompt default answer bnKeyText buttons {"Delete All", "Add", FinishedButton} with title dialogtitle default button 2)
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)
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
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
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
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<64> 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<64> button."
set dialogresult to (display dialog DialogPrompt buttons {"Forget All", "Add<64>", FinishedButton} with title "DeDRM Applescript 5/5" default button 2)
if button returned of dialogresult is "Add<64>" 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
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
if success then
if not (AdeptKeyList contains userAdeptKeyPath) then
set AdeptKeyList to AdeptKeyList & userAdeptKeyPath
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.pyw 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.pyw 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
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}
launch application ((path to resource "DeDRM Progress.app") as string)
tell application ((path to resource "DeDRM Progress.app") as string)
activate
set contents of <20>class texF<78> "maintext" of window "main" to "Decrypting " & maxcount & " ebooks."
set contents of <20>class texF<78> "subtext" of window "main" to "Decrypting book 0: "
set <20>class maxV<78> of <20>class proI<6F> "bar" of window "main" to maxcount
set <20>class conT<6E> of <20>class proI<6F> "bar" of window "main" to 0
end tell
end if
end try
end InitProgress
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 <20>class texF<78> "subtext" of window "main" to "Decrypting book " & doingcount & ": " & booktitle
set <20>class conT<6E> of <20>class proI<6F> "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
display dialog "Drag&Drop encrypted ebooks onto this AppleScript's icon in the Finder to decode them after you have finished configuring it and it has quit.
Click the Continue button to enter any PIDs for Mobipocket ebooks; serial numbers for Kindle ebooks; name,number key pairs for Barnes & Noble/eReader ebooks; to select extra Barnes & Noble .b64 key files; or to select extra Adobe Adept .der key files.
***You do not need to enter any extra info if decoding ebooks downloaded to your installation of Kindle for Mac, or Adobe Digital Editions. If you do not have any PIDS; serial numbers; name,number keys, .b64 or .der files, just click the Cancel button.***
This AppleScript is by Apprentice Alf and uses python scripts produced by CMBDTC, IHeartCabbages, DarkReverser, DiapDealer, some_updates, Apprentice Alf and others.
This AppleScript (but not necessarily the enclosed python scripts) is free and unencumbered software released into the public domain.
Anyone is free to copy, modify, publish, use, compile, sell, or distribute this software, either in source code form or as a compiled binary, for any purpose, commercial or non-commercial, and by any means.
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))
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<76>", "OK"} with title "DeDRM Applescript" default button 1
if button returned of dialogresult is "Save<76>" 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<76>", "Bother"} with title "DeDRM Applescript" default button 1
if button returned of dialogresult is "Save<76>" 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
if CompletedCount is 0 and ErrorCount is 0 and WarningCount is 0 and totalebooks 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
