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]

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