ASP BASE64加密和解密

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
    
22. 
    
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

复制代码

这个好像有专门的网站可以查吧？

一往情僧 发表于 2024-11-14 08:04
这个好像有专门的网站可以查吧？

辛苦了，发了不少