;; | ---------------------------------------------------------------------------
;; | MI_Encrypt1 - Encrypt a String using the boole function
;; | ---------------------------------------------------------------------------
;; | Arguments: 'Str' - String to be encrypted
;; |            'Key'    - Encryption Key
;; | Returns  : The encrypted String
;; | Updated  : May 30, 2001
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun MI_Encrypt1( Str Key / fptr tmp _Str )

(vl-list->string (mapcar '(lambda (x) (+ (boole 6 x Key) 0)) (vl-string->list (strcase Str))))
)