ASP DES加密和解密

1. Function DESEncrypt(ByVal Str,ByVal Key,ByVal Iv,ByVal Types)
   
2.         Dim UTF8,Enc,BytesText,Bytes,XML,Node,Outstr
   
3.         Set UTF8 = Server.CreateObject("System.Text.UTF8Encoding")
   
4.         Set Enc = Server.CreateObject("System.Security.Cryptography.DESCryptoServiceProvider")
   
5.         Enc.Mode = 1
   
6.         Enc.Padding = 2
   
7.         Enc.IV = UTF8.GetBytes_4(Iv)
   
8.         Enc.Key = UTF8.GetBytes_4(Key)
   
9.         BytesText = UTF8.GetBytes_4(Str)
   
10.         Bytes = Enc.CreateEncryptor().TransformFinalBlock((BytesText),0,Lenb(BytesText))
    
11.         If Types = "Base64" Then
    
12.                 Set XML = Server.CreateObject("Msxml2.DOMDocument")
    
13.                 Set Node = XML.CreateElement("TmpNode")
    
14.                 Node.DataType = "bin.base64"
    
15.                 Node.NodeTypedValue = Bytes
    
16.                 Outstr = Replace(Node.Text,Chr(10),"")
    
17.                 Set XML = Nothing
    
18.                 Set Node = Nothing
    
19.         ElseIf Types = "Hex" Then
    
20.                 Set XML = Server.CreateObject("Msxml2.DOMDocument")
    
21.                 Set Node = XML.CreateElement("TmpNode")
    
22.                 Node.DataType = "bin.hex"
    
23.                 Node.NodeTypedValue = Bytes
    
24.                 Outstr = Replace(Node.Text,Chr(10),"")
    
25.                 Set XML = Nothing
    
26.                 Set Node = Nothing
    
27.         End If
    
28.         DESEncrypt = Outstr
    
29.         Set Enc = Nothing
    
30.         Set UTF8 = Nothing
    
31. End Function
    
32. 
    
33. Function DESDecrypt(ByVal Str,ByVal Key,ByVal Iv,ByVal Types)
    
34.         Dim UTF8,Enc,BytesText,Bytes,XML,Node,Outstr
    
35.         Set UTF8 = Server.CreateObject("System.Text.UTF8Encoding")
    
36.         Set Enc = Server.CreateObject("System.Security.Cryptography.DESCryptoServiceProvider")
    
37.         Enc.Mode = 1
    
38.         Enc.Padding = 2
    
39.         Enc.IV = UTF8.GetBytes_4(Iv)
    
40.         Enc.Key = UTF8.GetBytes_4(Key)
    
41.         BytesText = Str
    
42.         If Types = "Base64" Then
    
43.                 Set XML = Server.CreateObject("Msxml2.DOMDocument")
    
44.                 Set Node = XML.CreateElement("TmpNode")
    
45.                 Node.DataType = "bin.base64"
    
46.                 Node.Text = BytesText
    
47.                 Bytes = Node.NodeTypedValue
    
48.                 Set XML = Nothing
    
49.                 Set Node = Nothing
    
50.         ElseIf Types = "Hex" Then
    
51.                 Set XML = Server.CreateObject("Msxml2.DOMDocument")
    
52.                 Set Node = XML.CreateElement("TmpNode")
    
53.                 Node.DataType = "bin.hex"
    
54.                 Node.Text = BytesText
    
55.                 Bytes = Node.NodeTypedValue
    
56.                 Set XML = Nothing
    
57.                 Set Node = Nothing
    
58.         End If
    
59.         Outstr = Enc.CreateDecryptor().TransformFinalBlock((Bytes),0,Lenb(Bytes))
    
60.         DESDecrypt = UTF8.GetString((Outstr))
    
61.         Set Enc = Nothing
    
62.         Set UTF8 = Nothing
    
63. End Function

复制代码

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

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

是的，保存下来的