script pour crypter un mot de passe

bonjour,

je sais bien que c'est beaucoup demander mais quelqu'un pourrait il m'aider
à compléter mon script ?

le but de ce script est de me permettre de rajouter des personnes dans mon
fichier .htpasswd.

le script fonctionne correctement execpté que je ne sais pas comment faire
pour crypté le mot de passe avec l'utilitaire fourni par le serveur apache.

par avance merci

bonjour,

je sais bien que c'est beaucoup demander mais quelqu'un pourrait il m'aider
à compléter mon script ?

le but de ce script est de me permettre de rajouter des personnes dans mon
fichier .htpasswd.

le script fonctionne correctement execpté que je ne sais pas comment faire
pour crypté le mot de passe avec l'utilitaire fourni par le serveur apache.

par avance merci

---- script -----
#!/usr/bin/perl
use CGI qw/:standard *table start_ul/;
use CGI ':standard';

print "Content-type: text/htmlnn";

$query = new CGI();

# -- on recupere les variables
$nom = $query->param('nom');
$passe = $query->param('passe');
$fichier = "/home/sebastien/login/.htpasswd";

# -- ajout d'un administrateur
if ( ($nom ne '') && ($passe ne '') ) {

eval { open (FICHIER, ">>$fichier") || die "ERREUR : impossible d'ouvrir le
fichier u$fichiere : $!"; };
if ($@) {
print "n$@n";
exit 1;
}

print FICHIER "n$nom:$passe";

close FICHIER;
}

# -- on redirige vers la bonne page
print start_html ( -title=>'Le monde des fées',
-style=>{'src'=>'../monde/default.css'});
print "<meta http-equiv=refresh
content=0;URL=../cgi-bin/monde_liste_admin.pl>";
print end_html();
-----------------

Tu peux utiliser la fonction crypt() de perl (pour plus de détails
"perldoc -f crypt"). Sinon, si tu veux des hashs MD5, je pense que tu
pourras utiliser Digest::MD5 pour faire cela.