开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › ASP BASE64加密和解密
返回列表 发新帖
查看: 48|回复: 3

[ASP函数] ASP BASE64加密和解密

[复制链接]
天下第一 发表于 2024-11-13 20:36:51 | 显示全部楼层 |阅读模式
ASP BASE64加密和解密
  1. Function Base64Encode(ByVal Str)
  2.         dim Xml, Stream, Node, Encode
  3.         Set Xml = Server.CreateObject("Msxml2.DOMDocument")
  4.         Set Stream = Server.CreateObject("ADODB.Stream")
  5.         Set Node = Xml.CreateElement("TmpNode")
  6.         Node.DataType = "bin.base64"
  7.         Stream.Charset = "UTF-8"
  8.         Stream.Type = 2
  9.         Stream.Open()
  10.         Stream.WriteText(Str)
  11.         Stream.Position = 0
  12.         Stream.Type = 1
  13.         Node.NodeTypedValue = Stream.Read(-1)
  14.         Stream.Close()
  15.         Encode = Replace(Node.Text, Vblf, "")
  16.         Encode = Replace(Encode, Vbcr, "")
  17.         Base64Encode = Replace(Encode,"77u/","")
  18.         Set Node = Nothing
  19.         Set Stream = Nothing
  20.         Set Xml = Nothing
  21. End Function

  23. Function Base64Decode(ByVal Str)
  24.         Dim Val
  25.         With Server.CreateObject("Msxml2.DOMDocument").CreateElement("TmpNode")
  26.                 .DataType = "bin.base64"
  27.                 .Text = Str
  28.                 Val = .NodeTypedValue
  29.         End With
  30.         With Server.CreateObject("ADODB.Stream")
  31.                 .Type = 1
  32.                 .Open
  33.                 .Write Val
  34.                 .Position = 0
  35.                 .Type = 2
  36.                 .Charset = "UTF-8"
  37.                 Base64Decode = .ReadText(-1)
  38.         End With
  39. End Function
复制代码
ASP币如何冲？请看这里
回复

使用道具 举报

一往情僧 发表于 2024-11-14 08:04:41 | 显示全部楼层
这个好像有专门的网站可以查吧？
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

 楼主| 天下第一 发表于 2024-11-14 09:25:53 | 显示全部楼层
一往情僧 发表于 2024-11-14 08:04
这个好像有专门的网站可以查吧？

ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

xuanxiao 发表于 2024-11-14 18:25:07 | 显示全部楼层
辛苦了，发了不少
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号