{
   use MIME::Base64 qw(encode_base64);

   my $rec = $DB->get('bandwidthd') || $DB->new_record('bandwidthd', {type => 'service'});

   my $pw = $rec->prop('DbPassword');
   return "" if $pw;
   $pw = MIME::Base64::encode(int( (1000000000000000) * rand() ));
   chomp($pw);
   $rec->set_prop('DbPassword', "$pw" );
}
