{
    use MIME::Base64 qw(encode_base64);

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

    my $pw = $rec->prop('DbPassword');
    return "" if $pw;

    $rec->set_prop('DbPassword', sprintf("%15.0f", int( (1000000000000000) * rand() )));
}
