人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

【早期解決で500ptです】Perlでの質問です。

openssl enc -des-ede-3-cfb -base64 -k "SECRET"

の引数をもとに、 $mailaddress='info@example.com';
を暗号、復号化するソースを教えてください。
ワンライナーではなく、Perl(CGI)で使いたいので、実際の記述方法を教えてください。

ちなみに質問ですが、、"SECRET" は暗号キーですよね?
また、Windows+Apacheでの必要環境も教えてください。
(ppmでのインストールソフトは、opensslのみで大丈夫でしょうか。)

よろしくお願い致します。

●質問者: furure
●カテゴリ:インターネット ウェブ制作
✍キーワード:Apache base64 CGI E-3 example.com
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

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 というファイルハンドルでオープンしています。

下記のページを参考にしました。

[を] IPC::Open2 の簡単サンプル

◎質問者からの返答

さっそくありがとうございました!! 手元の環境にopensslがインストールされていないため、

上記ソースを試せていないのですが、後ほど試させて頂きます。まずは早期解決ということで500pt送らせて頂きます。

付け加えて、質問させて下さい。

opensslを使わずに、上記コードを再現してもらえますでしょうか。

こちらも解決でポイントをつけさせて頂きますので、、

お手数をおかけしますがよろしくお願い致します。。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ