用VB实现一个简单的ESMTP客户端

+ Chr(((c And 31) * 64) Or (char2 And 31))
        Case 14
            char2 = Asc(Mid(str, i + 1, 1))
            i = i + 1
            char3 = Asc(Mid(str, i + 1, 1))
            i = i + 1
            out = out + Chr(((c And 15) * 4096) Or ((char2 And 63) * 64) Or ((char3 And 63)))
        End Select
    Wend

    utf8to16 = out
End Function