Line 388: |
Line 388: |
| use MIME::Base64; | | use MIME::Base64; |
| | | |
− | my $rand = sprintf("%08d", int(1_000_000_000 * rand())); | + | $rec->set_prop('DbPassword', sprintf("%15.0f", int( (1000000000000000) * rand() ))); |
− | $password = MIME::Base64::encode($rand, "");
| |
− |
| |
− | $rec->set_prop('DbPassword', $password);
| |
| } | | } |
| | | |