Delphi encryption (UNICODE Example)

// encrypted with www.stringencrypt.com (v1.0.0) [Delphi / Pascal]
var
  // myLabel = "Delphi String Encryption"
  myLabel: array[0..25] of WideChar;
  sxYuv: Integer;
  STMzA: Integer;
 
begin
 
  myLabel[18] := WideChar($A65B); myLabel[14] := WideChar($A4CB);
  myLabel[20] := WideChar($A634); myLabel[11] := WideChar($A62F);
  myLabel[3] := WideChar($A661); myLabel[17] := WideChar($A62D);
  myLabel[23] := WideChar($A62B); myLabel[19] := WideChar($A631);
  myLabel[9] := WideChar($A655); myLabel[24] := WideChar($A5DC);
  myLabel[16] := WideChar($A5FF); myLabel[12] := WideChar($A627);
  myLabel[21] := WideChar($A640); myLabel[15] := WideChar($A633);
  myLabel[7] := WideChar($A5F8); myLabel[22] := WideChar($A625);
  myLabel[13] := WideChar($A5BF); myLabel[1] := WideChar($A630);
  myLabel[8] := WideChar($A658); myLabel[5] := WideChar($A630);
  myLabel[10] := WideChar($A633); myLabel[0] := WideChar($A610);
  myLabel[6] := WideChar($A5A6); myLabel[2] := WideChar($A656);
  myLabel[4] := WideChar($A630);
 
  for STMzA := 0 to 25 do
  begin
    sxYuv := Ord(myLabel[STMzA]);
    sxYuv := sxYuv + $E19B;
    sxYuv := sxYuv xor $EC94;
    sxYuv := sxYuv + STMzA;
    sxYuv := sxYuv - STMzA;
    sxYuv := sxYuv + STMzA;
    sxYuv := sxYuv xor $965F;
    sxYuv := sxYuv + $025B;
    sxYuv := not sxYuv;
    myLabel[STMzA] := WideChar(sxYuv);
  end;
 
  ShowMessage(myLabel);

Pascal encryption (ANSI Example)

// encrypted with www.stringencrypt.com (v1.0.0) [Delphi / Pascal]
var
  // myLabel = "Pascal String Encryption"
  myLabel: array[0..25] of Char;
  aDHIO: Integer;
  bZwuB: Integer;
 
begin
 
  myLabel[22] := Char($57); myLabel[9] := Char($3D);
  myLabel[18] := Char($49); myLabel[10] := Char($F1);
  myLabel[20] := Char($52); myLabel[2] := Char($47);
  myLabel[14] := Char($F9); myLabel[23] := Char($57);
  myLabel[1] := Char($F2); myLabel[11] := Char($3B);
  myLabel[5] := Char($EB); myLabel[0] := Char($E2);
  myLabel[17] := Char($55); myLabel[13] := Char($AF);
  myLabel[15] := Char($3F); myLabel[8] := Char($3E);
  myLabel[21] := Char($DE); myLabel[4] := Char($F7);
  myLabel[24] := Char($BA); myLabel[7] := Char($E2);
  myLabel[3] := Char($F6); myLabel[16] := Char($E5);
  myLabel[12] := Char($F5); myLabel[19] := Char($51);
  myLabel[6] := Char($B4);
 
  for bZwuB := 0 to 25 do
  begin
    aDHIO := Ord(myLabel[bZwuB]);
    aDHIO := aDHIO + $28;
    aDHIO := aDHIO xor bZwuB;
    Inc(aDHIO);
    aDHIO := not aDHIO;
    aDHIO := aDHIO xor bZwuB;
    aDHIO := aDHIO xor $57;
    aDHIO := aDHIO xor bZwuB;
    aDHIO := aDHIO - $53;
    myLabel[bZwuB] := Char(aDHIO);
  end;
 
  ShowMessage(myLabel);