暗号・復号 cgiスクリプトについて
こんにちは。
私はcgiスクリプトにて文字を暗号化させたいと思っています。
友人に暗号化復号化スクリプトを書いてもらったのですが
どうやって動かすかよくわかりません。
http://www.rescue.ne.jp/cgi/htpasswd/makepwd-des/
上記のサイトのように出力させたいのですが、スクリプトだけでは私には難しいです。
その友人は海外に行ってしまい連絡が今は取れないんです。
sub enc_string{
my ($key, $string) = @_;
my @map = (('A' ... 'Z'), ('a' ... 'z'), ('0' ... '9'), '+', '&');
my @key = unpack('C*', $key);
my $str = '';
my @x = map { int(rand(200)) } (0 ... 2);
@key = map {$x[$_] ^ $key[$_]} (0 ... 2);
while($string ne ''){
my $n = substr($string, 0, 3, '');
my @n = unpack('C3', $n);
map{$n[$_] ^= ($key[$_])} (0 ... 2);
@key = unpack('C3', $n);
@key = map {$x[$_] ^ $key[$_]} (0 ... 2);
my $a = $n[0] >> 2;
my $b = (($n[0] & 3) << 4) | ($n[1] >> 4);
my $c = (($n[1] & 15) << 2) | ($n[2] >> 6);
my $d = $n[2] & 63;
$str .= $map[$a] . $map[$b] . $map[$c] . $map[$d];
}
my $a = $x[0] >> 2;
my $b = (($x[0] & 3) << 4) | ($x[1] >> 4);
my $c = (($x[1] & 15) << 2) | ($x[2] >> 6);
my $d = $x[2] & 63;
return $str.'<>'.$map[$a].$map[$b].$map[$c].$map[$d];
}
このスクリプトで暗号するようですが、初心者なものでどうやって
手直し？追加すればよいのでしょうか？
#!/usr/bin/perlを最初に入れるのはわかります。
あとこのスクリプトの他に復号、MD5にて暗号のスクリプトがあります。
まずは暗号化させてみたいのですが、よろしくお願いします
