一直关注 持续支持
支持，期待有更大的进展
楼主很厉害，支持一下。我以前也看过类似的贴子，是用python解密的，也贴出来供大家研究啊！import os
def mixor(datapl, mipl):
for a in datapl:
if len(mipl) < len(datapl) + 1:
mipl += mipl
jiemapl = ""
for b inlist(range(len(datapl))):
x=datapl
y=mipl
z=mipl
newpl = datapl ^ mipl ^ mipl
jiemapl += chr(newpl)
ret = jiemapl
return ret
fr = open('tmp.fas', 'rb')
data = fr.read()
fr.close()
headflag = 'FAS4-FILE ; Do not change it!'
aa = data.find(headflag.encode('utf-8'))
if (aa == -1):
print
'error in find FAS4'
# sleep(4)
data = data
i1 = data.find((').encode('utf-8'))
tmp = data
ee = tmp.find(('\r').encode('utf-8'))
tlst = tmp[: ee]
dfg = int(tlst)
toupl = data[: i1 + 1]
if (dfg != 0):
ee1 = data
i1sta = i1 + 1
de13 = ee1.find(('\r').encode('utf-8'))
da0lst = ee1[: de13]
num = int(da0lst)
i1end = i1sta + num
i2 = i1end + 1
strdat0 = data
tmpl = data
i3 = i2 + tmpl.find((').encode('utf-8')) + 1;
tmpl1 = data
de32 = tmpl1.find((' ').encode('utf-8'))
da1lst = tmpl1[: de32]
num1 = int(da1lst)
i3end = i3 + num1
strdat1 = data
print(i3)
keylen = data
keyend = i3end + keylen + 1
keylst = data
lastlst = data
zjlst = data
## nstrlst0 = mixor(strdat0, keylst)
nstrlst1 = mixor(strdat1, keylst)
fpl1 = str(toupl) + str(strdat0) + str(zjlst) + nstrlst1 + str(keylen) + str(keylst) + str(lastlst)
fw = open('a11.lsp', 'wb')
fw.write(nstrlst1.encode('utf-8'))
fw.close()
baitang36 发表于 2018-9-8 08:28
研究了几天，成果向大家汇报一下，欢迎感兴趣的朋友和我一起研究，我的qq5520971。
乐趣存在于过程中，也 ...
应该也是利用栈的技术来执行的。
之前有个lsp，但是破解不全
springwillow 发表于 2018-9-10 08:55
应该也是利用栈的技术来执行的。
应该是用的栈技术，09 0A可能就是操作栈，09xx06yy，就是（setq yy xx)
8142556 发表于 2018-9-10 09:17
之前有个lsp，但是破解不全
有破解之前的文件吗？
springwillow 发表于 2018-9-10 08:40
楼主很厉害，支持一下。我以前也看过类似的贴子，是用python解密的，也贴出来供大家研究啊！
不错的东西
vlisp的解释执行应该是由vl.crx完成的，有能力的话可以逆一下。
springwillow 发表于 2018-9-10 12:58
vlisp的解释执行应该是由vl.crx完成的，有能力的话可以逆一下。
有点大，600k左右的文件，工程量巨大。