明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 10888|回复: 22

Lisp加密程序

  [复制链接]
发表于 2011-9-14 22:12:51 | 显示全部楼层 |阅读模式
本帖最后由 chpmould 于 2011-9-14 22:40 编辑

刚试着写了一个简单的Lisp加密测试程序,希望各位有兴趣的来破解试试...
(程序是一个线工具,CAD中的命令为: TEST)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2021-11-23 23:47:34 | 显示全部楼层
一晃很多年过去了  不知道楼主还来明经不
(DEFUN C:TEST        ()
    (SETVAR "cmdecho" 0)
    (OYEAR_TIME)
    (SMWINWT)
    (SMWINRD)
    (setq Z01 (DEG->BIN (ATOI S01)))
    (setq Z02 (DEG->BIN (ATOI S02)))
    (setq Z03 (DEG->BIN (ATOI S03)))
    (setq Z04 (DEG->BIN (ATOI S04)))
    (setq Z05 (DEG->BIN (ATOI S05)))
    (setq Z06 (DEG->BIN (ATOI S06)))
    (setq Z07 (DEG->BIN (ATOI S07)))
    (setq Z08 (DEG->BIN (ATOI S08)))
    (if        (= N01 Z01)
      (PROGN
        (setq N01 nil)
        (setq Z01 nil)
        (if (= N02 Z02)
          (PROGN
            (setq N02 nil)
            (setq Z02 nil)
            (if        (= N03 Z03)
发表于 2019-4-18 08:43:30 | 显示全部楼层
(defun PASSTEST(/ DIST OBJ )
(setq DIST  (GETDIST  (STRCAT "
请输入单边偏移距离<"  (RTOS  (GETVAR "OFFSETDIST" )  )  ">" )  ) )

(if  (NULL DIST )  
(progn (setq DIST  (GETVAR "offsetdist" ) )
INT
)(progn  (SETVAR "offsetdist" DIST )

(if  (SSGET '(0 "Arc,Circle,Ellipse,*Line" ) )  
(progn (while (setq OBJ  (collect-next nil))
nil
(vla-Offset OBJ DIST )
)
(collect-release  (vla-Offset OBJ  (* DIST 255 )  ) )
OBJ
)(progn  (vlax-release-object OBJ )
)
(collect-init  (vla-get-ActiveSelectionSet  (vla-get-ActiveDocument  (vlax-get-acad-object) )  ) )
发表于 2017-12-29 11:21:18 | 显示全部楼层
怎么用啊 ;;;;;;;;;;;;;;;;
发表于 2011-9-14 22:34:58 | 显示全部楼层
在哪里?找不到
 楼主| 发表于 2011-9-14 22:41:36 | 显示全部楼层
不好意,刚才忘记了附件,现在补上了,请看一楼
发表于 2011-9-15 00:04:13 | 显示全部楼层
本帖最后由 xshrimp 于 2011-9-15 00:05 编辑

请输入单边偏移距离<-1.0>
选择对象: 找到 1 个
选择对象: 指定对角点: 找到 0 个

c:\\WINDOWS\\msystem.dll
双向偏移功能
发表于 2011-9-15 08:31:10 | 显示全部楼层
为何要加密啊?有什么用啊
发表于 2011-9-15 09:55:49 | 显示全部楼层
楼主什么时候公布源码啊!
发表于 2011-9-15 12:43:05 | 显示全部楼层
2340R32524620405179FG090G8F21002H0F02100F20981HDFG981H9SRFFD78G6DF7D5GG7F89G6684687G45G1FDF1
GF3570673602205F23DET54C0SDF0ETR0R68067G85G01765272DG05D706G5D60H6750H7J168GH7JHG9877FD9GFH2
KVFG2R570616108079R5FSD6G00FD890HFG9830JH08J092GF05G67GH0G2780227FG08H6F798H6G871F3GHJ1J1245
ERT2R10Y1G4241006535FG7F08HGF807H6217D12GDF6079F7826F7F059HGF6H0GR65SA0D4AS564SJ921FD6D6GFD2
DFG0Y2201T0Y1450236150F7GFD70G5SD45F0GFHG12J80HGJ9J0U7FD152G47F63F0G720H6H901805HSF645RF78H8
FDG3R1Y0446106502052335G0036F7652G046G27TF90878021HF07G896SDF8H56FD1HH803GFH671453D4FG431FRE
346021SEF15257524075G16F0D7G5F4RG0FD917G660D7F8G601DF78G20FD84GDFG30G0FG15430F54HH8GFHJ4HGJH
540657162FGG01F6HF2GFU7619454J51K50154K240KJ2342541546046564G53604H6540FD96S4G5FHHD321R4E56R
F0GTE0WRE50706781005469H7F607D8G00g6FDH21900H89D0FS605G43F35D4F42D0FGH6DFG674DG45DS2V41F6GDF
0FD0FRE0541107582650DF54D9042854G527428091DS4G18D9F41DF89492FDS4H5908GDFS54HFHFGJD3F1465F6D5
FG3050D613G25F0G635F022FDH14FJ04156GF1G0256D10451R02FG105FD651S1DG410G65FD12G65ASDG121DF3E4T
1G2H211165GGH2G156HGJ62HG11J2HG1J132FGR6E5T213GR1E6FDS62ER65T2RE6FG52RETR6Y213WE1311E3TGEQR5
65FG60054G121G65F1DG65FD41H615DS112F1225E4FR16GHF65G7408R9R2274E091F011C9123FE3R6FDD65G1RF3R
54GF0D3536413GDF52G41DFHG405FDG2DS41F1D20S401G78FGD02S564FG1FD506S87E2R7F4SD6FG44VF652G1DFHY
2DF4D40G150F43S1DF5R224EG4FA4FERW2Q04J1H3KT248F74SD0F7HJ074F1B6F5H4FDH013S40D0G64G46SD4FR5FD
GVFGR025762023709R252FSD6G00FD297HFG92J10G8J09GF75G6733GHFG7807FG8H6F792H6G087S7D849REGG1FD3
ERTR1Y2G4150416535110FG7F008HGF8207H0367D215G0DF679F17860F7F591GF6HGR615SAD24AS50064SJ9F32F4
FG00522D61G06231053FG6311052F5633DH014FJ45602113G0G36D145RFG1251F1D65S3DG241G65FD122G65ASDG2
1G20H6352GGH23G56HGJ3602HG1J2HG301J3232F01G3R61E53T121G3R0E26FDS1623ER6335T32RE6FG5RETR6Y2SD
052335G0036F7652G046G27TF908046564G53604H6540FD96S41G5FSD6G00FD890HFG981116GHF65G7408R9F1225
 楼主| 发表于 2011-9-15 18:38:08 | 显示全部楼层
本帖最后由 chpmould 于 2011-9-16 20:37 编辑
xshrimp 发表于 2011-9-15 00:04
请输入单边偏移距离
选择对象: 找到 1 个
选择对象: 指定对角点: 找到 0 个


就是这个功能了,能谈谈你的思路吗? 能否将你破解的程序放上来我研究一下.
 楼主| 发表于 2011-9-15 18:40:06 | 显示全部楼层
hao3ren 发表于 2011-9-15 12:43
2340R32524620405179FG090G8F21002H0F02100F20981HDFG981H9SRFFD78G6DF7D5GG7F89G6684687G45G1FDF1
GF3570 ...

存储密码的文件很容易找到的,主要是如何破解程序的思路呢?
 楼主| 发表于 2011-9-15 23:32:34 | 显示全部楼层
有破解了的可以跟贴说说,你对此加密测试程序的看法
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-23 17:51 , Processed in 0.187087 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表