Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

Home > Coding > Libraries > UDF / UDC Library > UDF Library

	Back
	UDC Library

User Defined Functions Library

Syntax:	Base64ToBSTR
Where:	strBase64 Base64 String to decode
Constants:	None
Return Type:	String

View Function in:

Function Base64ToBSTR(strBase64)
	'http://tbxds.xml.eurobench.com/doc/tbxds-example_Base64_ASP.html
	
    Dim Byte1, Byte2, Byte3, Byte4
    Dim Data
    Dim iterator
    Const CharMap = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

    For iterator = 0 To Len(strBase64) - 1 Step 4
        Byte1 = InStr(CharMap, Mid(strBase64, iterator + 1, 1)) - 1
        Byte2 = InStr(CharMap, Mid(strBase64, iterator + 2, 1)) - 1
        Byte3 = InStr(CharMap, Mid(strBase64, iterator + 3, 1)) - 1
        Byte4 = InStr(CharMap, Mid(strBase64, iterator + 4, 1)) - 1            
        
        Data = Data & ChrB(Byte1 * 4 + Byte2 \ 16)
        
        If Byte3 >= 0 Then
            Data = Data & ChrB((Byte2 And 15) * 16 + Byte3 \ 4)
        Else
            Data = Data & ChrB((iterator * 3 \ 4 + 1) = (Byte2 And 15) * 16)
        End If

        If Byte4 >= 0 Then
            Data = Data & ChrB((Byte3 And 3) * 64 + Byte4)
        End If
    Next
    Base64ToBSTR = Data
End Function

Script Example

Dim strInputBox: strInputBox = InputBox("Enter Base64 String")
WScript.Echo Base64ToBSTR(strInputBox)

Last Modification:
12/23/2008

More Information: None

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/8/2010 10:04:03 PM for Unknown