;; | ---------------------------------------------------------------------------
;; | MI_FileEncrypt
;; |
;; | ---------------------------------------------------------------------------
;; | Arguments: 'fn'     - File Name to be encrypted
;; |            'KeyLst' - Encryption codes to be applied, as a list
;; | Function : Encrypts a file using a set of encryption keys, supplied in a list
;; | Updated  : March 19, 2006
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------

(defun MI_FileEncrypt ( fn KeyLst / Key )
(if (setq fn (findfile fn))
(progn
	(foreach Key KeyLst
		(if (not (dos_encrypt fn Key))
			(princ "\nEncryption NOT successful.")
		)
	)
))
)