script AppDelegate
property parent : class "NSObject"
    property secretPhrase : missing value
    property messageFee : missing value
    property accountReceiver : missing value
    property messageEncrypted : missing value
    property keyReceiver : missing value


    on assimilateFile_(sender)
        
        
        set base64path to "/Library/NXTFileClient/tempfile.txt"
        set inFilePath to POSIX path of (choose file with prompt "Please select file for assimilation." )
        
        do shell script "openssl base64 -in " & inFilePath & " -out " &  base64path
        
        
        open for access base64path
        
         tell current application to  set ciphertext to read  base64path
        
        close access base64path
        
        --cipher to hex
        set thelist to "0123456789ABCDEF"
        set hexvalue to ""
        repeat with i in ciphertext
            set theAscii to ASCII number of i
            set hexvalue to hexvalue & character (theAscii div 16 + 1) of thelist & character (theAscii mod 16 + 1) of thelist
        end repeat
        
        set secretPhrase to "0"
        
        set finalText to (hexvalue as text)
        --cipher to hex
        
        set messageLength to the length of finalText
        
        set var_a to messageLength 4
        
        set var_b to var_a 200
        
        set iterations to round var_b rounding up
        
        set counter to 1
        repeat iterations times
            
            if messageLength is less than 800 then
                
                set charnumberalpha to 1
                set charnumberbeta to messageLength
                
                else
                set charmaximum to messageLength
                
                if  counter is equal to iterations then
                    
                    set charnumberalpha to 1 + 800 * (counter - 1)
                    set charnumberbeta to charmaximum
                    
                    else
                    
                    set charnumberalpha to 1 + 800 * (counter - 1)
                    set charnumberbeta to 800 + 800 * (counter -1)
                    
                end if
                
                
            end if
            
            set messageFinal to (text charnumberalpha thru charnumberbeta of finalText)
            
            if counter is less than 10 then
                set identifierLength to 1
                
                else
                
                set identifierLength to the length of counter
                
            end if
            
            
            
            set completeMessage to identifierLength & "000" & counter & "000" & messageFinal
            
            set urlMassive to  "http://localhost:7874/nxt?requestType=sendMessage&secretPhrase=" & secretPhrase & "&recipient=" &  accountReceiver & "&fee=" & messageFee & "&deadline=1440" & "&message=" & completeMessage
            
            do shell script "open " & quoted form of urlMassive
            
            set counter to counter + 1
        end repeat
        
    end assimilateFile_
on applicationWillFinishLaunching_(aNotification)
-- Insert code here to initialize your application before any files are opened
end applicationWillFinishLaunching_

on applicationShouldTerminate_(sender)
-- Insert code here to do any housekeeping before your application quits
return current application's NSTerminateNow
end applicationShouldTerminate_

end script