·您的位置: 首页 » 资源教程 » 编程开发 » ASP.NET » 一个简单的加密/解密方法

一个简单的加密/解密方法

类别: ASP.NET教程  评论数:0 总得分:0

Private Function EncryptString(strString)
Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet
Randomize Timer

intKey = Round((RND * 1000000) + 1000000) \'##### Key Bitsize
intOffSet = Round((RND * 1000000) + 1000000) \'##### KeyOffSet Bitsize

If IsNull(strString) = False Then
strRAW = strString
intStringLen = Len(strRAW)

For i = 0 to intStringLen - 1
strTemp = Left(strRAW, 1)
strRAW = Right(strRAW, Len(strRAW) - 1)
CharHexSet = CharHexSet & Hex(Asc(strTemp) * intKey)& Hex(intKey)
Next

EncryptString = CharHexSet & \"|\" & Hex(intOffSet + intKey) & \"|\" & Hex(intOffSet)
Else
EncryptString = \"\"
End If
End Function

Private Function DecryptString(strCryptString)
Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData

strRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, \"|\"))
intOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey,\"|\"))
intKey = HexConv(Left(strRawKey, InStr(strRawKey, \"|\") - 1)) - HexConv(intOffSet)
strHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey) + 1))

arHexCharSet = Split(strHexCrypData, Hex(intKey))

For i=0 to UBound(arHexCharSet)
strRAW = strRAW & Chr(HexConv(arHexCharSet(i))/intKey)
Next

DecryptString = strRAW
End Function

Private Function HexConv(hexVar)
Dim hxx, hxx_var, multiply
IF hexVar <> \"\" THEN
hexVar = UCASE(hexVar)
hexVar = StrReverse(hexVar)
DIM hx()
REDIM hx(LEN(hexVar))
hxx = 0
hxx_var = 0
FOR hxx = 1 TO LEN(hexVar)
IF multiply = \"\" THEN multiply = 1
hx(hxx) = mid(hexVar,hxx,1)
hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var
multiply = (multiply * 16)
NEXT
hexVar = hxx_var
HexConv = hexVar
END IF
End Function

Private Function get_hxno(ghx)
If ghx = \"A\" Then
ghx = 10
ElseIf ghx = \"B\" Then
ghx = 11
ElseIf ghx = \"C\" Then
ghx = 12
ElseIf ghx = \"D\" Then
ghx = 13
ElseIf ghx = \"E\" Then
ghx = 14
ElseIf ghx = \"F\" Then
ghx = 15
End If
get_hxno = ghx
End Function


 

-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1