Encoding و Decoding

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

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;

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

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

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

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

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

نقل قول:

---

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

---

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

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

نقل قول:

---

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

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

---

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

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

نقل قول:

---

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

---

نقل قول:

---

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

---

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

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

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