#this program sends an encrypted message using crypt and explode

FILE=${1:?"usage...sendcrypt filename to-address"}
NAME=${2:?"usage...sendcrypt filename to-address"}
export FILE NAME
crypt <$FILE >$FILE.cry
explode $FILE.cry $FILE.ex
(date;echo "$NAME\n\ntransmission of encrypted mail\r\021\n\rf\n$FILE.ex\ns\n" \
| send)>>Rlog
rm $FILE.cry $FILE.ex
echo "\nencrypted mail sent\n"
