Introduction - If you have any usage issues, please Google them yourself
BASE64 decoding the VBS source the code Function fDecode (sStringToDecode) the Const CharList = " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/Dim iDataLength, sOutputString, iGroupInitialCharacter sStringToDecode = Replace (Replace (Replace (sStringToDecode, vbCrLf," " ), vbTab," " )," " ," " ) iDataLength = Len (sStringToDecode) If iDataLength Mod 4 < > 0 Then fDecode = " Bad string passed to fDecode () function." Exit Function