Delphi 12 Decrypt - Encrypt Hatası

[mrmarman]

@RAD Coder 'ın değerli fikirleri saklı kalmak koşuluyla başka bir kulvardan soruna yaklaşmamız gereği olduğunu -kendimce / şart olmasa da- değerlendirdiğimden yazma ihtiyacı duydum...

- Şifreleme işlemi varsın olsun, varsın olmasın.

- ANSI ile kodlanmış bir örneğin "ĞÜŞİÖÇIIIII, ğüşiöçıııı" metnini MacOS olsun Win olsun fark etmez "UTF8" ile çözmeye çalışın. Nasıl bir sonuca ulaşırsınız ?  AES konusu kafanızı karıştırmasın kavramsal olarak yaklaşmak istiyorum.

şu aşağıdaki kurguyu içeren bir basit proje oluşturun. Projede form üzerinde bir Button ve iki tane de MEMO ekleyin.

Denemelerinizi bu şekilde yapın. Bende Mac olmadığı için sonucu bilemiyorum ama doğru sorular ile deneyip de sonuca ulaşılamayan konu olmadığı kanaatindeyim. Tecrübesizliğime verin ancak MacOS'ta  ANSI desteği olabilir veya olmayabilir konusu bana garip geldi keza. Bir de duruma BYTE veri olarak bakmış olalım.

procedure TForm1.BitBtn1Click(Sender: TObject);
const
  LText = 'ĞÜŞİÖÇIIIII, ğüşiöçıııı';
var
  LANSIBytes : TBytes;
  LUTF8Bytes : TBytes;
begin
  LANSIBytes := TEncoding.ANSI.GetBytes( LText );
  LUTF8Bytes := TEncoding.UTF8.GetBytes( LText );
  Memo1.Lines.Text := TEncoding.ANSI.GetString(LUTF8Bytes); //  sonuç : ĞÜŞİÖÇIIIII, ğüşiöçıııı
  Memo2.Lines.Text := UTF8Decode(Memo1.Lines.Text);         //  sonuç : ĞÜŞİÖÇIIIII, ğüşiöçıııı

//Memo2.Lines.Text := TEncoding.UTF8.GetString(LANSIBytes); //  sonuç : [Exception] No mapping for the Unicode character exists in the target multi-byte code page
end;

Buradaki amaç UTF8 kodlayıp ANSI almayı test etmiş olduk. ANSI alırken kodlar karıştı DECODE işlemi ile yeniden ANSI sonuca ulaştık. 

Bunu MacOS yapabiliyorsa destek konusu atlayabilirsiniz.