如何判断一个字符串是否经过base64加密过？

这个问题其实对很多像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