| 首页 | 技术文章 | 软件下载 | 博客 | 论坛 | 精品教程 | 黑客动画 | 视频资源 | 在线服务 | 黑客游戏 | 

您现在的位置: 中国X黑客小组 >> 技术文章 >> 编程技术 >> 黑客编程 >> 文章正文 用户登录 新用户注册
  ASP编写的加密和解密类          【字体:
ASP编写的加密和解密类
作者:佚名    文章来源:网络    点击数:    更新时间:2007-7-3    
class Base64Class
  rem Const
  dim sBASE_64_CHARACTERS'转化码
  dim lenString '计算字符串的长度
  dim iCount '计数器
  dim returnValue '返回值
  dim tempChar'缓存字符
  dim tempString'缓存字符串
  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

文章录入:IceRiver    责任编辑:IceRiver 
  • 上一篇文章:

  • 下一篇文章:
  • 发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    最新热点 最新推荐 相关文章
    微软终于让步 Vista SP1支持
    MSN Space大赛官方网站入侵经
    非主流入侵之会话劫持winnt/
    美耗资500万欲打造间谍版Mys
    Thomson SpeedTouch 2030 SI
    Asterisk 畸形 MIME 数据时有
    插入ASP代码让网站数据库成木
    微软补丁连发 XP SP3将于明年
    Kaspersky Anti-Spam存在不安
    MySpace存0day
      网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
    Powered by ICE RIVER - STUDIO
    » CnXHacker.CoM   © CopyRight 2002-2006, CnXHacker.CoM™, Inc. All Rights Reserved.