- Timestamp:
- 01/14/16 09:33:12 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/bin/la-sql-crypt-passwd
r1314 r1634 78 78 79 79 sub get_clear_password { 80 81 my @users_to_decode = @_; 82 80 83 $clear and return $clear; 81 84 my %encpasswd = $labase->get_rsa_password; … … 86 89 ReadMode 0; 87 90 print "\n"; 88 printf "Trying to get current stored password (%d)\n", scalar(keys %encpasswd);89 91 my $private_key = $labase->private_key($password) or 90 92 die "Cannot get private key\n"; 91 93 my $rsa = new Crypt::RSA ES => 'PKCS1v15'; 94 92 95 my %clear_passwd; 93 foreach (keys %encpasswd) { 96 97 if (!@users_to_decode) { 98 @users_to_decode = sort keys %encpasswd; 99 } 100 101 printf 102 "Trying to get current stored password (%d)\n", 103 scalar(@users_to_decode); 104 105 foreach (@users_to_decode) { 94 106 my $clearp = $rsa->decrypt ( 95 107 Cyphertext => $encpasswd{$_}, … … 112 124 } 113 125 my $destbase = $LA->base($set) or die "Cannot get base $set\n"; 114 my $clearpasswd = get_clear_password( );126 my $clearpasswd = get_clear_password(@users); 115 127 116 128 my @userstoset = @users ? @users : keys %$clearpasswd;
Note: See TracChangeset
for help on using the changeset viewer.