vlx 文件反编译软件

cnks

alin发表于2008-5-28 9:56:00不是我的东西，你可以把一个藏有密码的小FAS程序传上来摆擂台，虽然我也没什么把握。

摆擂台好啊，不知道明总是否愿意，赢了能不能给点明经币？

无痕

发一个fas，用于编辑多义线顶点的，谁来试试反编译

alin

无版，这个程序好像不能正确运行

alin

无痕发表于2008-5-28 12:48:0041168发一个fas，用于编辑多义线顶点的，谁来试试反编译

只有60%可读，其余的自己凑合

2. ;;;(defun main
3. ;;;FasStringtables 0
4. ;;;FasStringtables 1
5. ;;;(defun main
6. ;;;nil
7. ;;;(PRINC "\nplve====lwpolyline vert edit,Ôö¼Ó/ɾ³ýplÏ߶¥µã v1.0--------lxx.2001.7")
8. ;;;(setq C:PLVE <Func> C:PLVE)
9. ;;;(vl-ACAD-defun C:PLVE)
10. ;;;C:PLVE
11. ;;;(setq EPLV <Func> EPLV)
12. ;;;EPLV
13. ;;;(setq APLV <Func> APLV)
14. (defun C:PLVE (/ OS KEY)
15.   (PRINC
16.     "\nplve====lwpolyline vert edit,Add/Erase Vertex----------lxx.2001.7"
17.   )
18.   (SETVAR "cmdecho" 0)
19.   (INITGET "A E")
20.   (setq OS (GETVAR "osmode"))
21.   (setq KEY (GETKWORD "\n A-Add/<E-Erase>:"))
22.   (if (= KEY nil)
23.     (setq KEY "E")
24.   )
25. ;;;(cond (= Then OR Else (STRCASE KEY)) (
26.   (cond ((= "A" (STRCASE KEY))
27.   (APLV)
28. )
29. ((= "E" (STRCASE KEY))
30.   (EPLV)
31. )
32.   )
33.   (SETVAR "osmode" OS)
34. )
36. (defun EPLV ()
37.   (command "osnap")
38.   (command "end")
39.   (setq PTEND (GETPOINT "\nPick a vertex:"))
40. ;;;nil
41.   (setq ENL (NENTSELP PTEND))
42.   (setq ENT (CAR ENL))
43.   (setq ENTL (ENTGET ENT))
44.   (setq PTL (CONS 10 (LIST (CAR PTEND) (CADR PTEND))))
45.   (setq L2 (CDDDDR (MEMBER PTL ENTL)))
46.   (setq L1 (REVERSE (CDR (MEMBER PTL (REVERSE ENTL)))))
47.   (setq ENTL (APPEND L1 L2))
48.   (PRINT ENT)
49.   (PRINT ENTL)
50.   (ENTMOD ENTL)
51. )
53. (defun APLV ()
54.   (command "_.osnap")
55.   (command "nea")
56.   (setq PTNEA (GETPOINT "\nSpecify the position to add new vertex:"))
57.   (setq ENL (NENTSELP PTNEA))
58.   (setq ENT (CAR ENL))
59.   (setq ENTL (ENTGET ENT))
60.   (setq PTEND (OSNAP PTNEA "_end"))
61.   (setq PTCEN (OSNAP PTNEA "_cen"))
62.   (setq PTL (CONS 10 (LIST (CAR PTEND) (CADR PTEND))))
63.   (setq N0 (LENGTH ENTL))
64.   (setq N (LENGTH (MEMBER PTL ENTL)))
65.   (setq N (- N0 N))
66.   (setq PTNEXTL (NTH (+ N 4) ENTL))
67.   (setq PTNEXT (CDR PTNEXTL))
68.   (IF (AND (<= (VLAX-CURVE-GETPARAMATPOINT ENT PTNEA)
69.         (VLAX-CURVE-GETPARAMATPOINT ENT PTEND)
70.     )
71.     (NOT (AND (< (DISTANCE PTNEA PTEND) 0.0001)
72.        (EQUAL (VLAX-CURVE-GETENDPARAM ENT)
73.        (VLAX-CURVE-GETPARAMATPOINT ENT PTEND)
74.        0.0001
75.        )
76.   )
77.     )
78.       )
79.     (setq N (- N 4))
80.   )
81. ;;;    ((= 210 (CAR PTNEXTL))
82. ;;;     (cond
83. ;;;       ((INTERS PTEND PTNEXT PTNEA PTNEA)
84. ;;; (setq R1 (DISTANCE PTEND PTCEN))
85. ;;; (setq R2 (DISTANCE PTNEXT PTCEN))
86. ;;; (setq R3 (DISTANCE PTNEA PTCEN))
87. ;;; (cond
88. ;;;   ((OR
89. ;;;      (EQUAL R1 R2 0.0001)
90. ;;;      (EQUAL R2 R3 0.0001)
91. ;;;      (EQUAL R1 R3 0.0001)
92. ;;;    )
93. ;;;    (PRINC)
94. ;;;   )
95. ;;;   (T
96. ;;;    (PRINC)
97. ;;;   )
98. ;;; )
99. ;;;       )
100. ;;;     )
101. ;;;    )
102. ;;;  )
103. ;;;;;;  (setq N (- N 4))
104. ;;;  (setq E40 (CONS 40 (CDR (NTH (+ N 2) ENTL))))
105. ;;;  (setq E41 (CONS 41 (CDR (NTH (+ N 5) ENTL))))
106. ;;;  (setq E42 (NTH (+ N 3) ENTL))
107.   (setq E40 (CONS 40 0.0))
108.   (setq E41 (CONS 41 0.0))
109.   (IF (OR (AND (< (DISTANCE PTNEA PTEND) 0.0001)
110.     (EQUAL (VLAX-CURVE-GETSTARTPARAM ENT)
111.     (VLAX-CURVE-GETPARAMATPOINT ENT PTEND)
112.     0.0001
113.     )
114.           )
115.    (AND (< (VLAX-CURVE-GETPARAMATPOINT ENT PTEND)
116.     (VLAX-CURVE-GETPARAMATPOINT ENT PTNEA))
117. ;;;        (NOT PTCEN)
118.         (OSNAP PTEND "_cen")
119.    )
120.       )
121.     (setq E42 (CONS 42 0.0))
122.     (setq E42 (NTH (1- N) ENTL))
123.   )
124.   (IF (= (setq
125.     NPT (GETPOINT PTNEA
126.     "\nNew vertex <Origin picked point>:"
127.         )
128.   )
129.   NIL
130.       )
131.     (setq NPT PTNEA)
132.   )
133.   (setq
134.     NPTL (APPEND (LIST (CONS 10 (LIST (CAR NPT) (CADR NPT)))
135.          E40
136.          E41
137.          E42
138.    )
139.   )
140.   )
141.   (setq L1 nil)
142.   (setq L2 nil)
143.   (setq I 0)
144.   (FOREACH X ENTL
145.     (IF (>= (+ N 3) I)
146.       (setq L1 (CONS X L1))
147.       (setq L2 (CONS X L2))
148.     )
149.     (setq I (1+ I))
150.   )
151.   (setq L1 (REVERSE L1))
152.   (setq L2 (REVERSE L2))
153.   (setq ENTL (APPLY 'APPEND (LIST L1 NPTL L2)))
154.   (ENTMOD ENTL)
155. )

;;;(defun main ;;;FasStringtables 0 ;;;FasStringtables 1 ;;;(defun main ;;;nil ;;;(PRINC "\nplve====lwpolyline vert edit,&Ocirc;&ouml;&frac14;&Oacute;/&Eacute;&frac34;&sup3;&yacute;pl&Iuml;&szlig;&para;&yen;&micro;&atilde; v1.0--------lxx.2001.7") ;;;(setq C:PLVE <Func> C:PLVE) ;;;(vl-ACAD-defun C:PLVE) ;;;C:PLVE ;;;(setq EPLV <Func> EPLV) ;;;EPLV ;;;(setq APLV <Func> APLV) (defun C:PLVE (/ OS KEY)   (PRINC     "\nplve====lwpolyline vert edit,Add/Erase Vertex----------lxx.2001.7"   )   (SETVAR "cmdecho" 0)   (INITGET "A E")   (setq OS (GETVAR "osmode"))   (setq KEY (GETKWORD "\n A-Add/<E-Erase>:"))   (if (= KEY nil)     (setq KEY "E")   ) ;;;(cond (= Then OR Else (STRCASE KEY)) (   (cond ((= "A" (STRCASE KEY))   (APLV) ) ((= "E" (STRCASE KEY))   (EPLV) )   )   (SETVAR "osmode" OS) ) (defun EPLV ()   (command "osnap")   (command "end")   (setq PTEND (GETPOINT "\nPick a vertex:")) ;;;nil   (setq ENL (NENTSELP PTEND))   (setq ENT (CAR ENL))   (setq ENTL (ENTGET ENT))   (setq PTL (CONS 10 (LIST (CAR PTEND) (CADR PTEND))))   (setq L2 (CDDDDR (MEMBER PTL ENTL)))   (setq L1 (REVERSE (CDR (MEMBER PTL (REVERSE ENTL)))))   (setq ENTL (APPEND L1 L2))   (PRINT ENT)   (PRINT ENTL)   (ENTMOD ENTL) ) (defun APLV ()   (command "_.osnap")   (command "nea")   (setq PTNEA (GETPOINT "\nSpecify the position to add new vertex:"))   (setq ENL (NENTSELP PTNEA))   (setq ENT (CAR ENL))   (setq ENTL (ENTGET ENT))   (setq PTEND (OSNAP PTNEA "_end"))   (setq PTCEN (OSNAP PTNEA "_cen"))   (setq PTL (CONS 10 (LIST (CAR PTEND) (CADR PTEND))))   (setq N0 (LENGTH ENTL))   (setq N (LENGTH (MEMBER PTL ENTL)))   (setq N (- N0 N))   (setq PTNEXTL (NTH (+ N 4) ENTL))   (setq PTNEXT (CDR PTNEXTL))   (IF (AND (<= (VLAX-CURVE-GETPARAMATPOINT ENT PTNEA)         (VLAX-CURVE-GETPARAMATPOINT ENT PTEND)     )     (NOT (AND (< (DISTANCE PTNEA PTEND) 0.0001)        (EQUAL (VLAX-CURVE-GETENDPARAM ENT)        (VLAX-CURVE-GETPARAMATPOINT ENT PTEND)        0.0001        )   )     )       )     (setq N (- N 4))   ) ;;;    ((= 210 (CAR PTNEXTL)) ;;;     (cond ;;;       ((INTERS PTEND PTNEXT PTNEA PTNEA) ;;; (setq R1 (DISTANCE PTEND PTCEN)) ;;; (setq R2 (DISTANCE PTNEXT PTCEN)) ;;; (setq R3 (DISTANCE PTNEA PTCEN)) ;;; (cond ;;;   ((OR ;;;      (EQUAL R1 R2 0.0001) ;;;      (EQUAL R2 R3 0.0001) ;;;      (EQUAL R1 R3 0.0001) ;;;    ) ;;;    (PRINC) ;;;   ) ;;;   (T ;;;    (PRINC) ;;;   ) ;;; ) ;;;       ) ;;;     ) ;;;    ) ;;;  ) ;;;;;;  (setq N (- N 4)) ;;;  (setq E40 (CONS 40 (CDR (NTH (+ N 2) ENTL)))) ;;;  (setq E41 (CONS 41 (CDR (NTH (+ N 5) ENTL)))) ;;;  (setq E42 (NTH (+ N 3) ENTL))   (setq E40 (CONS 40 0.0))   (setq E41 (CONS 41 0.0))   (IF (OR (AND (< (DISTANCE PTNEA PTEND) 0.0001)     (EQUAL (VLAX-CURVE-GETSTARTPARAM ENT)     (VLAX-CURVE-GETPARAMATPOINT ENT PTEND)     0.0001     )           )    (AND (< (VLAX-CURVE-GETPARAMATPOINT ENT PTEND)     (VLAX-CURVE-GETPARAMATPOINT ENT PTNEA)) ;;;        (NOT PTCEN)         (OSNAP PTEND "_cen")    )       )     (setq E42 (CONS 42 0.0))     (setq E42 (NTH (1- N) ENTL))   )   (IF (= (setq     NPT (GETPOINT PTNEA     "\nNew vertex <Origin picked point>:"         )   )   NIL       )     (setq NPT PTNEA)   )   (setq     NPTL (APPEND (LIST (CONS 10 (LIST (CAR NPT) (CADR NPT)))          E40          E41          E42    )   )   )   (setq L1 nil)   (setq L2 nil)   (setq I 0)   (FOREACH X ENTL     (IF (>= (+ N 3) I)       (setq L1 (CONS X L1))       (setq L2 (CONS X L2))     )     (setq I (1+ I))   )   (setq L1 (REVERSE L1))   (setq L2 (REVERSE L2))   (setq ENTL (APPLY 'APPEND (LIST L1 NPTL L2)))   (ENTMOD ENTL) )

cnks

不是找密码么？变成反编译了？

fawn_lgc

震惊，是不是真的啊？

试试我这个命令行计算器程序：

命令：cc 或 calculator

注意: 3的平方用3\2表示

如：√(3²+4²)＝(3\2+4\2)\0.5＝5

5cos60=2.5

该计算器不完善有待改进.

alin

太长了。

fawn_lgc

为什么太长的文件就不能反编译呢，不会你是通过手工而不是软件进行反编译啊？

这程序不到千行就嫌长，万行的我还没有发出来呢。

alin

请看我23楼的解释。

fawn_lgc

1. 以下是引用alin在23楼的解释：
2. 的确有一个反编译fas文件的东东，虽然不是很成功，只能部分或小部分还原，但在某种情况下还是很有用的。比如要找程序中设置的密码，运气好的话还真的能找到。

复制代码

哈哈，看来我的程序连部分或小部分，哪怕是一两行程序都还原不了咯。
好像我明白怎样反“反编译”了。
我的程序算法特殊，恐怕杜拟都杜不出来的。可惜，可惜。