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

Question

furure

15

15もっと見る

600pt

インターネットウェブ制作

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

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

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

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

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

回答の条件

1人10回まで

登録：2010/05/14 12:58:36
終了：2010/05/15 17:42:14

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

JULY 2010/05/14 18:21:47

回答に書き忘れたのですが、-k で指定した文字列が「暗号キー」というと、ちょっと語弊が有ります。

---------------------------------------------------
-k password
the password to derive the key from.
----------------------------------------------------

訳すと「鍵を得るためのパスワード」という意味になります。つまり、このパスワードを元に、実際に暗号化処理に使うための鍵を計算し、その計算結果を暗号化／復号化処理に使う、ということになります。

あと、
----------------------
-des-ede-3-cfb -base64
----------------------

は、正しくは、

---------------------
-des-ede3-cfb -base64
---------------------

です（「ede」と「3」の間にハイフンは入りません）。
furure 2010/05/14 20:36:48

上記の追加質問について補足させてください。
再現というか、単純にopensslを使わずに暗号化、復号化をしたいのです。
openssl enc -des-ede3-cfb -base64 -k "SECRET"
の引数でいうと、enc～からの部分です。

こちらの質問がもしお答えできないようでしたら一旦締めてポイントを送らせて頂きます。
もしご回答いただければあわせてポイントを送らせて頂きたいと思いますので
今しばらくお時間頂ければ幸いです。。どうぞよろしくお願い致します。
JULY 2010/05/15 10:48:01

ちょっと難しそうですね。

Crypt::CFB、Crypt::DES-EDE3、Crypt::DES（Crypt:DES-EDE3 が要求）といった辺りを使うと出来そうなんですが、openssl の -k で渡すパスワードから、実際の暗号化処理に渡す鍵を生成する方法を、何らかの形で実現する必要があります。調べれば、実装は可能だと思いますが、手頃なモジュールやコードは見つけられませんでした。

CFB モードではなく、CBC モードであれば、Crypt:CBC が使えて、こっちにでは openssl と同様に、パスワードから鍵を生成する事が可能なようです。
furure 2010/05/15 17:41:09

お調べいただきありがとうございました！
ちょっと環境上の理由からopensslの導入がもう少し先になりそうで、、と思ったのですが、
opensslの導入を急ぐことにします。鍵の意味など詳しく解説いただき、
本当にありがとうございました！

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

JULY · Accepted Answer · 2010-05-14T18:11:51+09:00

#!/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 の簡単サンプル

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

ベストアンサー

JULY9662472010/05/14 18:11:51

コメント（4件)

この質問への反応（ブックマークコメント）