ASP VBSESCAPE

1. Function VbsEscape(ByVal Str)
   
2.         Dim I,S,C,A
   
3.         S = ""
   
4.         For I = 1 To Len(Str)
   
5.                 C = Mid(Str,I,1)
   
6.                 A = Ascw(C)
   
7.                 If (A >= 48 And A <= 57) Or (A >= 65 And A <= 90) Or (A >= 97 And A <= 122) Then
   
8.                         S = S & C
   
9.                 ElseIf InStr("@*_+-./",C) > 0 Then
   
10.                         S = S & C
    
11.                 ElseIf A > 0 And A < 16 Then
    
12.                         S = S & "%0" & Hex(A)
    
13.                 ElseIf A >= 16 And A < 256 Then
    
14.                         S = S & "%" & Hex(A)
    
15.                 Else
    
16.                         S = S & "%u" & Hex(A)
    
17.                 End If
    
18.         Next
    
19.         VbsEscape = S
    
20. End Function
    
21. 
    
22. Function VbsUnEscape(ByVal Str)
    
23.         Dim I,S,C
    
24.         S = ""
    
25.         For I = 1 To Len(Str)
    
26.                 C = Mid(Str,I,1)
    
27.                 If Mid(Str,I,2) = "%u" And I <= Len(Str) - 5 Then
    
28.                         If IsNumeric("&H" & Mid(Str,I + 2,4)) Then
    
29.                                 S = S & Chrw(Cint("&H" & Mid(Str,I + 2,4)))
    
30.                                 I = I + 5
    
31.                         Else
    
32.                                 S = S & C
    
33.                         End If
    
34.                 ElseIf C = "%" And I <= Len(Str) - 2 Then
    
35.                         If IsNumeric("&H" & Mid(Str,I + 1,2)) Then
    
36.                                 S = S & Chrw(Cint("&H" & Mid(Str,I + 1,2)))
    
37.                                 I = I + 2
    
38.                         Else
    
39.                                 S = S & C
    
40.                         End If
    
41.                 Else
    
42.                         S = S & C
    
43.                 End If
    
44.         Next
    
45.         VbsUnEscape = S
    
46. End Function

复制代码

这两个函数作用是什么？

浪子回头 发表于 2024-11-29 15:28
这两个函数作用是什么？

VBS加密和解密啊