TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: d2010 on May 14, 2020, 06:35:25 PM
-
0
Cadastru MERCUREANU STEFAN (https://youtu.be/jZFkw-SUeiU?t=115)
I
Cadastru NESTOR ANDREI FLORIN (https://youtu.be/cuBbQ6K45YY?t=20)
II
Cadastru DUMITRACHE CONSTANTIN (https://youtu.be/qLqzfF88UjU?t=38)
III
Cadastru NICULAE ALEXANDRU ciolpani (https://youtu.be/NcffU7XN44E?t=20)
(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
;; ==_________--' \
;; ~_|___|__
;;
(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)
;; ,
;;/,`\
;;` | \____\\
;; _( ) \
;; \-\~~~_|\ \
;; \ ` \ `
;; ` `