Base64 編碼 使用Classic ASP

ENIX.DQ

本文用於存放一份使用Classic ASP進行Base64編碼與解碼的Function程式碼



程式碼來源：http://www.freevbcode.com/ShowCode.asp?ID=5248

1. ' Functions to provide encoding/decoding of strings with Base64.
   
2. '
   
3. ' Encoding: myEncodedString = base64_encode( inputString )
   
4. ' Decoding: myDecodedString = base64_decode( encodedInputString )
   
5. '
   
6. ' Programmed by Markus Hartsmar for ShameDesigns in 2002.
   
7. ' Email me at: mark@shamedesigns.com
   
8. ' Visit our website at: http://www.shamedesigns.com/
   
9. '
   
10. 
    
11.         Dim Base64Chars
    
12.         Base64Chars =        "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
    
13.                         "abcdefghijklmnopqrstuvwxyz" & _
    
14.                         "0123456789" & _
    
15.                         "+/"
    
16. 
    
17. 
    
18.         ' Functions for encoding string to Base64
    
19.         Public Function base64_encode( byVal strIn )
    
20.                 Dim c1, c2, c3, w1, w2, w3, w4, n, strOut
    
21.                 For n = 1 To Len( strIn ) Step 3
    
22.                         c1 = Asc( Mid( strIn, n, 1 ) )
    
23.                         c2 = Asc( Mid( strIn, n + 1, 1 ) + Chr(0) )
    
24.                         c3 = Asc( Mid( strIn, n + 2, 1 ) + Chr(0) )
    
25.                         w1 = Int( c1 / 4 ) : w2 = ( c1 And 3 ) * 16 + Int( c2 / 16 )
    
26.                         If Len( strIn ) >= n + 1 Then
    
27.                                 w3 = ( c2 And 15 ) * 4 + Int( c3 / 64 )
    
28.                         Else
    
29.                                 w3 = -1
    
30.                         End If
    
31.                         If Len( strIn ) >= n + 2 Then
    
32.                                 w4 = c3 And 63
    
33.                         Else
    
34.                                 w4 = -1
    
35.                         End If
    
36.                         strOut = strOut + mimeencode( w1 ) + mimeencode( w2 ) + _
    
37.                                           mimeencode( w3 ) + mimeencode( w4 )
    
38.                 Next
    
39.                 base64_encode = strOut
    
40.         End Function
    
41. 
    
42.         Private Function mimeencode( byVal intIn )
    
43.                 If intIn >= 0 Then
    
44.                         mimeencode = Mid( Base64Chars, intIn + 1, 1 )
    
45.                 Else
    
46.                         mimeencode = ""
    
47.                 End If
    
48.         End Function       
    
49. 
    
50. 
    
51.         ' Function to decode string from Base64
    
52.         Public Function base64_decode( byVal strIn )
    
53.                 Dim w1, w2, w3, w4, n, strOut
    
54.                 For n = 1 To Len( strIn ) Step 4
    
55.                         w1 = mimedecode( Mid( strIn, n, 1 ) )
    
56.                         w2 = mimedecode( Mid( strIn, n + 1, 1 ) )
    
57.                         w3 = mimedecode( Mid( strIn, n + 2, 1 ) )
    
58.                         w4 = mimedecode( Mid( strIn, n + 3, 1 ) )
    
59.                         If w2 >= 0 Then _
    
60.                                 strOut = strOut + _
    
61.                                         Chr( ( ( w1 * 4 + Int( w2 / 16 ) ) And 255 ) )
    
62.                         If w3 >= 0 Then _
    
63.                                 strOut = strOut + _
    
64.                                         Chr( ( ( w2 * 16 + Int( w3 / 4 ) ) And 255 ) )
    
65.                         If w4 >= 0 Then _
    
66.                                 strOut = strOut + _
    
67.                                         Chr( ( ( w3 * 64 + w4 ) And 255 ) )
    
68.                 Next
    
69.                 base64_decode = strOut
    
70.         End Function
    
71. 
    
72.         Private Function mimedecode( byVal strIn )
    
73.                 If Len( strIn ) = 0 Then
    
74.                         mimedecode = -1 : Exit Function
    
75.                 Else
    
76.                         mimedecode = InStr( Base64Chars, strIn ) - 1
    
77.                 End If
    
78.         End Function

複製代碼