[原创]基于网络的Lisp代码封装加密(自动生成远程页面)(完整Lisp源码+网页源码)

不死猫 · 发表于 2013-7-30 02:24:51

本帖最后由不死猫于 2013-7-30 23:05 编辑

首先确保你的电脑能访问明经通道论坛.

通过本地Lisp代码访问远程页面实现数学运算表达式的隐藏封装(重点是思路)
服务器会自动生成代码封装页面.
本地Lisp生成的Lisp函数包含远程访问代码.
每个远程页面访问代码几乎相同,但能够返回你自己定义的数学运算表达式的结果!

测试方法:

加载WebCal.lsp之后执行tt命令

其中
测试页码提供999个,大家尽量选用不容易用到的页码为好.
计算表达式中使用x作为变量
最终要封装的函数类似于
(defun mycal (x)
(/ (+ x 5) 2)
)
那么表达式就写 (x + 5) / 2 就行了

大家在测试的时候可能会发生同时访问相同页面的情况,因此加入了验证码(验证码为5位任意数字),如果同时访问,则会提示错误.此时换个其他的页码测试即可.

生成的函数加载后用 (MyCal 一个数字)进行测试
测试结果与表达式返回结果相同,实现隐藏数学表达式的目的.
此为测试版,尽量用简单的数学表达式吧.

网络Asp源码

lisp程序源码

自动生成的代码

(defun MyCal(x)
(setq Page 33)
(setq x (rtos x 2 6))
(while (/= x (setq x (vl-string-subst "!" "." x))))
(setq ie (Vlax-Create-Object "InternetExplorer.Application" ))
(Vlax-Invoke ie 'Navigate (strcat "http://nonsmall.mjtd.com/test/" (itoa Page) ".asp?x=" x))
(while (= -1 (Vlax-Get ie 'busy));等待网页打开
(repeat 1000 (1+ 1))
)
(setq all (vlax-get (vlax-get ie 'Document) 'all))
(setq outtext (vlax-get (vla-item all 0) "outerText"))
(if (/= (substr outtext 1 (strlen "666")) "666")
(progn
(print "校验码不同!有人与你使用相同测试页面,请输入其他不同页码再测试")
(Vlax-Invoke-Method ie 'Quit);关闭IE
(vlax-release-object ie)
(exit)
)
)
(setq text (substr outtext (1+ (strlen "666")) (- (strlen outtext) (strlen "666"))))
(Vlax-Invoke-Method ie 'Quit);关闭IE
(vlax-release-object ie)
(read text)
)

不死猫20130730晨

byghbcx · 发表于 2020-3-2 22:58:46

顶一下，可以进行高德或百度的地理编码服务吗？

上层建筑 · 发表于 2018-7-4 12:18:40

猫老师堪称LISP奇才

梦回唐朝 · 发表于 2018-6-23 23:56:32

支持猫老师，总玩高端

不死猫 · 发表于 2013-7-30 02:27:26

本帖最后由不死猫于 2013-7-30 02:31 编辑

用生成的代码进行数字的运算测试,就无法知道其中的运算过程了
此方法也适用于其他代码的转换.除了CAD交互其他的代码都差不多可以这样处理.

通过访问主页面传递表达式,由主页面自动生成子页面.
子页面包含表达式,提供给用户访问.
当然也可以用数据库来处理,效果更好.

smartstar · 发表于 2013-7-30 05:54:21

猫老师太敬业了，那么晚还不睡！顶起！

仲文玉 · 发表于 2013-7-30 07:50:48

坐个底板支持猫老师

自贡黄明儒 · 发表于 2013-7-30 08:01:11

支持猫老师

qcw911 · 发表于 2013-7-30 08:30:10

又来高级lisp！顶

不死猫 · 发表于 2013-7-30 09:48:57

恩最好设置IE为默认浏览器兼容性比较好
论坛上还有其他读取网页的方法都可以试试

fl202 · 发表于 2013-7-30 15:13:40

(defun MyCal(x)
(setq Page 678)
(setq x (rtos x 2 6))
(while (/= x (setq x (vl-string-subst "!" "." x))))
(setq ie (Vlax-Create-Object "InternetExplorer.Application" ))
(Vlax-Invoke ie 'Navigate (strcat "http://nonsmall.mjtd.com/test/" (itoa Page) ".asp?x=" x))
(while (= -1 (Vlax-Get ie 'busy));等待网页打开
(repeat 1000 (1+ 1))
)
(setq all (vlax-get (vlax-get ie 'Document) 'all))
(setq outtext (vlax-get (vla-item all 0) "outerText"))
(if (/= (substr outtext 1 (strlen "767")) "767")
(progn
(print "校验码不同!有人与你使用相同测试页面,请输入其他不同页码再测试")
(Vlax-Invoke-Method ie 'Quit);关闭IE
(vlax-release-object ie)
(exit)
)
)
(setq text (substr outtext (1+ (strlen "767")) (- (strlen outtext) (strlen "767"))))
(Vlax-Invoke-Method ie 'Quit);关闭IE
(vlax-release-object ie)
(read text)
)

??? 是说程序里的计算，要通过网络访问得到计算公式，然后再算，运行。运行完毕后删除计算公式？

这么复杂，给别人程序了，一断网，别人就不能用了？那要经常挨骂了。

飞诗(fsxm) · 发表于 2013-7-30 15:23:35

用Microsoft.XMLHTTP获取网页文字比ie要轻量级一些，启动速度可能更快

海盗曹 · 发表于 2013-7-30 16:16:56

支持猫老师，总玩高端

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

[【不死猫】] [原创]基于网络的Lisp代码封装加密(自动生成远程页面)(完整Lisp源码+网页源码)

本帖子中包含更多资源

评分

相关帖子

点评