;;
;; Encrypt file
;;
PGPENCRYPT "datafile.txt" "datafile.txt.pgp" /user=username_for_recipients_key
IFERROR= $ERROR_SUCCESS GOTO Operation1
GOTO Done
;;
;; Logon to FTP site
;;
:Operation1
FTPLOGON "IP Address" /user=username /pw=password
IFERROR= $ERROR_SUCCESS GOTO Operation2
GOTO Disconnect
;;
;; Upload encrypted file to FTP site
;;
:Operation2
SENDFILE "datafile.txt.pgp"
IFERROR= $ERROR_SUCCESS GOTO Operation3
GOTO Disconnect
;;
;; Clean up files
;;
:Operation3
DELETE "datafile.txt"
DELETE "datafile.txt.pgp"
;;
;; Logoff to FTP Site
;;
:Disconnect
FTPLOGOFF
:Done
exit