能力值：
( LV9，RANK：170 )
|
-
-
2 楼
你需要了解一些的VF的编程的知识了，不能这么
分析程序，有些代码需要你读懂才行的。
我对你的DeFoxStar工具到是挺有兴趣。
|
能力值：
( LV4，RANK：50 )
|
-
-
3 楼
我对VFP不太了解,但也会用一点!
pw=CALPass(txtpw)
大概的意思是:调用CALPass函数后返回一个值给pw
但偏偏就掉失了这个函数! 
|
能力值：
( LV4，RANK：50 )
|
-
-
4 楼
DeFoxStar 到处都有得下载呀。。。
我记得在这儿也有的。。搜索VFP，贴子上面有的。
|
能力值：
( LV9，RANK：170 )
|
-
-
5 楼
一般都是普及版的,没有注册的反编的文件大小有限制.
新版本的注册的,功能强大的很.
|
能力值：
( LV2，RANK：10 )
|
-
-
6 楼
是自定义func or proc
|
能力值：
( LV4，RANK：50 )
|
-
-
7 楼
是自定义函数或程序？
但反编译没有成功反出来，奇怪！用了几个反编译的软件都是这样！
这儿是那个原程序，大家可以down 回去试试反编译：
617K9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8X3g2D9k6h3y4@1M7X3W2U0M7r3!0%4k6i4u0Q4x3X3g2U0L8W2)9J5c8W2g2H3L8r3!0S2k6r3k6A6L8r3g2K6i4K6u0r3f1s2u0G2i4K6u0r3M7s2u0G2k6%4u0S2L8g2)9J5k6i4u0S2M7R3`.`.
|
能力值：
( LV4，RANK：50 )
|
-
-
8 楼
有人试一下反编译这个东东吗?
|
能力值：
( LV2，RANK：10 )
|
-
-
9 楼
VFP 3.0程序，没加密。
*------
PROCEDURE calpass
PARAMETER PWORD
PRIVATE XSETDECIMALS , PASS , TMP , TT , TMP1 , TT1 , I , J , ASCII
IF EMPTY(PWORD)
PWORD = 'Kwisun Kong'
ENDIF
XSETDECIMALS = SET('DECIMALS',1)
SET DECIMALS TO 10
TT = 0
TT1 = 0
FOR I = 1 TO LEN(PWORD)
TMP = ASC(SUBSTR(PWORD,I,1))
TT = TT + TMP
ASCII = ALLTRIM(STR(TMP,4))
FOR J = 1 TO LEN(ASCII)
TMP = VAL(SUBSTR(ASCII,J,1))
TT1 = TT1 + TMP
ENDFOR
ENDFOR
PASS = ''
FOR I = 1 TO 10
TMP = STR(SIN(TT),15,10)
TT = TT + VAL(TMP)
TMP1 = STR(SQRT(TT1),20,10)
TT1 = TT1 + VAL(TMP1)
PASS = PASS + RIGHT(TMP,VAL(RIGHT(TMP,1))) + RIGHT(TMP1,VAL(RIGHT(TMP1,1)))
ENDFOR
SET DECIMALS TO XSETDECIMALS
RETURN PASS
ENDPROC
*------
|
能力值：
( LV4，RANK：50 )
|
-
-
10 楼
奇怪，为什么我用UNFox、DefoxStar 、FoxTools 反出来的就少了这一段，是什么回事？
请问您是用什么工具返编译出来的？
|
能力值：
( LV2，RANK：10 )
|
-
-
11 楼
熟悉VFP就能找到了
|
能力值：
( LV4，RANK：50 )
|
-
-
12 楼
感谢Silk 的提醒！！已经成功编译了！！
不过用unfox 编译后有些代码的顺序调乱了又或者出了多余的“,”，一运行到那里就提示出错。。
|
|
|
|
