這個問題其實對很多像java、c程式設計師來講還是稍有難度的，因為他們要去明白base64加密的原理，然後做出詳細的分析，才能寫程式。對VB程式設計師一點難度也沒有，不用去關心原理什麼的，直接用微軟的COM介面加上邏輯錯誤判斷就行了。我寫了一個示例的程式碼：

Private Function DecodeBase64(strData) Set objXML = CreateObject("Msxml2.DOMDocument") Set objNode = objXML.createElement("b64") objNode.dataType = "bin.base64" objNode.Text = strData DecodeBase64 = objNode.nodeTypedValue Set objNode = Nothing Set objXML = NothingEnd Functionon error resume next wsh.echo DecodeBase64("MzIzZXdlZg==")if err.number<> 0 then msgbox("no")end ifif err.number=0 then msgbox("yes")end if