简单的加密方法:XOR -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 简单的加密方法:XOR

简单的加密方法:XOR 时间：2004/11/7 2:56:00来源：本站整理作者：蓝点我要评论(0)

念书的时候使用对数据进行加密的方法最简单的就是异或了，看到有人想要加密算法，就把以前的资料翻了一下，整理了一系列加密的函数，当然简单的加密也是容易破解的，但聊胜于无（记得把密要钥放好了），总比让人一打开数据库就看见密码明码好吧。:-)

<%

'最简单的加密方法：XOR

'----------------------

g_CryptThis = "中国-China"

strFullKeyLen = Len(g_CryptThis)

strFullKey = KeyGen(strFullKeyLen)

Response.Write "

原始字符串: " & g_CryptThis & "

"

Response.Write "

密钥: " & strFullKey & "

"

Response.Write "

加密后: " & Server.URLEncode(EnCrypt(g_CryptThis)) & "

"

Response.Write "

解密后: " & DeCrypt(EnCrypt(g_CryptThis)) & "

"

'异或加密

Function EnCrypt(strCryptThis)

   Dim strChar, iKeyChar, iStringChar, i

   for i = 1 to Len(strCryptThis)

      iKeyChar = Asc(mid(strFullKey,i,1))

      iStringChar = Asc(mid(strCryptThis,i,1))

      iCryptChar = iKeyChar Xor iStringChar

      strEncrypted =  strEncrypted & Chr(iCryptChar)

   next

   EnCrypt = strEncrypted

End Function

'异或解密

Function DeCrypt(strEncrypted)

Dim strChar, iKeyChar, iStringChar, i

   for i = 1 to Len(strEncrypted)

      iKeyChar = (Asc(mid(strFullKey,i,1)))

      iStringChar = Asc(mid(strEncrypted,i,1))

      iDeCryptChar = iKeyChar Xor iStringChar

      strDecrypted =  strDecrypted & Chr(iDeCryptChar)

   next

   DeCrypt = strDecrypted

End Function

'产生指定长度的随机密钥

Function KeyGen(strlength)

    Dim i,UB

    Dim Temp

    Dim Poss

    Poss = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

    Temp = ""

    UB = Len(Poss)

    For i = 1 To strlength

        Randomize

        Temp = Temp & Mid(Poss,Int((UB - 0 + 1) * Rnd + 1),1)

    Next

    KeyGen = Temp

End Function

%>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。