编程进阶:学习用ASP编写加密和解密类

时间:2008-10-07 11:57:04  来源:第二电脑网上收集  作者:

  第二电脑网导读:empString'缓存字符串   dim paramString '参数字符串   dim temHex'缓存缓存十六进制   dim tempLow'缓存低位   dim tempHigh'缓存高位   dim mod3String'   dim mod4String'   dim tempBinary'   dim tempByteOne'   dim tempByteTwo'   dim tempByteThree'   dim tempByteFour'   d...
  正文: class Base64Class
  rem Const
  dim sBASE_64_CHARACTERS'转化码
  dim lenString '计算字符串的长度
  dim iCount '计数器
  dim returnValue '返回值
  dim tempChar'缓存字符
  dim temphotoshop/ target=_blank class=infotextkey>pstring'缓存字符串
  dim paramString '参数字符串
  dim temHex'缓存缓存十六进制
  dim tempLow'缓存低位
  dim tempHigh'缓存高位
  dim mod3String'
  dim mod4String'
  dim tempBinary'
  dim tempByteOne'
  dim tempByteTwo'
  dim tempByteThree'
  dim tempByteFour'
  dim tempSaveBitsOne'
  dim tempSaveBitsTwo'
  '********************************************
  'begin初始化类
  '********************************************
  private sub Class_Initialize()
  sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
  '********************************************
  'end初始化类 '
  ********************************************
  '********************************************
  'begin销毁类
  '********************************************
  Private Sub Class_Terminate()
  sBASE_64_CHARACTERS="" end sub
  '********************************************
  'end销毁类
  '********************************************
  '********************************************
  'begin将Ansi编码的字符串进行Base64编码
  '********************************************
  public function Encode(paramString)
  tempString=""
  returnValue=""
  lenString=len(paramString)
  if lenString<1 then
  Encode=returnValue
  else
  mod3String=lenString mod 3
  '补足位数是为了便于计算
  if mod3String>0 then
  lenString=lenString+3-mod3String
  lenString=lenString-3
  end if

"编程进阶:学习用ASP编写加密和解密类"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/2735.html


关键字:

关于《编程进阶:学习用ASP编写加密和解密类》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td