(define (crypt-des-gensalt random)
  (u8vector->saltstring (get-random-u8vector 'crypt-des-gensalt random 1 1)))