知识大全 用ASP写个简单的加密和解密的类实例
Posted 知
篇首语:要真正了解一个人,需在不幸中考察他。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 用ASP写个简单的加密和解密的类实例相关的知识,希望对你有一定的参考价值。
用ASP写个简单的加密和解密的类实例 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!
用asp写个简单的加密和解密的类 在这个类中简单的实现了一个加密和解密 目的是和大家分享一下 这个类的破解非常简单 看看我的注释就知道是怎么回事了 下次编写一个java的加密和解密的类 class Base Class rem Const dim sBASE_ _CHARACTERS 转化码 dim lenString 计算字符串的长度 dim iCount 计数器 dim returnValue 返回值 dim tempChar 缓存字符 dim tempString 缓存字符串 dim paramString 参数字符串 dim temHex 缓存缓存十六进制 dim tempLow 缓存低位 dim tempHigh 缓存高位 dim mod String dim mod String dim tempBinary dim tempByteOne dim tempByteTwo dim tempByteThree dim tempByteFour dim tempSaveBitsOne dim tempSaveBitsTwo ******************************************** begin初始化类 ******************************************** private sub Class_Initialize() sBASE_ _CHARACTERS = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz +/ end sub ******************************************** end初始化类 ******************************************** ******************************************** begin销毁类 ******************************************** Private Sub Class_Terminate() sBASE_ _CHARACTERS= end sub ******************************************** end销毁类 ******************************************** ******************************************** begin将Ansi编码的字符串进行Base 编码 ******************************************** public function Encode(paramString) tempString= returnValue= lenString=len(paramString) if lenString< then Encode=returnValue else mod String=lenString mod 补足位数是为了便于计算 if mod String> then lenString=lenString+ mod String lenString=lenString end if *************************begin for iCount= to lenString step tempBinary = Mid(paramString iCount ) response write tempBinary tempByteOne= Asc(Mid(tempBinary )): tempSaveBitsOne = tempByteOne And tempByteTwo = Asc(Mid(tempBinary )): tempSaveBitsTwo = tempByteTwo And tempChar = Asc(Mid(tempBinary )) tempByteOne = Mid(sBASE_ _CHARACTERS ((tempByteOne And ) \\ ) + ) tempByteTwo = Mid(sBASE_ _CHARACTERS (((tempByteTwo And ) \\ ) Or (tempSaveBitsOne * ) And &HFF) + ) tempByteThree = Mid(sBASE_ _CHARACTERS (((tempChar And ) \\ ) Or (tempSaveBitsTwo * ) And &HFF) + ) tempByteFour = Mid(sBASE_ _CHARACTERS (tempChar And ) + ) tempString = tempByteOne & tempByteTwo & tempByteThree & tempByteFour returnValue=returnValue & tempString next *************************end *************************begin处理最后剩余的几个字符 if mod String> then tempBinary = Mid(paramString iCount mod String) if mod String= then tempString = tempBinary & Chr( ) & Chr( ) & Chr( ) 用@号补足位数 else tempString = tempBinary & Chr( ) & Chr( ) 用@号补足位数 end if returnValue=returnValue & tempString end if *************************end处理最后剩余的几个字符 Encode=returnValue end if end function ******************************************** end将Ansi编码的字符串进行Base 编码 ******************************************** ******************************************** end将Base 编码字符串转换成Ansi编码的字符串 ******************************************** public function Decode(paramString) tempString= returnValue= lenString=len(paramString) if lenString< then Decode=returnValue else mod String=lenString mod if mod String > then 字符串长度应当是 的倍数 Decode=returnValue else begin判断是不是@号 if Mid(paramString lenString ) = @ then mod String= end if if Mid(paramString lenString ) = @ then mod String= end if end判断是不是@号 if mod String> then lenString=lenString end if ******************************begin for iCount= to lenString step tempString = Mid(paramString iCount ) tempByteOne = InStr(sBASE_ _CHARACTERS Mid(tempString )) tempByteTwo = InStr(sBASE_ _CHARACTERS Mid(tempString )) tempByteThree = InStr(sBASE_ _CHARACTERS Mid(tempString )) tempByteFour = InStr(sBASE_ _CHARACTERS Mid(tempString )) tempByteOne = Chr(((tempByteTwo And ) \\ ) Or (tempByteOne * ) And &HFF) tempByteTwo = & Chr(((tempByteThree And ) \\ ) Or (tempByteTwo * ) And &HFF) tempByteThree = Chr((((tempByteThree And ) * ) And &HFF) Or (tempByteFour And )) tempString=tempByteOne & tempByteTwo & tempByteThree returnValue=returnValue & tempString next ******************************end 处理最后剩余的几个字符 if mod String > then tempString=left(right(paramString ) mod String) returnValue = returnValue & tempString end if Decode=returnValue end if end if end function ******************************************** end将Base 编码字符串转换成Ansi编码的字符串 ******************************************** end class cha138/Article/program/net/201311/12110相关参考
Asp.net,C#加密解密字符串 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 首先在nfig
小技巧:用C#实现Des加密和解密 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! usingSy
甲方和乙方采用公钥密码体制对数据文件进行加密传送,甲方用乙方的公钥加密数据文件,乙方要对数据文件进行解密应该使用__
甲方和乙方采用公钥密码体制对数据文件进行加密传送,甲方用乙方的公钥加密数据文件,乙方要对数据文件进行解密应该使用_____。A、乙的公钥B、乙的私钥C、甲的公钥D、甲的私钥答案:B解析:公开密钥密码体
知识大全 用javascript与java进行RSA加密与解密
用javascript与java进行RSA加密与解密 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!
以下两个类可以很方便的完成字符串的加密和解密 加密CryptHelperencrypt(password) 解密CrypHelperdecrypt(password) 代码如下 Crypt
.NET中加密和解密的实现方法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! NET将原来独立的
浅谈.NET中加密和解密的实现方法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! NET将原来独
java字符串加密解密 tryStringtest=EncryptionDecryptiondes=newEncryptionDecryption(tourhb)//自定义密钥Systemout
C#对称加密解密算法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! ///<summary
JAVADES加密解密实现 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! packagetxlt