pb加密解密方法

1、加密global type f_encrypt from function_objectend typeforward prototypesglobal function string f_encrypt (string st_text, string st_key)end prototypesglobal function string f_encrypt (string st_text, string

3、string st_textencryptlong lg_textlen,lg_keylen,lg_keylong lg_loopIF isnull(st_key) OR isnull(st_text) THEN RETURN ''lg_keylen = len(st_key)FOR lg_loop = 1 TO lg_keylenlg_key = lg_key + (asc(mid(st_key,lg_loop,1)) * lg_loop)IF lg_key > 255 THEN lg_key = lg_key - 255

5、st_textencrypt = st_textencrypt + char(lg_cbyte)lg_key = lg_key + lg_cbyteIF lg_key > 255 THEN lg_key = lg_key - 255NEXTRETURN st_textencryptend function