Re-Encode a String (Hex, Base64, URL, etc)

Demonstrates how to convert from one encoding to another. For example: base64 to hex, URL to base64, base64 to quoted-printable, etc.

Note: The ReEncode method is unreleased at the time of this writing (08-April-2008) The next major Chilkat Crypt2 release after this date will include the ReEncode method.

Download Chilkat Crypt ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCRYPT2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
hexStr: String;
fromEncoding: String;
toEncoding: String;
base64: String;
qp: String;
urlEnc: String;

begin

crypt := TChilkatCrypt2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := crypt.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Crypt component unlock failed');

  end;

hexStr := '41424344E0E1E2E3';

fromEncoding := 'hex';
toEncoding := 'base64';

//  Convert from hex to base64
base64 := crypt.ReEncode(hexStr,fromEncoding,toEncoding);
Memo1.Lines.Add(base64);

//  Now convert from base64 to quoted-printable:
fromEncoding := 'base64';
toEncoding := 'quoted-printable';
qp := crypt.ReEncode(base64,fromEncoding,toEncoding);
Memo1.Lines.Add(qp);

//  Now convert from quoted-printable to URL:
fromEncoding := 'quoted-printable';
toEncoding := 'url';
urlEnc := crypt.ReEncode(qp,fromEncoding,toEncoding);
Memo1.Lines.Add(urlEnc);

//  Now convert from URL back to hex:
fromEncoding := 'url';
toEncoding := 'hex';
hexStr := crypt.ReEncode(urlEnc,fromEncoding,toEncoding);
Memo1.Lines.Add(hexStr);

//  The output of this program is:
//  QUJDRODh4uM=
//  ABCD=E0=E1=E2=E3
//  ABCD%E0%E1%E2%E3
//  41424344E0E1E2E3

end;