chr 函数的参数

nzl1116 · 发表于 2011-3-17 19:25:04

这个函数的参数可以是任何一个整数，对应于返回值，存在一个周期，0----255，也就是说整数-256、0、256、512......它们返回的值都是"\000"；在0----255这个周期内，从129开始到254，对应的字符是 "y，只带半个引号，用type检验，它也是一
个字符串，什么东西一个字符只能算半个呢？首先想到的就是汉字，因为一个汉字占两个字符。也就是说，从129----254之间，任选两个整数，将它们返回的字符合并（用strcat），就能得到一个汉字。当然，还有其他一些东西，这好象就是windows
里面的字符映射表。综合以上两点，所谓的加密，是不是就是把源码先转成整数，通过一定的运算，再转成字符，就成了乱码了呢？

Gu_xl · 发表于 2011-3-17 20:01:51

本帖最后由 Gu_xl 于 2011-3-17 21:56 编辑

回复 nzl1116 的帖子

;;;差不多是这个意思，提供一对加密和解密的函数供参考
;;;加密函数
(defun crypt (min_wen mi_yao / min_wen_lst mi_yao_lst mi_wen mi_wen_si)
(if (= 'STR (type min_wen))
(SETQ min_wen (vl-string->list min_wen))
)
(if (= 'STR (type mi_yao))
(SETQ mi_yao (vl-string->list mi_yao))
)
(while (< (length mi_yao) (length min_wen))
(setq
mi_yao (APPEND mi_yao mi_yao) )
)
(setq min_wen_lst min_wen)
(setq mi_yao_lst mi_yao)
(setq i% 0
mi_wen nil)
(repeat (length min_wen_lst)
(progn
(setq mi_wen_si (boole 6 (nth i% min_wen_lst) (nth i% mi_yao_lst)))
(setq mi_wen (append mi_wen (list mi_wen_si)))
(setq i% (1+ i%))
);_progn
);_repeat
(VL-LIST->STRING mi_wen )
)
;;;解密函数
(defun uncrypt (mi_wen mi_yao / min_wen)
(setq mi_yao (vl-string->list mi_yao))
(setq min_wen (crypt (VL-STRING->LIST mi_wen) mi_yao))
)
;;;加密测试
;(setq cryptText (crypt "fdfgdf的法国德国的法国大范甘迪\fgfg\n大哥大哥" "测试密码"))
;;;返回： "詥Шw/\005Js.v\036{\021\007&}|z&v\030\005Tr\036v\023詤繾0d%_AZ-"
;;;解密测试
;(uncrypt cryptText "测试密码")
;;;返回："fdfgdf的法国德国的法国大范甘迪fgfg\n大哥大哥"

;;;差不多是这个意思，提供一对加密和解密的函数供参考 
;;;加密函数 
(defun crypt (min_wen mi_yao / min_wen_lst mi_yao_lst mi_wen mi_wen_si) 
  (if (= 'STR (type min_wen)) 
  (SETQ min_wen (vl-string->list min_wen)) 
    ) 
  (if (= 'STR (type mi_yao)) 
    (SETQ mi_yao (vl-string->list mi_yao)) 
        ) 
  (while (< (length mi_yao) (length min_wen)) 
    (setq 
      mi_yao (APPEND  mi_yao mi_yao)    ) 
  ) 
  (setq min_wen_lst min_wen) 
  (setq mi_yao_lst mi_yao) 
  (setq i% 0 
    mi_wen nil) 
  (repeat (length min_wen_lst) 
     (progn 
       (setq mi_wen_si (boole 6 (nth i% min_wen_lst) (nth i% mi_yao_lst))) 
       (setq mi_wen (append mi_wen (list mi_wen_si))) 
       (setq i% (1+ i%)) 
       );_progn 
    );_repeat    
(VL-LIST->STRING mi_wen ) 
  ) 
;;;解密函数 
(defun uncrypt (mi_wen mi_yao / min_wen) 
  (setq mi_yao (vl-string->list mi_yao)) 
  (setq min_wen (crypt (VL-STRING->LIST mi_wen) mi_yao)) 
  ) 
;;;加密测试 
;(setq cryptText (crypt "fdfgdf的法国德国的法国大范甘迪\fgfg\n大哥大哥" "测试密码")) 
;;;返回： "詥Шw/\005Js.v\036{\021\007&}|z&v\030\005Tr\036v\023詤繾0d%_AZ-" 
;;;解密测试 
;(uncrypt cryptText "测试密码") 
;;;返回："fdfgdf的法国德国的法国大范甘迪fgfg\n大哥大哥"

zhongys · 发表于 2011-3-17 21:45:00

真是比较高

nzl1116 · 发表于 2011-3-18 20:11:35

不知道谁研究过.fas和.vlx的乱码没有？？？

账号		自动登录	找回密码
密码			注册