(define (crypt-md5-gensalt random)
  (string-append "$1$"
                 (u8vector->saltstring
                  (get-random-u8vector 'crypt-md5-gensalt random 6 6))))