■ BASE64 문자열 인코딩/디코깅 하기 예제

----------------------------------------------------------------------------------------------------

Dim strBase64 As String

 

strBase64 = GetBase64String(StrConv("테스트 문자열", vbFromUnicode))

 

Print strBase64

    

Print StrConv(GetUnicodeString(strBase64), vbUnicode)

----------------------------------------------------------------------------------------------------

 

■ BASE64 문자열 인코딩/디코깅 하기

----------------------------------------------------------------------------------------------------

1. 프로젝트 / 참조 메뉴를 클릭한다.

 

2. 참조 대화 상자에서 "Microsoft XML, v6.0" 항목을 체크한다.

 

 

3. 아래 코드를 추가한다.

 

Private Function GetBase64String(ByRef pUnicodeByteArray() As Byte) As String

 

    Dim pDOMDocument   As MSXML2.DOMDocument

    Dim pXMLDOMElement As MSXML2.IXMLDOMElement

    

    Set pDOMDocument = New MSXML2.DOMDocument

    

    Set pXMLDOMElement = pDOMDocument.createElement("b64")

    

    pXMLDOMElement.dataType = "bin.base64"

    

    pXMLDOMElement.nodeTypedValue = pUnicodeByteArray

    

    GetBase64String = pXMLDOMElement.Text

    

    Set pXMLDOMElement = Nothing

    

    Set pDOMDocument = Nothing

 

End Function

 

Private Function GetUnicodeString(ByVal strBase64 As String) As Byte()

 

    Dim pDOMDocument   As MSXML2.DOMDocument

    Dim pXMLDOMElement As MSXML2.IXMLDOMElement

    

    Set pDOMDocument = New MSXML2.DOMDocument

    

    Set pXMLDOMElement = pDOMDocument.createElement("b64")

    

    pXMLDOMElement.dataType = "bin.base64"

    

    pXMLDOMElement.Text = strBase64

    

    GetUnicodeString = pXMLDOMElement.nodeTypedValue

    

    Set pXMLDOMElement = Nothing

    

    Set pDOMDocument = Nothing

 

End Function

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요