// 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);