###############################################################################
# hmkpasswd.pl
###############################################################################
# パスワード暗号化ライブラリ
# 
# Itsuro Hagihara <hagi2@kh.rim.or.jp> (07/22/1998)
# [http://www.kh.rim.or.jp/~hagi2]
#
###############################################################################
# 使い方
#
#  &hmkpasswd($plaintext);
#
#  $plaintext: 暗号化されないパスワード（半角英数字）
#
#  戻り値:暗号化されたパスワード
#
###############################################################################


sub hmkpasswd{
    local($plaintext)=@_;
    local($key,$i,$passwd,@keys);

    $key='a';
    for($i=0;$i<=25;$i++){
	$keys[$i]=$key++;
    }
    $key='A';
    for($i=26;$i<=51;$i++){
	$keys[$i]=$key++;
    }
    $key='0';
    for($i=52;$i<=61;$i++){
	$keys[$i]=$key++;
    }
    $keys[++$i]='.';
    $keys[++$i]='/';
    
    srand(time|$$);
    $i=rand(@keys);
    $key=$keys[$i];
    $i=rand(@keys);
    $key=$key . $keys[$i];
    
    $passwd=crypt($plaintext,$key);

    return($passwd);
}

1;