<p>我想60%的语句能还原，但这里一句那里一句，要重组起来比较困难。花那么大气力还不如自己写。</p>
<p>那就还原一两句来瞧瞧。不要重组起来，乱七八糟也可。</p><p>我的程序算法特殊，在别的程序中根本用不上，我能看得出来。</p><p></p>
<p>后面有几种型钢的程序</p><p>前面部分有那么几句</p><p>(DEFUN C:CC ()<br/> (C:CALCULATOR)<br/>)<br/>(defun C:CALCULATOR<br/> (/ FAWN DATALIST ERROR<br/> FRONTLIST Y RESULT OLDRESULT<br/> BACKLIST CPLENG MYERROR MYERRORNUM<br/> FUNCLIST RUN #MYERROR ARITHMETIC<br/> FUNCTIONS PLANK CHANNEL ANGSTEEL<br/> COLUMN FUNCTIONS2 DBMS LISTWORD<br/> BLOCK COMPUTE STATMYERROR<br/> INSPECT CONSDB LETTER DBS<br/> )<br/>(defun ARITHMETIC (SIGNNAME ITEM1 ITEM2)<br/> (cond ((= SIGNNAME "+") (+ ITEM1 ITEM2))<br/> ((= SIGNNAME "-") (- ITEM1 ITEM2))<br/> ((= SIGNNAME "*") (* ITEM1 ITEM2))<br/> ((= SIGNNAME "/") (/ ITEM1 ITEM2))<br/> (T (STATMYERROR "四则运算逻辑错误"<br/> )<br/>)</p><p>(defun FUNCTIONS (FUNCTIONNAME ITEM / DENO)<br/> (setq ITEM (* (/ ITEM 180.0) PI)))<br/>(cond ((= FUNCTIONNAME "SIN") (sin ITEM)) <br/> ((= FUNCTIONNAME "COS") (COS ITEM))<br/>(cond (= FUNCTIONNAME "TG") (/ (sin ITEM) (COS ITEM))<br/>(cond (= FUNCTIONNAME "CTG") (/ (COS ITEM) (SINITEM))<br/>(cond (= FUNCTIONNAME "ARCTG") (ATAN ITEM)<br/>(cond (= FUNCTIONNAME "LN") (/ (LOG ITEM) (LOG 10.0))<br/>(cond (= FUNCTIONNAME "LOG") (LOG ITEM)</p><p>....</p>
本帖最后由 作者 于 2008-5-30 8:48:19 编辑
下面是前面部分源码，几乎完全一样。
请问其它部分为什么不能还原，能否发还原的初始文件上来，以便研究反“反编译”的有效方法。
不方便的话，发到我邮箱：fawn_lgc@sina.com
(defun c:cc ()
(c:calculator)
)
(defun c:calculator (/ fawn datalist error frontlist y result oldresult
backlist CPleng myerror myerrorNum funclist run #myerror
arithmetic functions plank channel AngSteel column functions2 DBMS;;函数
listword block compute statmyerror inspect consDB letter DBS);;函数
(defun arithmetic(signname item1 item2) ;;;四则运算
(cond ((= signname "+")(+ item1 item2))
((= signname "-")(- item1 item2))
((= signname "*")(* item1 item2))
((= signname "/")(if (/= item2 0)(/ item1 item2)
(progn(statmyerror "除数为零")0)))
(T(statmyerror "四则运算程序逻辑错误")nil) ;;过程监控
)
)
(defun functions (functionname item / deno) ;;函数计算
(if (or(= functionname "SIN")(= functionname "COS")
(= functionname "TG")(= functionname "CTG"))
(setq item (* (/ item 180.0)pi)))
;;;(setq aaa (sqrt(- 1.0 (expt (sin item) 2))))
(cond ((= functionname "SIN")(sin item))
((= functionname "COS")(cos item))
((= functionname "TG")(setq deno (sqrt(- 1.0 (expt (sin item) 2))))
(if(=deno 0)(statmyerror "tg90°不存在")
(/(sin item)(cos item))))
((= functionname "CTG")(setq deno (sqrt(- 1.0 (expt (cos item) 2))))
(if(=deno 0)(statmyerror "ctg0°不存在")
(/(cos item)(sin item))))
((= functionname "ARCTG")(atan item))
((= functionname "LN")(log item))
((= functionname "LOG")(/(log item)(log 10.0)))
((= functionname "SQRT")(sqrt item))
((= functionname "D")(column item))
((= functionname "C")(channel item))
((= functionname "L")(AngSteel item))
((= functionname "PL")(plank item))
)
)
(defun plank (item) ;;钢板
(* item 7.85)
)
……
<p>为什么我使用Fas-Disasm得到的是这样的结果？</p><p></p>
<p>为什么我使用Fas-Disasm得到的是这样的结果？</p><p></p>
看上去好像不错嘛
不错!谈谈如何反编译呀..
把反编译软件发上来看看,谢谢!!!
什么软件能反编译成这样？好奇中....我用FAS-DeCrypt搞了一天，什么都没看到