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

编程|加密|解密

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

时间: 2024-11-02 22:03:59

编程进阶:学习用ASP编写加密和解密类的相关文章

学习用codeblock编写工程遇到的问题

问题描述 学习用codeblock编写工程遇到的问题 10C 试着用多文件结构去写程序,编译出现 undefined reference to......的错误 怎么也解决不了,不知道是哪里出现了问题 ,希望大家能帮忙看一下class add{public: int x; int y; void get(int newxint newy); int Add();}; #include""add.h""#include""iostream"

c 病毒木马-怎样学习用C编写病毒木马?

问题描述 怎样学习用C编写病毒木马? 深入学习了C,但是还是不会实际应用......以后想走网络安全方向,想先学习一下怎么用C写病毒木马一类,可是折腾了好久还是没有找到一门合适的入门书籍或者教程,苦于无奈,求助! 解决方案 额(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-(⊙o⊙)-

ASP中加密与解密对应的函数

函数|加密|解密 在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp<%rem 在ASP中实现加密与解密,加密方法:根据RSArem 联系:hnsoso@sina.comClass clsRSA Public PrivateKeyPublic PublicKeyPublic Modulus Public Function Crypt(pLngMessage, pLngKey)On Error Resume NextDim lLngModDi

一段在asp中加密与解密对应的函数

函数|加密|解密 在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp <% rem 在ASP中实现加密与解密,加密方法:根据RSA rem 联系:hnsoso@sina.com Class clsRSA Public PrivateKey Public PublicKey Public Modulus Public Function Crypt(pLngMessage, pLngKey) On Error Resume Next Dim l

在asp中加密与解密对应的函数

函数|加密|解密 在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp<%rem 在ASP中实现加密与解密,加密方法:根据RSArem 联系:hnsoso@sina.comClass clsRSA Public PrivateKey Public PublicKey Public Modulus Public Function Crypt(pLngMessage, pLngKey) On Error Resume Next Dim lLngM

一段在asp中加密与解密对应的函数_应用技巧

在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp <% rem 在ASP中实现加密与解密,加密方法:根据RSA rem 联系:hnsoso@sina.com Class clsRSA Public PrivateKey Public PublicKey Public Modulus   Public Function Crypt(pLngMessage, pLngKey) On Error Resume Next Dim lLngMod

《Python密码学编程》——1.6 如何使用加密轮盘解密

1.6 如何使用加密轮盘解密 要解密一条密文,从内圈向外圈走.假设你从一个朋友那里收到这条密文:"Iwt ctl ephhldgs xh Hldgsuxhw.".你和其他人都不能解密它,除非你知道密钥(或者除非你是个很聪明的黑客).但你的朋友决定使用15这个密钥加密自己发给你的每条消息. 把外圈上的字母A(下面有个点的那个)对准内圈上带有数字15的字母(即字母P).密文里的第一个字母是I,因此,我们在内圈上找I,看看旁边外圈上的字母,是T.密文里的W会解密成字母H.一个接一个地,我们把

asp编写的加密和解密类

加密|解密 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 mod3St

用ASP编写的加密和解密类_ASP CLASS类

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 m