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