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

[Mohsen1942]

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


var
S1,S2: String;
Num: Array [ 1..3 ] of Integer = (100,101,102);
Const
Code: String = 'ABKL25WMTR85SPT';
Begin
S1:='ABCDEFGH';
S2:='0123456789';
End;


با تشکر

[Mohsen1942]

از اساتید خارجی در این مورد سوال کردم و توابع زیر رو بهم پیشنهاد دادند :
تابع 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;

[PayamKazemi]

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

[Mohsen1942]

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

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