ユーザー名、パスワードの2行でできているCSVファイルがあります。パスワードはまだ暗号化されていません。ここで質問です。

Perlだったら以下のようなものでどうですか

SALTを固定したければ$saltを

$salt = 'r7';

などとすれば、

http://orange-factory.com/tool/crypt.cgi

のcgiと同じ変換か調べられます。

csvで','区切りですと、

split ':';

の部分を

split ',';

に変える必要があります。

#!/usr/local/bin/perl
=here
 test.csv
 name:pass
 name02:pass02
 というファイルを test2.csvに保存します。
=cut
# SALT用キャラクタ
@CHAR = (0..9, 'A'..'Z', 'a'..'z');
$buf = '';
# ファイルを開く
open(IN, 'test.csv');
binmode(IN);
# 1行ずつ処理
while (<IN>) {
 # 改行削る
 tr/\r\n//d;
 #:くぎりのものを分ける
 ($name, $pass) = split ':';
 # SALT作成
 $salt = $CHAR[ int(rand(@CHAR)) ]. $CHAR[ int(rand(@CHAR)) ];
 # 新規一行作成
 $buf .= $name. ':'. crypt($pass, $salt). "\n";
}
close(IN);
# 保存
open(OUT, '> test2.csv');
binmode(OUT);
print OUT $buf;
close(OUT);