Delphi DLL

Obfuscate String

Demonstrates how to obfuscate and unobfuscate a string. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
sb: HCkStringBuilder;
s: PWideChar;
sb2: HCkStringBuilder;
s2: PWideChar;

begin
success := False;

sb := CkStringBuilder_Create();

s := 'Hello World!';

CkStringBuilder_Append(sb,s);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));

// Output is "Hello World!";

// Obfuscate the string.
// This is NOT encryption.  It's just a simple obfuscation.
CkStringBuilder_Obfuscate(sb);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));

// Output is 2GsgGhbSQVyG8Vb9

// -------------------------
// Unobfuscate.
sb2 := CkStringBuilder_Create();
s2 := '2GsgGhbSQVyG8Vb9';
CkStringBuilder_Append(sb2,s2);
CkStringBuilder_Unobfuscate(sb2);

Memo1.Lines.Add(CkStringBuilder__getAsString(sb2));

// Output is "Hello World!";

CkStringBuilder_Dispose(sb);
CkStringBuilder_Dispose(sb2);

end;