▽1
●
JULY ●600ポイント ![]() |
#!/usr/bin/perl use strict; use warnings; use IPC::Open2; my $message = "info\@example.com"; my $pid = open2(\*RDR, \*WTR, 'openssl enc -des-ede3-cfb -e -base64 -k SECRET'); print WTR $message; close WTR; my $result = <RDR>; close RDR; print "Result: $result\n"; $pid = open2(\*RDR, \*WTR, 'openssl enc -des-ede3-cfb -d -base64 -k SECRET'); print WTR $result; close WTR; my $org_message = <RDR>; close RDR; print "Original: $org_message\n";
IPC::Open2 を使って、上記のコードだと openssl の標準入力を WTR 、標準出力を RDR というファイルハンドルでオープンしています。
下記のページを参考にしました。
さっそくありがとうございました!! 手元の環境にopensslがインストールされていないため、
上記ソースを試せていないのですが、後ほど試させて頂きます。まずは早期解決ということで500pt送らせて頂きます。
付け加えて、質問させて下さい。
opensslを使わずに、上記コードを再現してもらえますでしょうか。
こちらも解決でポイントをつけさせて頂きますので、、
お手数をおかけしますがよろしくお願い致します。。