vlx 文件反编译软件

alin

我想60%的语句能还原，但这里一句那里一句，要重组起来比较困难。花那么大气力还不如自己写。

fawn_lgc

那就还原一两句来瞧瞧。不要重组起来，乱七八糟也可。

我的程序算法特殊，在别的程序中根本用不上，我能看得出来。

alin

后面有几种型钢的程序

前面部分有那么几句

(DEFUN C:CC ()
  (C:CALCULATOR)
)
(defun C:CALCULATOR
      (/  FAWN    DATALIST   ERROR
       FRONTLIST Y    RESULT     OLDRESULT
       BACKLIST CPLENG    MYERROR    MYERRORNUM
       FUNCLIST RUN    #MYERROR   ARITHMETIC
       FUNCTIONS LANK    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 "/") (/ ITEM1 ITEM2))
 (T (STATMYERROR "四则运算逻辑错误"
  )
)

(defun FUNCTIONS (FUNCTIONNAME  ITEM / DENO)
  (setq ITEM (* (/ ITEM 180.0) PI)))
(cond ((= FUNCTIONNAME "SIN") (sin ITEM)) 
      ((= FUNCTIONNAME "COS") (COS ITEM))
(cond (= FUNCTIONNAME "TG") (/ (sin ITEM) (COS ITEM))
(cond (= FUNCTIONNAME "CTG") (/ (COS ITEM) (SINITEM))
(cond (= FUNCTIONNAME "ARCTG") (ATAN ITEM)
(cond (= FUNCTIONNAME "LN") (/ (LOG ITEM) (LOG 10.0))
(cond (= FUNCTIONNAME "LOG") (LOG ITEM)

....

fawn_lgc

下面是前面部分源码，几乎完全一样。
请问其它部分为什么不能还原，能否发还原的初始文件上来，以便研究反“反编译”的有效方法。
不方便的话，发到我邮箱：fawn_lgc@sina.com

3. (defun c:cc ()
4.   (c:calculator)
5.   )
6. (defun c:calculator (/ fawn datalist error frontlist y result oldresult
7.          backlist CPleng myerror myerrorNum funclist run #myerror
8.      arithmetic functions plank channel AngSteel column functions2 DBMS;;函数
9.       listword block compute statmyerror inspect consDB letter DBS);;函数
10. (defun arithmetic(signname item1 item2)      ;;;四则运算
11.   (cond ((= signname "+")(+ item1 item2))
12.         ((= signname "-")(- item1 item2))
13. ((= signname "*")(* item1 item2))
14. ((= signname "/")(if (/= item2 0)(/ item1 item2)
15.       (progn(statmyerror "除数为零")0)))
16. (T(statmyerror "四则运算程序逻辑错误")nil)     ;;过程监控
17.   )
18. )
19. (defun functions (functionname item / deno)               ;;函数计算
20.     (if (or(= functionname "SIN")(= functionname "COS")
21.     (= functionname "TG")(= functionname "CTG"))
22.       (setq item (* (/ item 180.0)pi)))
23.   ;;;(setq aaa (sqrt(- 1.0 (expt (sin item) 2))))
24.   
25.     (cond ((= functionname "SIN")(sin item))
26.    ((= functionname "COS")(cos item))
27.    ((= functionname "TG")(setq deno (sqrt(- 1.0 (expt (sin item) 2))))
28.      (if(=  deno 0)(statmyerror "tg90°不存在")
29.        (/(sin item)(cos item))))
30.    ((= functionname "CTG")(setq deno (sqrt(- 1.0 (expt (cos item) 2))))
31.      (if(=  deno 0)(statmyerror "ctg0°不存在")
32.        (/(cos item)(sin item))))
33.    ((= functionname "ARCTG")(atan item))
34.    ((= functionname "LN")(log item))
35.    ((= functionname "LOG")(/(log item)(log 10.0)))
36.    ((= functionname "SQRT")(sqrt item))
37.    ((= functionname "D")(column item))
38.    ((= functionname "C")(channel item))
39.    ((= functionname "L")(AngSteel item))
40.    ((= functionname "PL")(plank item))
41.     )
42. )
43. (defun plank (item)   ;;钢板
44.   (* item 7.85)
45.   )
46. ……

(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)   ) ……

fawn_lgc

为什么我使用Fas-Disasm得到的是这样的结果？

fawn_lgc

为什么我使用Fas-Disasm得到的是这样的结果？

无痕

看上去好像不错嘛

lhg

不错!谈谈如何反编译呀..

lhg

把反编译软件发上来看看,谢谢!!!

小菜123

什么软件能反编译成这样？好奇中....我用FAS-DeCrypt搞了一天，什么都没看到