PB des加密。。

[gui41021]

下载了个DES64.DLL文件，调用里面的加密解密函数时中文每次解密就剩一半的。。。


哥哥们指点下，或者需要我提供哪些东西？

[wag_enu]

把你的代码贴出来大家看一下先.

[newease]

兄弟，你的邮箱地址是？我把des加解密的示例给你发过去（PB9加解中、英、中英混合均正常）

[gui41021]

[e-mail] 谢谢~~~~~~~~

[qing455]

楼上的兄弟 我也要 [e-mail] O(∩_∩)O先谢谢

[gui41021]

//DES64中的两个函数
Function int b64_size(ulong size,ulong flag) Library "des64.dll"
Function int b64_des(ref String in,ref string out,string key,ulong size,ulong flag) Library "des64.dll" alias for "b64_des;ansi"

//加密
long Ll_Size
String Ls_OutPass
String Ls_InPass

Ls_InPass = Trim(As_String)

Ll_Size = b64_size(len(Ls_InPass),1)

Ls_OutPass = Space(Ll_Size)

B64_Des (Ls_InPass , Ls_OutPass , '12345678' , Len (Ls_InPass) , 1 )


Return Ls_OutPass
//解密
long Ll_Size
String Ls_OutPass
String Ls_InPass

Ls_InPass = Trim(As_Pass)

Ll_Size = b64_size(len(Ls_InPass),1)

Ls_OutPass = Space(Ll_Size)

B64_Des (Ls_InPass , Ls_OutPass , '12345678' , Len (Ls_InPass) , 0 )


Return Ls_OutPass

//----------------------

额，不知道具体加密过程DES64里怎么写的 所以。。。比较郁闷

[gui41021]

处理英文没问题，中文不行，坐等newease的了

[qing455]

感谢 李延宇 大哥 O(∩_∩)O谢谢

[newease]

[e-mail]

[e-mail]

已经将示例发至邮箱，请查收

[gui41021]

收到 多谢~~

[永生天地]

Ll_Size = b64_size(len(Ls_InPass),1)
你的pb已经是10+版本了，应该用lenA试试

[gui41021]

谢谢兄弟 问题解决了。。。

B64_Des (Ls_InPass , Ls_OutPass , '12345678' , Len(Ls_InPass) , 0 )//这里我用的LEN，按照你的示例改成LENA就OK了。


B64_Des (Ls_InPass , Ls_OutPass , '12345678' , LenA(Ls_InPass) , 0 )

结了 有要这示例的 MAIL：[e-mail]

[gui41021]

嘿嘿 谢谢777哥指点