ايران ويج

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

کد: 
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'

lord_viper