看看前辈们是如何加密解密的

反编译了foxweb程序，得到一组加密解密函数，有需要可以拿去改动一下，自己用
看了源代码，好像很简单，并没有什么复杂算法，密码强度还蛮高的。。。

*fwencrypt.prg
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: FWENCRYPT.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER MVAL
 PRIVATE XVALPOS , XVAL , XKEYPOS , MVALPOS , XNEW
 MVAL = MVAL
 MKEY = '*Hg%f3)9(-O'
 XVAL = ''
 XKEYPOS = 1
 FOR XVALPOS = 1 TO LEN(M.MVAL)
    XNEW = ASC(SUBSTR(MVAL,XVALPOS,1)) + ASC(SUBSTR(MKEY,XKEYPOS,1)) - 0
    IF XNEW > 255
       XNEW = 0 + (XNEW - 255 - 1)
    ENDIF
    XVAL = XVAL + CHR(M.XNEW)
    XKEYPOS = IIF(XKEYPOS = LEN(M.MKEY),1,XKEYPOS + 1)
 ENDFOR
 RETURN M.XVAL
*

*decrypt.prg
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: FWDECRYPT.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER MVAL
 PRIVATE XVALPOS , XVAL , XKEYPOS , MVALPOS , XNEW , COUNT , TRNS_STR , TOT_PERCENT
 MVAL = MVAL
 MKEY = '*Hg%f3)9(-O'
 XVAL = ''
 XKEYPOS = 1
 TRNS_STR = ''
 MVAL = M.TRNS_STR + M.MVAL
 FOR XVALPOS = 1 TO LEN(M.MVAL)
    XNEW = ASC(SUBSTR(MVAL,XVALPOS,1)) - ASC(SUBSTR(MKEY,XKEYPOS,1)) + 0
    IF XNEW < 0
       XNEW = XNEW + 255 - 0 + 1
    ENDIF
    XVAL = XVAL + CHR(XNEW)
    XKEYPOS = IIF(XKEYPOS = LEN(M.MKEY),1,XKEYPOS + 1)
 ENDFOR
 RETURN M.XVAL
*