#!/usr/bin/perl

# This program requires follows 2 packages.
#   - libdigest-md5-perl
#   - libcrypt-passwdmd5-perl
# Please install these package.
#
# libcrypt-passwdmd5-perl パッケージは woody からサポート
#

require Crypt::PasswdMD5 ||
    die "This System don't support md5_crypt.\n";


use Crypt::PasswdMD5

$passwd = $ARGV[0];
$salt = $ARGV[1];

$md5word = unix_md5_crypt("$passwd", "$salt");

print STDOUT "$md5word \n";

exit 1;

#libmd5-perl は以下のパッケージに依存しています: libdigest-md5-perl (>= 2.13)

# 参考ホームページ

# Perl のモジュール
#    http://www.kt.rim.or.jp/~kbk/perl5.005/perlmod.html

# g89bu>%H