Do you something like this? You compare between two sources.
(defun str_pathtemp ( / rr e f k) (asserte "A131")
(setq rr nil f (if_try11 "0x975D" (list (if_try11 "0xE12A" (list "TEMP"))))) (if (and (not rr) f) (setq rr f)) (setq f (if (not f) (if_try11 "0x975D" (list
(if_try11 "0xE12A" (list "TMP")))) f)) (if (and (not rr) f) (setq rr f)) (setq f
(if_try11 "0x975D" (list (if_try11 "0x4E37" (list "TEMPPREFIX")))) f (if (not f) (if_try11 "0x975D" (list (if_try11 "0xE12A" (list "TMP")))) f)) (setq f (if_try11 "0x975D" (list (if_try11 "0x4E37" (list "XLOADPATH"))))
f (if (not f) (if_try11 "0x975D" (list (if_try11 "0xE12A"
(list "TMP")))) f)) (if (= rr nil) (setq rr "")) (setq k (strlen rr)) (if (> k 2) (progn
(while (and (> k 1) (= (if_try11 "0xF2C4" (list rr k 1)) " ")) (setq rr (if_try11 "0xF2C4" (list rr 1 (- k 1))))) (progn (while (and (> k 1) (if_try11 "0x46CA" (list rr "*[\\]*"))) (if (= (if_try11 "0xF2C4" (list rr k 1)) "\\")
(setq rr (if_try11 "0x31AB" (list (if_try11 "0xF2C4" (list rr 1 (- k 1))) "/" (if_try11 "0xF2C4" (list rr (+ k 1))))))) (setq k (- k 1)))) (setq c (if_try11 "0xF2C4" (list rr (strlen rr)))) (if (/= c "/") (setq rr (if_try11 "0x31AB" (list rr "/")))))) rr)
Which Defun is the Best source?Eu am codificat (encode) sursa-Visual, Eu am dorit intoarcerea codului sursa Visual-Lisp la cod-binar(eng. pcode-bin).
Adica noi putem incerca un nou nivel de sursa pcode-bin, inside ascii dar, acest nou nivel de sursa p-code, sa poata fii compilat la format .Vlx sau .Fas cu ajutorul tools-ului Vlide sau VBlade din BrisC*d.
Dvs doriti criptarea sirurilor string (pcode-str)?
{e.g. (getvar "TEMPPREFIX") , eu voi inlocui (getvar (stq "0#5ASD")) }
(defun str_pathtemp ( / rr e f k) (asserte "A131")
(setq rr nil f (dfn_var_isstr (getenv "TEMP"))) (if (and (not rr) f) (setq rr f)) (setq f (if (not f)
(dfn_var_isstr (getenv "TMP")) f)) (if (and (not rr) f)
(setq rr f)) (setq f (dfn_var_isstr (getvar "TEMPPREFIX")) f (if (not f) (dfn_var_isstr (getenv "TMP")) f))
(setq f (dfn_var_isstr (getvar "XLOADPATH")) f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (if (= rr nil) (setq rr ""))
(setq k (strlen rr)) (if (> k 2) (progn (while (and (> k 1) (= (substr rr k 1) " ")) (setq rr (substr rr 1 (- k 1))))
(progn (while (and (> k 1) (wcmatch rr "*[\\]*")) (if (= (substr rr k 1) "\\")
(setq rr (strcat (substr rr 1 (- k 1)) "/" (substr rr (+ k 1))))) (setq k (- k 1)))) (setq c (substr rr (strlen rr))) (if (/= c "/") (setq rr (strcat rr "/"))))) rr)