Topic: How to encrypte source.lsp inside .fas? - stage1

[d2010]

0
Cadastru MERCUREANU STEFAN
I
Cadastru NESTOR ANDREI FLORIN
II
Cadastru DUMITRACHE CONSTANTIN
III
Cadastru NICULAE ALEXANDRU ciolpani

Code: [Select]

(defun str_pathtemp ( / rr e f k)  (asserte "A131")
   (setq;|a16740|;
rr nil         
f (dfn_var_isstr (getenv "TEMP"))) (if (and  (not rr) f) (setq;|a16962|;
rr f)) (setq;|a17022|;
f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (if (and  (not rr) f) (setq;|a17248|;
rr f)) (setq;|a17312|;
f (dfn_var_isstr (getvar "TEMPPREFIX"))
f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (setq;|a17578|;
f (dfn_var_isstr (getvar "XLOADPATH"))
f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (if (=  rr nil) (setq;|a17894|;
rr "")) (setq;|a17954|;
k (strlen rr)) (if (>  k 2) (progn (while (and  (>  k 1) (=  (substr rr k 1) " ")) (setq;|a18256|;
rr (substr rr 1 (- k 1)))) (progn  (while (and  (>  k 1) (wcmatch rr "*[\\]*")) (if (=  (substr rr k 1) "\\") (setq;|a18662|;
rr (strcat (substr rr 1 (- k 1)) "/" (substr rr (+ k 1))))) (setq;|a18940|;
k (- k 1)))) (setq;|a19028|;
c (substr rr (strlen rr))) (if (/= c "/") (setq;|a19192|;
rr (strcat rr "/"))))) rr)

;;          ___ /^[___             
;;         /|^+----+   |#___________;;rem:
;;       ( -+ |____|    ______-----+/_NOW, YOU can transform TO NEXTCODE
;;        ==_________--'            \
;;          ~_|___|__
;;

Code: [Select]

(defun str_pathtemp ( / rr e f k)  (asserte "A131")
   (setq;|a16790|;   [b]HERE FIRST ENCRYPTED [/b]
rr nil          HERE FIRST ENCRYPTED   
f (if_try10 "C010" "dfn_var_isstr" (list  (if_try10 "C009" "getenv" (list  "TEMP"))))) (if (and  (not rr) f) (setq;|a17024|;
rr f)) (setq;|a17084|;
f (if (not f) (if_try10 "C012" "dfn_var_isstr" (list  (if_try10 "C011" "getenv" (list  "TMP")))) f)) (if (and  (not rr) f) (setq;|a17322|;
rr f)) (setq;|a17386|;
f (if_try10 "C014" "dfn_var_isstr" (list  (if_try10 "C013" "getvar" (list  "TEMPPREFIX"))))
f (if (not f) (if_try10 "C016" "dfn_var_isstr" (list  (if_try10 "C015" "getenv" (list  "TMP")))) f)) (setq;|a17676|;
f (if_try10 "C018" "dfn_var_isstr" (list  (if_try10 "C017" "getvar" (list  "XLOADPATH"))))
f (if (not f) (if_try10 "C020" "dfn_var_isstr" (list  (if_try10 "C019" "getenv" (list  "TMP")))) f)) (if (=  rr nil) (setq;|a18016|;
rr "")) (setq;|a18076|;
k (strlen rr)) (if (>  k 2) (progn (while (and  (>  k 1) (=  (if_try10 "C021" "substr" (list  rr k 1)) " ")) (setq;|a18384|;
rr (if_try10 "C022" "substr" (list  rr 1 (- k 1))))) (progn  (while (and  (>  k 1) (if_try10 "C023" "wcmatch" (list  rr "*[\\]*"))) (if (=  (if_try10 "C024" "substr" (list  rr k 1)) "\\") (setq;|a18808|;
rr (if_try10 "C027" "strcat" (list  (if_try10 "C025" "substr" (list  rr 1 (- k 1))) "/" (if_try10 "C026" "substr" (list  rr (+ k 1))))))) (setq;|a19104|;
k (- k 1)))) (setq;|a19192|;
c (if_try10 "C028" "substr" (list  rr (strlen rr)))) (if (/= c "/") (setq;|a19362|;
rr (if_try10 "C029" "strcat" (list  rr "/")))))) rr)

;; ,
;;/,`\
;;` | \____\\ 
;; _(      ) \
;; \-\~~~_|\  \
;;    \ `   \  `
;;    `     `