给贝贝的，Base64编码（带有Q和B编码）——VB.NET

给贝贝的，Base64编码（带有Q和B编码）——VB.NET

on Strict Off

Option Explicit On

Option Compare Text

Imports Microsoft.VisualBasic.Compatibility

Namespace Blood.Com.ClassLib

Public Class Security

Private pbBase64Byt(63) As Byte

Private Const BASE64CHR As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="

Private Const Q_CODE_HDR As String = "=?ISO-8859-1?Q?"

Private Const B_CODE_HDR As String = "=?ISO-8859-1?B?"

Private Const CODE_END As String = "?="

Public Sub New()

MyBase.New()

Dim intPtr As Integer

For intPtr = 0 To 63

pbBase64Byt(intPtr) = Asc(Mid(BASE64CHR, intPtr + 1, 1))

Next

End Sub

Protected Overrides Sub Finalize()

MyBase.Finalize()

End Sub

@#对字符串进行B或Q编码