Encoding و Decoding

[Delphi Skyline]

اینم یه کد کوچولو برای کد کردن ::



procedure TForm1.Button1Click(Sender: TObject);
var
s: String[255];
c: array[0..255] of Byte absolute s;
i: Integer;
begin
//کردنEncode

s := 'Sample';
for i := 1 to Ord(s[0]) do c[i] := 23 xor c[i];
Label1.Caption := s;

//کردنDecode

s := Label1.Caption;
for i := 1 to Length(s) do s[i] := Char(23 xor Ord(c[i]));
Label2.Caption := s;
end;

[Mohammad_Mnt]

این کد کردن ظرف 3 ثانیه دی.کد می شه !!

[Delphi Skyline]

عزیز من این یه مثال

[Delphi Skyline]

در ضمن چون Decodesh روبروطه 3 ثانیه تمومه وگرنه ...

[Ehsansh]

کسی یک سیستم کدینگ حرفه ای نداره؟
یا یک الگوریتم استاندارد؟

[Delphi Skyline]

اگه می خوای من می تونم برات بنویسم

[mzjahromi]

کسی یک سیستم کدینگ حرفه ای نداره؟
یا یک الگوریتم استاندارد؟
همین الگوریتم ولی با ماسکهای غیر متعارف کرکش رو خیلی سخت میکنه

[Delphi Skyline]

درسته . این اصولشو بهت می گه . تو دیگه با سلیقه خودت تغییرش بده .

[Ehsansh]

همین الگوریتم ولی با ماسکهای غیر متعارف کرکش رو خیلی سخت میکنه
میشه یه الگوریتم با دو ماسک متفاوت برا بذارید؟

[Delphi Skyline]

اینا سلیقه این . مثلا می تونی چند تا جمع و ضرب و تقسیم و .... رو روش انجام بدی .

[mzjahromi]

میشه یه الگوریتم با دو ماسک متفاوت برا بذارید؟

اینا سلیقه این . مثلا می تونی چند تا جمع و ضرب و تقسیم و .... رو روش انجام بدی .

منظور من از غیر متعارف اینا نبود. منظور من چیزی بود که نشه به این راحتی پیداش کرد.مثلا یه ماسک 13 بیتی , ....

[Delphi Skyline]

درسته . من منظور شما رو خوب متوجه نشدم . ببخشید .

[Sepidar]

آقای وحید نصیری خیلی وقت پیش یه الگوریتم انکودینگ رو کامل توضیح داده بود.
بگردید، پیدا میکنید. یه فایل پی دی اف بود