アキラのＩＴメモ：IPアドレスをcrypt関数で暗号化する

Perlでcrypt関数を使っていろいろやっていたのでそのメモ書きです。CGIでIPアドレスに何らかの暗号化したい場合は例えば以下のようにしたらできます。もっとエレガントな書き方があるように思いますが。

my @nums = split(/\./, $ENV{'REMOTE_ADDR'}); 
my $hex_str = sprintf("%02X%02X%02X%02X",  
      $nums[0], $nums[1], $nums[2], $nums[3]); 
my $salt="aa"; 
$eid = substr(crypt($hex_str,$salt),-11);  

crypt関数に入力する文字列は8文字、出力される文字列は$saltを含んで13文字のようです。この場合、例えば暗号化するとcyrpt関数からは"aahogehogehog"という文字列が返ってきます。前2文字は$saltなので、後ろ11文字を取り出せば、暗号化した文字列が手に入ります。

コメントを投稿