Private Const BASE64CHR As String = “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=”Private psBase64Chr(0 To 63) As String‘从一个经过Base64的字符串中解码到源字符串Public Function DecodeBase64String(str2Decode As String) As StringD…