Changes

Jump to navigation Jump to search
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);
   
  }
 
  }
  

Navigation menu