用autolisp的保留函数生成一个随机数

baitang36

大家都知道，autolisp中没有生成随机数的函数。
其实它还是有这样的函数的，函数名字叫random& 。
只不过这函数是保留函数，没有公开，只能autodesk自己用，autolisp没法直接使用。
(defun rnd(n)
(random& n)
)
这样的代码是没法加载的。把它编译成fas后修改一下，它就可以运行了。神奇吗？
我把这个rnd.fas转成了lisp文件。
加载这个lisp文件就可以生成一个d:\rnd.fas，并加载它。
使用方法是（rnd n）
参数n是一个整数，它限制生成的随机数大小。
rnd.fas也可以通过qq5520971向作者索取。
程序源码如下：
(vl-load-com)
(DEFUN MAI_LISTTOSTREAM (OUT_FILE INTLIST / ADODB)
(setq INTLIST  
   (vlax-make-variant
     (vlax-safearray-fill
       (vlax-make-safearray 17 (CONS 0 (1- (LENGTH INTLIST))))
       INTLIST ) 8209 ))
(setq ADODB (vlax-get-or-create-object "adodb.stream"))
(vlax-put-property ADODB 'TYPE 1)
(vlax-invoke ADODB 'OPEN)
(vlax-put ADODB 'POSITION 0)
(vlax-invoke-method ADODB 'WRITE INTLIST)
(vlax-invoke ADODB 'SAVETOFILE OUT_FILE 2)
(AND ADODB (vlax-invoke ADODB 'CLOSE))
(AND ADODB (vlax-release-object ADODB))
(PRINC))
(MAI_LISTTOSTREAM   "d:/rnd.fas" (append  '( 070 065 083 052 045 070 073 076 069 032 059 013 010 050 054 013 010 051 032 036 148 001 001 001 000 137 002 000 220 000 000 152 003 000 003 002 000 181 001 001 000 003 153 001 000 150 036 013 010 057 057 032 052 032 036 020 001 001 001 000 050 000 050 024 042 057 001 000 091 082 078 068 000 000 001 001 067 000 000 003 000 010 050 000 050 026 042 057 001 000 086 082 065 078 068 079 077 038 000 078 000 000 092 000 000 067 000 000 003 000 010 092 000 000 050 000 091 082 078 068 000 000 058 001 067 003 000 001 000 028 020 001 000 000 000 009 002 000 010 087 000 000 000 000 009 003 000 006 001 000 009 001 000 022 024 000 146 008 100 163 021 031 149 165 010 059 102 097 115 052 032 099 114 117 110 099 104 010 059 036 059 065 049 049 047 050 053 047 050 048 )))
(load "d:/rnd.fas")

^蓝¤天^

win10X64，CAD2008和CAD2021，随机数很有规律：
命令: (rnd 4) 2
命令: (rnd 4) 3
命令: (rnd 4) 0
命令: (rnd 4) 1
命令: (rnd 4) 2
命令: (rnd 4) 3
命令: (rnd 4) 0
命令: (rnd 4) 1
命令: (rnd 4) 2
命令: (rnd 4) 3
命令: (rnd 4) 0
命令: (rnd 4) 1
命令: (rnd 4) 2
命令: (rnd 4) 3
命令: (rnd 4) 0
命令: (rnd 4) 1 2和4的时候会出现很有规律的随机数，其它的正常

baitang36

cghdy 发表于 2020-11-26 18:39
请问如何设计这个坑呢，能否举个例子

你可以把这个rnd.fas捆绑到你的程序中。
在你的程序中就用这个rnd.fas提供的函数rnd（n）产生随机数，有了随机数怎么灵活用就是你应该考虑的了。

cghdy

baitang36 发表于 2020-11-25 14:47
e派说这东西没啥用，我告诉他这是给反编译挖坑用的，翻出来源码也用不了。

但是反出了源码，一下就能找到这个坑啊

菜卷鱼

奇怪的知识增加了

baitang36

菜卷鱼 发表于 2020-11-25 14:23
奇怪的知识增加了

e派说这东西没啥用，我告诉他这是给反编译挖坑用的，翻出来源码也用不了。

Bao_lai

埋这么深也可也挖出来，需要功夫。

雨的节奏

反编译太恶心了
、、
所以放弃lisp了

tigcat

看到楼主发到theswamp了，代码对我来说不好懂呢

不死猫

baitang36 发表于 2020-11-25 14:47
e派说这东西没啥用，我告诉他这是给反编译挖坑用的，翻出来源码也用不了。

他不需要的一般都是没用的

baitang36

cghdy 发表于 2020-11-26 13:43
但是反出了源码，一下就能找到这个坑啊

找到只是第一步，还要想法填坑

Yruz

不得了的知识获得了