Changeset 1634 for trunk

Timestamp:

01/14/16 09:33:12 (8 years ago)

Author:

nanardon

Message:

Don't decrypt all password if not need

File:

• trunk/LATMOS-Accounts/bin/la-sql-crypt-passwd (modified) (3 diffs)

trunk/LATMOS-Accounts/bin/la-sql-crypt-passwd

@@ -78 +78 @@
 
 sub get_clear_password {
+
+    my @users_to_decode = @_;
+
     $clear and return $clear;
     my %encpasswd = $labase->get_rsa_password;
@@ -86 +89 @@
     ReadMode 0;
     print "\n";
-    printf "Trying to get current stored password (%d)\n", scalar(keys %encpasswd);
     my $private_key = $labase->private_key($password) or
         die "Cannot get private key\n";
     my $rsa = new Crypt::RSA ES => 'PKCS1v15';
+
     my %clear_passwd;
-    foreach (keys %encpasswd) {
+
+    if (!@users_to_decode) {
+        @users_to_decode = sort keys %encpasswd;
+    }
+
+    printf
+        "Trying to get current stored password (%d)\n",
+        scalar(@users_to_decode);
+
+    foreach (@users_to_decode) {
         my $clearp = $rsa->decrypt (
                 Cyphertext => $encpasswd{$_},
@@ -112 +124 @@
     }
     my $destbase = $LA->base($set) or die "Cannot get base $set\n";
-    my $clearpasswd = get_clear_password();
+    my $clearpasswd = get_clear_password(@users);
 
     my @userstoset = @users ? @users : keys %$clearpasswd;