如果在PB6.5中查看一个函数。

[qufo]

我这里有一个程序，是PB 5 写的(用记事本打开第一行为 HDR*PowerBuilder 0500~P? )，仅有部分源代码 (三个*.pbl和一个ini文件)，没有其它什么辅助文件。

程序是一个进销存程序，现在需要知道其中一个加密的算法，用 记事本打开一个dec.pbl 后找到如下一段代码，从名称上猜可能是加密解密函数，现急于想知道其代码，因我为习惯在Delphi下编程，从未接触过PB。



//解密
Decry0(istr_STRLoginValue.ServerName)
Decry0(istr_STRLoginValue.LogID)
Decry0(istr_STRLoginValue.LogPassword)

private function integer decry0 (ref string s);int i, t1, t2, ll

string rets

rets =""
ll = len(s)-1;
if ( ll < 0) then return -1
for i = ll to 1 step -1
t1 = asc(mid(s, i, 1))
t2 = asc(mid(s, i+1, 1))
tDAT*
*****以下为乱码****************


因为记事本打开后看到乱码，无法知道其编码内容，想知道能有什么办法能看到函数内容。

我已经安装了一个PB6.5，可是不会用，
在PB6.5中，点Library，可以找到此 dec.pbl，可是里面有一些 DataWindow，一些 窗体，就是看不到这个函数，要在哪里看呀。

各位帮忙呀，这回被PB难住了。

[qufo]

自己UP

[haisha]

在窗体或者自定义控件和函数里面找，代码一般不在DataWindow写

[qufo]

sorry,我的PB是 5.0.0.2的。

haisha(海沙)怎么找呢，我对PB的IDE不熟悉。

[qufo]

海沙。要不我把这个bpl mail 给你，你帮我找出来再把代码给我好吗？

[qufo]

UP。帮忙呀。

[haisha]

把pbl发给我吧,我帮你找:
[e-mail]