ahaha~

(defun trip (input)
       (let ((salt
          (subseq (concatenate 'string input "H..")
              1 3)))
         (setf salt (regex-replace-all "[^\.-z]" salt "."))
         (setf salt (translate ":;<=>?@[\\]^_`" "ABCDEFGabcdef" salt))
         (let ((res (crypt input salt)))
           (subseq res (- (length res) 10)))))

I'm writing an imageboard in Common Lisp.

Problem, /prog/?

Also, I implemented Crypt simply by linking to libcrypt with CFFI.