分享一个生成随机字符串的源码

kozmosovia

随机质量差的很

baitang36

kozmosovia 发表于 2024-10-31 10:24
随机质量差的很

你没仔细看程序，第一个字母是每10秒换一次，第6个字符是1毫秒换一次。这是故意这么做的。
发布源码的目的是授人以渔，代码本身没多少技术含量，喜欢的人可以随意改，不喜欢无视即可。
你可以随意改自己不满意的地方。
猫老师也写过这个，代码如果发出来会吓着你的。
tryhi问为什么重复的内容不改成一个函数，也是为了这个，你可以随意去修改它。

kozmosovia

不算随机数的生成随机字符串

2. (Defun RandomStr (len / _Core IDX PWD RTN TXT)
   
3.   (Defun _Core ()
   
4.     ;;;; GUID只保留数字
   
5.     (vl-list->string
   
6.       (vl-remove-if-not
   
7.   (function (lambda (x) (< 47 x 58)))
   
8.   (vl-string->list
   
9.     (vlax-get (vlax-create-object "Scriptlet.TypeLib") "GUID")
   
10.   )
    
11.       )
    
12.     )
    
13.   )
    
14.   ;;; 生成ASCII=48~122的所有字符
    
15.   (setq idx 47)
    
16.   (while (<= (setq idx (1+ idx)) 122)
    
17.     (setq pwd (cons (chr idx) pwd))
    
18.   )
    
19.   ;;; 去除不需要的特殊字符
    
20.   (foreach abc '("/" "[" "]" "=" ":" ";" "`" "^" "\" "?" ">" "<" "@")
    
21.     (setq pwd (vl-remove abc pwd))
    
22.   )
    
23.   (setq  idx (length pwd)
    
24.   txt (_Core)
    
25.   rtn ""
    
26.   )
    
27.   ;;;  利用GUID创建长度为（4*指定长度）的数字字符串
    
28.   (while (< (strlen txt) (* 4 len))
    
29.     (setq txt (strcat txt (_Core)))
    
30.   )
    
31.   (repeat len
    
32.     ;;;每4个数字转成<9999的整数对字符表长度取模，根据模数据提取对应的字符
    
33.     (setq rtn (strcat rtn
    
34.           (nth (rem (atoi (substr txt 1 4)) idx)
    
35.          pwd
    
36.           )
    
37.         )
    
38.     txt (substr txt 5)
    
39.     )
    
40.   )
    
41.   rtn
    
42. )
    
43. (repeat 11 (princ (strcat "\n " (RandomStr 20))))

(Defun RandomStr (len / _Core IDX PWD RTN TXT)<br />   (Defun _Core ()<br />     ;;;; GUID只保留数字<br />     (vl-list->string<br />       (vl-remove-if-not<br />   (function (lambda (x) (< 47 x 58)))<br />   (vl-string->list<br />     (vlax-get (vlax-create-object "Scriptlet.TypeLib") "GUID")<br />   )<br />       )<br />     )<br />   )<br />   ;;; 生成ASCII=48~122的所有字符<br />   (setq idx 47)<br />   (while (<= (setq idx (1+ idx)) 122)<br />     (setq pwd (cons (chr idx) pwd))<br />   )<br />   ;;; 去除不需要的特殊字符<br />   (foreach abc '("/" "[" "]" "=" ":" ";" "`" "^" "\" "?" ">" "<" "@")<br />     (setq pwd (vl-remove abc pwd))<br />   )<br />   (setq  idx (length pwd)<br />   txt (_Core)<br />   rtn ""<br />   )<br />   ;;;  利用GUID创建长度为（4*指定长度）的数字字符串<br />   (while (< (strlen txt) (* 4 len))<br />     (setq txt (strcat txt (_Core)))<br />   )<br />   (repeat len<br />     ;;;每4个数字转成<9999的整数对字符表长度取模，根据模数据提取对应的字符<br />     (setq rtn (strcat rtn<br />           (nth (rem (atoi (substr txt 1 4)) idx)<br />          pwd<br />           )<br />         )<br />     txt (substr txt 5)<br />     )<br />   )<br />   rtn<br /> )<br /> (repeat 11 (princ (strcat "\n " (RandomStr 20))))

Bao_lai

kozmosovia 发表于 2024-10-31 10:24
随机质量差的很

要感谢盛老师分享，如果有更好的可以发出来，也是个思路，倒不必这样说。