(defun MD5 (String / lst a b c d f g h i k l r w x y) (setq lst (StringToAscii String)) (setq k (mapcar '(lambda (x) (md5:int->bits x 32)) '( 3614090360 3905402710 0606105819 3250441966 4118548399 1200080426 2821735955 4249261313 1770035416 2336552879 4294925233 2304563134 1804603682 4254626195 2792965006 1236535329 ... ...