|
|
|
Base64EncodeBinary(BinaryString: String): String
Returns Base64 encoded string version of a binary string.
Base64EncodeBinary function has these named arguments:
Parameter |
Description |
Binary String |
Required. Text string to be encoded. |
Sample code:
Dim Source as String
Source = "0101010001101000011001010010000001110001011101010110100101100011011010110010000001100010011100100110111101110111011011100010000001100110011011110111100000100000011010100111010101101101011100000111001100100000011011110111011001100101011100100010000000110001001100110010000001101100011000010111101001111001001000000110010001101111011001110111001100101110"
Print "Binary Source:"
Print Source
Print ""
Dim Encoded as String
Print "Base64Encoded:"
Encoded = Base64EncodeBinary(Source)
Print Encoded
Print ""
Dim Decoded as String
Decoded = Base64DecodeBinary(Encoded)
Print "Base64Decoded:"
Print Decoded
Print ""
Dim PayLoad as String
Payload = Base64DecodeString(Encoded)
Print "Payload:"
Print Payload
Print ""
|
|
|
