الگوریتم کدینگ Rot47

[lord_viper]

از این تابع میتوانید برای کد کردن الاعات استفاده کنید

کد:

function Rot47 (AStr: String): String;

function Rot47Char (AChr: Char): Char;
var
iAsc: Integer;
begin
Result: = '';
if (AChr = '') then
Exit;

iAsc: = Ord (AChr) + 47;
if (iAsc 126) then
iAsc: = iAsc - 94;
if (iAsc then
iAsc: = iAsc + 94;
Result: = Chr (iAsc);
end;

var
I: Integer;
begin
Result: ='';
for I: = 1 to Length (AStr) do
Result: = Result + Rot47Char (Astr [I]);
end;

روش استفاده

کد:

ShowMessage (Rot47 ('Laurent')); / / - display '{2FC6? E'

And

ShowMessage (Rot47 ('{2FC6? E')); / / - display 'Laurent'