Skip to content

Instantly share code, notes, and snippets.

@dylan-chong

dylan-chong/Get_Safari12_Passwords from mrc-converter-suite.applescript

Created February 16, 2019 22:44
Download ZIP

Revisions

  1. dylan-chong created this gist Feb 16, 2019.
    272 changes: 272 additions & 0 deletions Get_Safari12_Passwords from mrc-converter-suite.applescript
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,272 @@
    -- See the most up to date version here where it says "Download the mrc-converter-suite zip archive" https://discussions.agilebits.com/discussion/30286/mrcs-convert-to-1password-utility/p1
    --
    -- Exports Safari's saved passwords to a CSV file formatted for use with the convert_to_1p4's csv converter
    --
    -- Version 1.4
    -- mike (at) cappella (dot) us
    --

    use AppleScript version "2.5" -- runs on 10.11 (El Capitan) and later
    use scripting additions

    set csv_filepath to (path to desktop as text) & "pm_export.csv"

    set invokedBy to ""
    tell application "System Events"
    set invokedBy to get the name of the current application
    end tell

    set Entries to {}
    set Entries to FetchEntries()

    set theResult to write_csv_file(Entries, csv_filepath)
    if not theResult then
    display dialog "There was an error writing the data!"
    error number -128
    end if

    tell application "System Events" to tell application process "Safari"
    keystroke "w" using {command down}
    end tell

    tell application "Finder"
    activate
    make new Finder window
    set target of Finder window 1 to path to desktop
    reveal csv_filepath
    end tell

    tell application "System Events" to tell application process invokedBy
    set frontmost to true

    display dialog "All done!
    There is now a file on your Desktop named:
    pm_export.csv
    You may now convert it to a 1PIF for import into 1Password using the csv converter in the converter suite."
    end tell

    -- handlers
    on FetchEntries()
    set tableEntries to {}
    tell application "Safari"
    activate
    end tell

    tell application "System Events" to tell application process "Safari"
    set frontmost to true
    keystroke "," using {command down}
    set tb to toolbar 1 of window 1
    set buttonName to (name of button 4 of tb as string)
    click button 4 of tb
    set theResult to display dialog "Please unlock " & buttonName & " and press Continue when unlocked" buttons {"Cancel", "Continue"} default button "Continue"
    if (button returned of theResult) is "Cancel" then
    error number -128
    end if
    tell application "System Events" to tell application process "Safari"
    set frontmost to true
    end tell

    set prefsWin to window 1
    set theTable to table 1 of scroll area 1 of group 1 of group 1 of prefsWin
    set nRows to the count of rows of table 1 of scroll area 1 of group 1 of group 1 of prefsWin
    -- say "Dialog has " & nRows & "rows."

    tell theTable
    local row_index
    set row_index to 1
    repeat while row_index ≤ nRows
    local myRow
    -- say "Row " & row_index
    set myRow to row row_index
    select row row_index
    --delay 1
    set focused to true

    -- open the sheet
    keystroke return
    set focused to true

    tell application "System Events" to tell application process "Safari"
    local theSite, theName, theUser, thePass, theURLs, urlList, rowValues, theSheet
    set {theTitle, theSite, theUser, thePass, theURLs} to {"Untitled", "", "", "", ""}
    set urlList to {}

    set theSheet to 0
    try
    set theSheet to sheet 1 of prefsWin
    on error
    say "Sheet for row " & row_index & "did not open - Skipping Entry"
    end try

    if theSheet is not 0 then
    -- Any of the URL, Username or Password values be empty
    set theURLtable to table 1 of scroll area 1 of theSheet
    set nURLs to the count of rows of theURLtable
    -- say "row " & row_index & "count " & nURLs
    set url_index to 1
    repeat while url_index ≤ nURLs
    local aURL
    set aURL to (the value of static text of item 1 of UI element 1 of row url_index of theURLtable) as text
    -- say "url row " & url_index
    if url_index is equal to 1 then
    if aURL is missing value or aURL is equal to "" then
    -- say "site missing or empty"
    else
    -- say "site " & theSite
    -- For the Title, just duplicate the URL field
    copy aURL to theSite
    copy aURL to theTitle
    end if
    else
    -- push extra URLs to the notes area
    set the end of urlList to aURL
    end if
    set url_index to url_index + 1
    end repeat

    try
    set theUser to value of attribute "AXValue" of text field 1 of theSheet
    end try
    try
    set thePass to value of attribute "AXValue" of text field 2 of theSheet
    end try

    --if (count of urlList) is greater than 0 then
    -- set beginning of urlList to "Extra URLs"
    --end if

    set theURLs to Join(character id 59, urlList) of me
    local tmpList
    set tmpList to {theTitle, theSite, theUser, thePass, theURLs}
    copy tmpList to rowValues
    set the end of tableEntries to rowValues

    -- close the sheet
    keystroke return
    end if
    end tell

    set row_index to row_index + 1
    end repeat
    end tell
    end tell

    return tableEntries
    end FetchEntries

    on write_csv_file(Entries, fpath)
    local rowdata
    set beginning of Entries to {"Title", "Login URL", "Login Username", "Login Password", "Additional URLs"}

    set csvstr to ""
    set i to 1
    repeat while i ≤ (count of Entries)
    --say "Row " & i
    set rowdata to item i of Entries

    if csvstr is not "" then
    set csvstr to csvstr & character id 10
    end if

    set j to 1
    repeat while j ≤ (count of rowdata)
    --say "Column " & j
    set encoded to CSVCellEncode(item j of rowdata)
    if csvstr is "" then
    set csvstr to encoded
    else if j is 1 then
    set csvstr to csvstr & encoded
    else
    set csvstr to csvstr & "," & encoded
    end if
    set j to j + 1
    end repeat
    set i to i + 1
    end repeat

    set theResult to WriteTo(fpath, csvstr, «class utf8», false)
    return theResult
    end write_csv_file

    on WriteTo(targetFile, theData, dataType, append)
    try
    set targetFile to targetFile as text
    set openFile to open for access file targetFile with write permission
    if append is false then set eof of openFile to 0
    write theData to openFile starting at eof as dataType
    close access openFile
    return true
    on error
    try
    close access file targetFile
    end try
    return false
    end try
    end WriteTo

    on CSVCellEncode(cellstr)
    --say cellstr
    if cellstr is "" then return ""
    set orig to cellstr
    set cellstr to ""
    repeat with c in the characters of orig
    set c to c as text
    if c is "\"" then
    set cellstr to cellstr & "\"\""
    else
    set cellstr to cellstr & c
    end if
    end repeat

    if (cellstr contains "," or cellstr contains " " or cellstr contains "\"" or cellstr contains return or cellstr contains character id 10) then set cellstr to quote & cellstr & quote

    return cellstr
    end CSVCellEncode

    on SpeakList(l, name)
    say "List named " & name
    repeat with theItem in l
    say theItem
    end repeat
    end SpeakList

    on GetTitleFromURL(val)
    copy val to title
    -- applescript's lack of RE's sucks
    set pats to {"http://", "https://"}
    repeat with pat in pats
    set title to my ReplaceText(pat, "", title)
    end repeat
    return item 1 of my Split(title, "/")
    end GetTitleFromURL

    on ReplaceText(find, replace, subject)
    set prevTIDs to text item delimiters of AppleScript
    set text item delimiters of AppleScript to find
    set subject to text items of subject

    set text item delimiters of AppleScript to replace
    set subject to subject as text
    set text item delimiters of AppleScript to prevTIDs
    return subject
    end ReplaceText

    on Split(theString, theDelimiter)
    set oldDelimiters to AppleScript's text item delimiters
    set AppleScript's text item delimiters to theDelimiter
    set theArray to every text item of theString
    set AppleScript's text item delimiters to oldDelimiters
    return theArray
    end Split

    on Join(delims, l)
    local ret
    set prevTIDs to AppleScript's text item delimiters
    set AppleScript's text item delimiters to delims
    set ret to items of l as text
    set AppleScript's text item delimiters to prevTIDs
    return ret
    end Join