pb 加密gf_encrypt_string(string as_string,integer ai_len) returns string

gf_encrypt_string(string as_string,integer  ai_len) returns string

 char lc_const[]={"[","e","n","g","l","i","s","h","@","]","-","(","c","h","i","n","a","1","0",")"}
integer i
integer li_len
integer li_sub
integer li_code
string ls_char
string ls_encrypt = ""

ls_encrypt = space(ai_len)

if isnull(as_string) or as_string = "" then
 return ""
end if

ls_encrypt = replace(ls_encrypt,ai_len + 1 - len(as_string),len(as_string),as_string)
li_len = len(ls_encrypt)

for i = 1 to li_len
 li_code = asc(mid(ls_encrypt,i,1)) + asc(lc_const[i])

 if li_code > 126 then
  li_code = li_code - 126
 end if

 if li_code < 32 then
  li_sub = asc(lc_const[i]) - 95

  if li_sub > 0 then
   li_code = li_code + 95
  else
   li_code += asc(lc_const[i])
  end if

 end if

 ls_char = char(li_code)
 ls_encrypt = replace(ls_encrypt,i,1,ls_char)
next

return ls_encrypt