Uses wodCrypt ActiveX component

Dim inBlob As MemBlob
Set inBlob = New MemBlob

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

Dim encData As String
'Encode data to Hex.
encData = inBlob.ToHex
Debug.Print encData

Dim outBlob As MemBlob
Set outBlob = New MemBlob

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

Uses wodCrypt ActiveX component

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

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

Dim encData As String
'Encode data to Hex.
encData = inBlob.ToHex
Console.WriteLine(encData)

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

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

Uses wodCrypt ActiveX component

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

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

string encData;
//Encode data to Hex.
encData = inBlob.ToHex();
Console.WriteLine(encData);

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

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