（2019.5.27上传优化版示例-仅供参考）全盘符选择注册加密代码(2017年9月4日 16:20...

lsaizm1314 · 发表于 2021-7-1 22:16

学习了，谢谢分享。。。。

龙城飞将36 · 发表于 2021-7-2 08:08

谢谢楼主分享!

184632152 · 发表于 2021-7-6 22:50

谢谢分享，好好学习一下

hh_lj007 · 发表于 2021-7-7 08:46

本帖最后由 hh_lj007 于 2021-7-7 11:22 编辑

感谢分享源码。

f4800 · 发表于 2021-7-8 08:23

[size=11.115pt]

;序列号混淆
(defun sernumConfused(str / code lennum n strlst)
(setq strlst (vl-string->list str) lennum (length strlst) n 0 code "")
(foreach x strlst
(setq code
(strcat code
(cond
((< n 1 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 2 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 3 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 4 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 5 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 6 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 7 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 8 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 9 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 10 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 11 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 12 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 12 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 14 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 15 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
((< n 16 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
(T (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
)
)
)
(setq n (1+ n))
)
code
)

大师这段代码能解释下么？
有时候得到的字符串一样

晴空O_o · 发表于 2021-7-12 11:55

好东西学习一下吧

daiguafan · 发表于 2021-7-13 22:28

赶紧来看看学习下

MUSIC-DIE · 发表于 2021-7-23 00:44

asdsdawe双恰当丢我e

世井 · 发表于 2021-8-7 13:18

................

mitenickevin · 发表于 2021-8-14 16:04

这么好的贴，学习了。

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

[源码] （2019.5.27上传优化版示例-仅供参考）全盘符选择注册加密代码(2017年9月4日 16:20...

浏览过的版块