点击下载此附件
//DESCRYPT加密解密
Function Int b64_size(ULong size,ULong flag) Library "DESCRYPT.dll"
Function Int b64_des(Ref String In,Ref String out,String Key,ULong size,ULong flag )Library "DESCRYPT.dll"
function string f_descrypt (string in_pass, integer in_state)
// 函数: f_descrypt()
//--------------------------------------------------------------------
// 描述:调用外部dll文件实现加密/解密用户登录密码
//--------------------------------------------------------------------
// 参数:
// value string in_pass
// value integer in_state
//--------------------------------------------------------------------
// 返回: string
//--------------------------------------------------------------------
// 作者: zhl750501 日期: 2014.12.31
//====================================================================
String ls_inpass,ls_outpass
Long ll_state,ll_size
ls_inpass = in_pass
ll_state = in_state
ll_size = B64_size(Len(ls_inpass),1)
ls_outpass = Space(ll_size)
B64_Des (ls_inpass,ls_outpass,'ABCDEFG',Len (ls_inpass),in_state)
Return ls_outpass
End function