龙城飞将36
发表于 2021-7-2 08:08:43
谢谢楼主分享!
184632152
发表于 2021-7-6 22:50:04
谢谢分享，好好学习一下
hh_lj007
发表于 2021-7-7 08:46:58
本帖最后由 hh_lj007 于 2021-7-7 11:22 编辑
感谢分享源码。
f4800
发表于 2021-7-8 08:23:55
[*];序列号混淆
[*](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:07
好东西学习一下吧
daiguafan
发表于 2021-7-13 22:28:24
赶紧来看看学习下
MUSIC-DIE
发表于 2021-7-23 00:44:47
asdsdawe双恰当丢我e
世井
发表于 2021-8-7 13:18:06
................
mitenickevin
发表于 2021-8-14 16:04:23
这么好的贴，学习了。
caojihe
发表于 2021-8-23 14:34:10
老大，你太强了，发布了这么好的东西！