diff --git a/scripts/adherents/adh2passwd.pl b/scripts/adherents/adh2passwd.pl
index 1d3c6e5660c87f3f4723a6a96391abf7d8bb6d29..0e3bf15a1d0d6caa73cb93a885992bb40ab662de 100755
--- a/scripts/adherents/adh2passwd.pl
+++ b/scripts/adherents/adh2passwd.pl
@@ -28,7 +28,7 @@ use Getopt::Long;
 # command line option hash table
 my %optctl=();
 # get command line options
-GetOptions(\%optctl,"help!","host=s","db=s","user=s","pass=s","type=s","cotis!");
+GetOptions(\%optctl,"help!","host=s","db=s","user=s","pass=s","type=s","cotis!","crypt!");
 if (defined $optctl{'help'}){
   &usage();
 }
@@ -54,13 +54,17 @@ $sth->execute;
 
 # get login,pass of each adherents
 while (my @row = $sth->fetchrow_array ){
+  if (defined $optctl{'crypt'}){
+    print "$row[0]:",crypt($row[1],join '', ('.', '/', 0..9,'A'..'Z', 'a'..'z')[rand 64, rand 64]),"\n";
+  }else{
     print "$row[0]:$row[1]\n";
+  }
 }
 
 $dbh->disconnect();
 
 sub usage{
-  print "$0 [--help] [--host] [--db] [--user] [--pass] [--cotis]\n";
+  print "$0 [--help] [--host] [--db] [--user] [--pass] [--cotis] [--crypt]\n";
   print " cotis : select only adherents with cotisations up-to-date\n";
   print "\n";
   exit (1);