Kullanım

Metin

var sb: TSecureBase;
var encoding: TSBEncoding;
var res: string;

//encoding := TSBEncoding.Unicode;
encoding := TSBEncoding.UTF8;
sb := TSecureBase.Create(encoding);
sb.SetSecretKey(secretkey);

//encoding
res := sb.Encode("plain text data");

//decoding
try
	res := sb.Decode("encoded data");
except on ex: Exception do
	Application.MessageBox(PChar('invalid decoding!'), PChar('!!'), MB_ICONINFORMATION + MB_OK);
end;

Dosya

var sb: TSecureBase;
var encoding: TSBEncoding;
var filedata, encodeddata, decodeddata: string;

encoding := TSBEncoding.UTF8;
sb := TSecureBase.Create(encoding);
sb.SetSecretKey('xcompany-secret-key');

filedata := TFile.ReadAllText('data.txt');
encodeddata := sb.Encode(filedata);
TFile.WriteAllText('encoded.txt', encodeddata, TEncoding.UTF8);

decodeddata := sb.Decode(encodeddata);
TFile.WriteAllText('decoded.txt', decodeddata, TEncoding.UTF8);object

Github'ta bulunan SecureBaseApp uygulaması üzerinden örnek kullanımları inceleyebilirsiniz.

---