Uses wodCrypt ActiveX component

Dim inBlob As MemBlob
Set inBlob = New MemBlob

'Add some data for Base64 encoding.
inBlob.Text = "this is some test string"

Dim encData As String
'Encode data to Base64.
encData = inBlob.ToBase64
Debug.Print encData

Dim outBlob As MemBlob
Set outBlob = New MemBlob

'Decode Base64 data previously encoded in this example.
outBlob.FromBase64 (encData)
Debug.Print outBlob.Text

Uses wodCrypt ActiveX component

Dim inBlob As WODCRYPTCOMLib.MemBlob
inBlob = New WODCRYPTCOMLib.MemBlob

'Add some data for Base64 encoding.
inBlob.Text = "this is some test string"

Dim encData As String
'Encode data to Base64.
encData = inBlob.ToBase64
Console.WriteLine(encData)

Dim outBlob As WODCRYPTCOMLib.MemBlob
outBlob = New WODCRYPTCOMLib.MemBlob

'Decode Base64 data previously encoded in this example.
outBlob.FromBase64(encData)
Console.WriteLine(outBlob.Text)

Uses wodCrypt ActiveX component

WODCRYPTCOMLib.MemBlob inBlob;
inBlob = new WODCRYPTCOMLib.MemBlob();

//Add some data for Base64 encoding.
inBlob.Text = "this is some test string";

string encData;
//Encode data to Base64.
encData = inBlob.ToBase64();
Console.WriteLine(encData);

WODCRYPTCOMLib.MemBlob outBlob;
outBlob = new WODCRYPTCOMLib.MemBlob();

//Decode Base64 data previously encoded in this example.
outBlob.FromBase64(encData);
Console.WriteLine(outBlob.Text);