home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / AmigaElm-v7.lha / c / EncryptMsg < prev    next >
Encoding:
AmigaDOS Script File  |  1995-05-27  |  1.7 KB  |  54 lines
  1. .KEY cryptfile/A,cryptmode/A
  2. .BRA [
  3. .KET ]
  4.  
  5. ;
  6. ; EncryptMsg using PGP
  7. ;
  8. ; written by Peter Simons <simons@peti.GUN.de>
  9. ; modified by Ignatios Souvatzis <is@beverly.rhein.de> to be able to ask
  10. ; for passphrases etc.
  11. ; This version actually suceeds to open on Elm's screen.
  12. ; 
  13. ; $VER: EncryptMsg <is@beverly.rhein.de> 1.5 (12-Apr-95)
  14. ;
  15.  
  16. FailAt 1
  17. Set pubscreen "`getactscreen`"
  18. SplitHeadBody <"[cryptfile]" "T:AmiElm-Header.${process}" "T:AmiElm-Body.${process}"
  19.  
  20. If "[cryptmode]" EQ "ENCRYPT"
  21.     RequestString RECIPIENTS "Please enter recipient(s) ID(s)..." 256
  22.     PGP -tea "T:AmiElm-Body.${process}" <>"CON:///100/PGP/AUTO/WAIT/CLOSE/SCREEN${pubscreen}" ${RECIPIENTS}
  23.     UnSet RECIPIENTS
  24. Else
  25. If "[cryptmode]" EQ "SIGN"
  26.     PGP -tsa "T:AmiElm-Body.${process}" <>"CON:///100/PGP/AUTO/WAIT/CLOSE/SCREEN${pubscreen}" +clearsig=on
  27. Else
  28. If "[cryptmode]" EQ "ENCRYPT+SIGN"
  29.     RequestString RECIPIENTS "Please enter recipient(s) ID(s)..." 256
  30.     PGP -tesa "T:AmiElm-Body.${process}" <>"CON:///100/PGP/AUTO/WAIT/CLOSE/SCREEN${pubscreen}" ${RECIPIENTS}
  31.     UnSet RECIPIENTS
  32. Else
  33.     Echo "elm: Encrypt mode *"[cryptmode]*" not supported by *"EncryptMsg*" script!"
  34.     Echo "elm: WARNING! Mail not modified, sending mail NOT encrypted ..."
  35.     Delete "T:AmiElm-Header.${process}" "T:AmiElm-Body.${process}" QUIET FORCE
  36.     Quit
  37. EndIf
  38. EndIf
  39. EndIf
  40.  
  41. ;
  42. ; now copy the encrypted message back, build new message from header and body
  43. ; and get rid of our temporary files
  44. ;
  45.  
  46. Echo "*N" >"t:AmiElm-Line.${process}" NOLINE
  47. Delete "[cryptfile]" QUIET FORCE
  48. Join "T:AmiElm-Header.${process}" "T:AmiElm-Line.${process}" "T:AmiElm-Body.${process}.asc" as "[cryptfile]"
  49. Delete "T:AmiElm-Body.${process}" "T:AmiElm-Header.${process}" "T:AmiElm-Body.${process}.asc" "T:AmiElm-Line.${process}" QUIET FORCE
  50. UnSet pubscreen
  51.  
  52. ;
  53. ; bye,bye
  54.