;; | ---------------------------------------------------------------------------
;; | MI_Crypt
;; | ---------------------------------------------------------------------------
;; | Arguments: 'UserFile' - User Registration file to encrypted
;; |            'OpCode'   - can be either "Encrypt" or "Decrypt"
;; | Function : Allows an encryption key to be applied t a registration file
;; | Updated  : April 4, 2000
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun MI_Crypt ( UserFile KeyLst OpCode / fn cnt )
(if (setq fn (findfile UserFile))
(progn
	(if (= OpCode "Decrypt")
		(setq KeyLst (reverse KeyLst))
	)
	(setq cnt 1)
	(foreach Key KeyLst
		(if (dos_encrypt UserFile Key)
			(princ (strcat "\nEncryption Stage " (itoa cnt) " - successful."))
			(alert (strcat "Encryption Stage " (itoa cnt) " - NOT successful."))
		)
		(setq cnt (1+ cnt))
	)
)
(alert (strcat "File " UserFile " not found in AutoCAD search path.")) 
)
)