Perlコーディング初心者質問スレ Part 58

Perlコーディング初心者質問スレ Part 58at PHP

Perlコーディング初心者質問スレ Part 58 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

6:nobodyさん
 08/08/07 11:10:29 qpI1q2Ei
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]; 
} 
 
これをcgiとして上記のサイトのように出力するようにするにはどうすればいいでしょうか？

次ページ