محافظت از متغیرها :

با عرض سلام،
خواستم بپرسم چگونه از متغیرها میتوانیم محافظت کنیم تا کسی نتونه به متغیرها دسترسی داشته باشه و مقادیر موجود در آنها رو تغییر بده ؟
مثلا :

var  

  S1,S2: String;  

  Num: Array [ 1..3 ] of Integer = (100,101,102);

Const

  Code: String = 'ABKL25WMTR85SPT';

Begin

  S1:='ABCDEFGH';

  S2:='0123456789';

End;

با تشکر

از اساتید خارجی در این مورد سوال کردم و توابع زیر رو بهم پیشنهاد دادند :
تابع Encode یک رشته میگیره و اونو تبدیل به یک رشته دیگه میکنه
و تابع Decode هم رشته تغییر یافته را دوباره به رشته اصلی تبدیل میکنه

Function Encode(sForCrypt: AnsiString): AnsiString;

Function Decode(sForDecrypt: AnsiString): AnsiString;

//----------------------------------------------------------------------------------

Function Encode(sForCrypt: AnsiString): AnsiString;

var

  i: Smallint;

  n: Byte;

  sTmpString: AnsiString;

begin

  n:=2;

  for i:=1 to Length(sForCrypt) do begin

    n := n+1; if n>3 then n := 1;

    sTmpString := sTmpString + AnsiChar(Ord(sForCrypt[i])-n);

  end;

  Result := sTmpString;

end;

//----------------------------------------------------------------------------------

Function Decode(sForDecrypt: AnsiString): AnsiString;

var

  i: Smallint;

  n: Byte;

  sTmpString: AnsiString;

begin

  n:=2;

  for i:=1 to Length(sForDecrypt) do begin

    n := n+1; if n>3 then n := 1;

    if Ord(sForDecrypt[i])+n>255 then break;

    sTmpString := sTmpString + AnsiChar(Ord(sForDecrypt[i])+n);

  end;

  Result := sTmpString;

end;

//----------------------------------------------------------------------------------

Var

  Str: String;

Begin

  Str:=Encode('ABCDEFGH');  //=> Str= >AAADDD

  ShowMessage(Decode(Str));  //=> Str= ABCDEFGH

end;

میتونی از Single File استفاده کنی و فایل sfs تولید کنی و بعد از طریق فراخوانی آن تو برنامه باهش کارکنی

نقل قول:

---

نوشته شده توسط PayamKazemi

میتونی از Single File استفاده کنی و فایل sfs تولید کنی و بعد از طریق فراخوانی آن تو برنامه باهش کارکنی

---

ممنون،میتونید بیشتر توضیح بدید
اگه ممکنه یه نمونه کد هم بزارید
با تشکر