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/?

there have been a few haters coming in from the imageboards

I'm not from the imageboards but have be very vocal about how Lisp-like languages might be cute in your ivory tower university setting but in the real world they are pretty fucking useless.