简单的字符串加密,凑合着用吧,这东西就怕别人坏您
$PBExportHeader$gf_encode.srf
global type gf_encode from function_object
end type
forward prototypes
global function string gf_encode (string as_code)
end prototypes
global function string gf_encode (string as_code);//字符串加密
String ls_key_para
ls_key_para="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
String ls_rtncode,ls_code1,ls_code2,ls_temp
Long ll_len,ll_i,ll_j
Integer li_code1,li_code2
ll_len = Len(as_code)
IF ll_len <= 0 THEN Return ""
ls_rtncode = ""
ll_j = 1
FOR ll_i = 1 TO ll_len
li_code1 = ASC(Mid(as_code,ll_i,1))
li_code2 = ASC(Mid(ls_key_para,ll_j,1))
li_code1 += li_code2
DO WHILE li_code1 > 127
if li_code1 > 127 then
li_code1 = li_code1 - 127
end if
LOOP
ls_temp = char(li_code1)
ls_rtncode += ls_temp
ll_j ++
if ll_j > len(ls_key_para) then ll_j = 1
next
return ls_rtncode
end function
$PBExportHeader$gf_decode.srf
global type gf_decode from function_object
end type
forward prototypes
global function string gf_decode (string as_code)
end prototypes
global function string gf_decode (string as_code);//解密
string ls_key_para
ls_key_para="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
String ls_rtncode,ls_code1,ls_code2,ls_temp
Long ll_len,ll_i,ll_j
Integer li_code1,li_code2
ll_len = Len(as_code)
IF ll_len <= 0 THEN Return ""
ls_rtncode = ""
ll_j = 1
FOR ll_i = 1 TO ll_len
li_code1 = ASC(Mid(as_code,ll_i,1))
li_code2 = ASC(Mid(ls_key_para,ll_j,1))
li_code1 -= li_code2
DO WHILE li_code1 <= 0
if li_code1 <= 0 then
li_code1 = li_code1 + 127
end if
LOOP
ls_temp = char(li_code1)
ls_rtncode += ls_temp
ll_j ++
if ll_j > len(ls_key_para) then ll_j = 1
next
return ls_rtncode
end function