VB 加密与解密的程序代码

       Private Function JiaMi(ByVal varPass As String) As String '参数varPass是需要加密的文本内容

       Dim varJiaMi As String *

       Dim varTmp As Double

       Dim strJiaMi As String

       Dim I

       For I = 1 To Len(varPass)

       varTmp = AscW(Mid$(varPass,加密解密简单t加程序源码搭建 I, 1))

       varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I))

       strJiaMi = strJiaMi & varJiaMi

       Next I

       JiaMi = strJiaMi

       End Function

       è§£å¯†å‡½æ•°ï¼š

       Private Function JieMi(ByVal varPass As String) As String '参数varPass是需要解密的密文内容

       Dim varReturn As String *

       Dim varConvert As Double

       Dim varFinalPass As String

       Dim varKey As Integer

       Dim varPasslenth As Long

       varPasslenth = Len(varPass)

       For I = 1 To varPasslenth /

       varReturn = Mid(varPass, (I - 1) * + 1, )

       varConvert = Val(Trim(varReturn))

       varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)

       varFinalPass = varFinalPass & ChrW(Val(varConvert))

       Next I

       JieMi = varFinalPass

       End Function

       æ³¨æ„äº‹é¡¹

       ç¼–写加密程序，将用户输入的一个英文句子加密为加密字符串，然后输出加密字符串。假设句子长度不超过个字符。

       æ ¹æ®ç»™å®šçš„句子加密函数原型SentenceEncoding，编写函数SentenceEncoding调用给定的字符加密函数CharEncoding完成句子加密。

       ç„¶åŽï¼Œç¼–写主程序提示用户输入英文句子，然后调用函数SentenceEncoding对句子加密，最后输出加密后的句子。

       å­—符加密规则为大写字母和小写字母均加密为其补码, 我们定义ASCII码值相加为’A’+’Z’即的两个大写字母互为补码，ASCII码值相加为’a’+’z’即的两个小写字母互为补码。

       ç©ºæ ¼ç”¨@代替,句号以#代替,其它字符用句点代替。

       å‡½æ•°åŽŸåž‹ï¼š

       void SentenceEncoding(char *soure,char *code);

       åŠŸèƒ½ï¼šå¯¹å¾…加密字符串source加密后保存加密字符串到code.

       å‚数：char *soure，指向待加密句子的字符串指针；

       char *code 指向加密字符串的字符串指针；

       å­—符加密函数代码。

有关asp源代码解密

       下面是encode解密出来的,还是加密了,不过这样解开就简单多了,直接一个response.write UnEncode(www_fjqq_cn) 光这一句就可以了,下面的都不必看.

       <%

       www_fjqq_cn="帅帅m[_3w斌斌斌斌uu~&""ww4##的dY$gg`\$mmm##v2ww""ww4##大dY$gg`\$mmm##v2ww""bcj>}jd[jde9j[=3dYUgg`\Ummm斌~wwww{ [c.dUgg`\{ wwww""ww商供提务服盟联容内序程偷小家首内国ww""[bj_jUdYUgg`\}[YWbf[H3[bj_jUdYUgg`\斌~wwww{ [bj_jUgg`\{ wwww""ww的ww""[bj_jUdYUgg`\}[YWbf[H3[bj_jUdYUgg`\斌~&""ww4[bj_j%2ww""ww4[bj_j2ww""bcj>}jd[jde9j[=3[bj_jUdYUgg`\斌~bhk}[].Fj[=3bcj>斌wwfi.$de_dkww2bhkUgg`\2wwww3bhk斌斌w帅[-[Ykj[}Kd;dYeZ[}m[_~~帅\kdYj_eduKd;dYeZ[}YY~帅uuuu\ehu_u3u'ujeub[d}YY~帅uuuuuuuu_\uc_Z}YY""_""'~w斌wuj^[d帅uuuuuuuuuuuuj[cfu3uC_Z}YY""u_""u'~u!uj[cf帅uuuuuuuuuuuuuuuu[bi[帅uuuuuuuuuuuuj[cf3lXYhb\{ j[cf帅uuuuuuuuuuuuuuuu[dZu_\帅uuuuuuuuuuuuuuuud[-j帅uuuuuuuuuuuuuuuuuuuuKd;dYeZ[3j[cf帅uuuuuuuuuuuuuuuu[dZu\kdYj_ed帅帅帅帅"

       execute(UnEncode(www_fjqq_cn))

       function UnEncode(www_cfss_cn)

        but=

        for i = 1 to len(www_cfss_c-)

        if mid(www_cfss_cn,i,1)<>"帅" the-

        If Asc(Mid(www_cfss_c-, i, 1)) < Or Asc(Mid(www_cfss_c-, i, 1)) > Then

        a = a & Chr(Asc(Mid(www_cfss_cn, i, 1)))

        else

        pk=asc(mid(www_cfss_cn,i,1))-but

        if pk> then

        pk=pk-

        elseif pk< then

        pk=pk+

        end if

        a=a&chr(pk)

        e-d if

        else

        a=a&vbcrlf

        end if

        next

        UnEncode=a

       end function

       %>