;;; s = string to be translated to or from readable format or autocad entity

;; ! ***************************************************************************
;; ! MD_DecryptACIS
;; ! ***************************************************************************
;; ! Function : Decrypt the ACIS format string info stored on a 3dsolid entity
;; ! Arguments: 'EncStr'    - Encrypted string
;; ! Updated  : October 26, 2001
;; ! e-mail   : rakesh.rao@4d-technologies.com 
;; ! Web      : www.4d-technologies.com
;; ! ***************************************************************************


(defun MD_DecryptACIS( EncStr / DecStr tmpStr )

(setq DecStr "")
(while (> (strlen EncStr) 0)
	(setq
		tmpStr (substr EncStr 1 1)
		EncStr (substr EncStr 2)
		DecStr (strcat DecStr (if (= tmpStr " ")
								" "
								(chr (- 79 (- (ascii tmpStr) 80)))
					)
		)
	)
)
DecStr
)