Lisp加密程序

chpmould · 发表于 2011-9-14 22:12:51

本帖最后由 chpmould 于 2011-9-14 22:40 编辑

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

yanshengjiang · 发表于 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)

baitang36 · 发表于 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) )  ) )

ZMB7211 · 发表于 2017-12-29 11:21:18

怎么用啊；；；；；；；；；；；；；；；；

cabinsummer · 发表于 2011-9-14 22:34:58

在哪里？找不到

chpmould · 发表于 2011-9-14 22:41:36

不好意,刚才忘记了附件,现在补上了,请看一楼

xshrimp · 发表于 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

为何要加密啊？有什么用啊

sen.sam · 发表于 2011-9-15 09:55:49

楼主什么时候公布源码啊！

hao3ren · 发表于 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

chpmould · 发表于 2011-9-15 18:38:08

本帖最后由 chpmould 于 2011-9-16 20:37 编辑

xshrimp 发表于 2011-9-15 00:04
请输入单边偏移距离
选择对象: 找到 1 个
选择对象: 指定对角点: 找到 0 个

就是这个功能了，能谈谈你的思路吗? 能否将你破解的程序放上来我研究一下.

chpmould · 发表于 2011-9-15 18:40:06

hao3ren 发表于 2011-9-15 12:43
2340R32524620405179FG090G8F21002H0F02100F20981HDFG981H9SRFFD78G6DF7D5GG7F89G6684687G45G1FDF1
GF3570 ...

存储密码的文件很容易找到的，主要是如何破解程序的思路呢?

chpmould · 发表于 2011-9-15 23:32:34

有破解了的可以跟贴说说,你对此加密测试程序的看法

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

Lisp加密程序

本帖子中包含更多资源