#!/usr/bin/perl -w

# Copyright Fabien SALVI <fabien@cri74.org>
# For the PingOO distribution
# under GPL
# 01/02/2000

use strict;

my $clear_pass = $ARGV[0] || die "error : you must give me a password\n";
my $salt = $ARGV[1] || die "error : you must give me a salt\n";

my $crypt_pass = crypt ($clear_pass, $salt);
print "Crypted password for $clear_pass is $crypt_pass\n";