CGI 内で PGP 暗号化をする話

FormMail(pgp5formmail.pl)でも、

$pgpprog = '/bin/pgpe';
～
open (PGP, "|$pgpprog -r \"$Config{'pgpuserid'}\" -af -o /pgptmp.asc > /dev/null")
～メール本文　出力～
close(PGP);

という具合にベタなメール本文をパイプで PGP プログラムに渡して暗号化。
その後、この PGP 暗号化ファイル（ASCファイル）を読み込んで、メールにセットしてるだけだなあ。

open(PGPFILE, "/pgptmp.asc")
～
while(<PGPFILE>) {
    print MAIL $_;
}
close (PGPFILE);

で、不要になった ASC ファイルは、

unlink("/pgptmp.asc");

すると。

モジュール使うよりはこっちのほうが簡単だねえ。