كيف يتم تشفير المصفوفات

[kakarotte]

بسم الله الرحمن الرحيم

- كيف يتم تشفير المصفوفات لاني اعرف اشفر فقط الكلمات
مثال انا عندي مصفوفة
123
456
789
مثلا تشفيرها لترجع
abc
def
ghi
فكيف يمكنني ذلك مع الاحتفاض بصيغة المصفوفة و طولها ايضا ؟
من له درس او مرجع كامل عن المصفوفات فلا يبخل علينا.

[King SofT]

وعليكم السلام
هناك عدة انواع للتشفير وهذا مثال عن التشفير بطريقة " سيزار " المشهورة

type
Matx =array[1..10,1..10]of Char;

كود :

procedure Crypt(var M:Matx;Line,Colune,pas:integer); var i,j:integer; begin For i:=1 to line do for j:=1 to colune do begin M[i,j]:=chr((ord(M[i,j])+pas)div 255); end; end;

متطلبات الاجراء :
M : هي المصفوفة التي ترريد تشفيرها
Line: عدد اسطرها
Colune: عدد اعمدتها
pas: مقدار التشفير

[King SofT]

هناخطا في الاجراء

كود :

M[i,j]:=chr((ord(M[i,j])+pas) mod 255);

هذا مثال لاستعمال الاجراء

كود :

program Project1; {$APPTYPE CONSOLE} type Matx =array[1..10,1..10]of Char; var i,j:integer; m:Matx; procedure Crypt(var M:Matx;Line,Colune,pas:integer); var i,j:integer; begin For i:=1 to line do for j:=1 to colune do M[i,j]:=chr((ord(M[i,j])+pas)mod 256); end; begin for i:=1 to 3 do for j:=1 to 3 do Readln(M[i,j]); Crypt(M,3,3,5); for i:=1 to 3 do begin for j:=1 to 3 do write(m[i,j]); writeln; end; readln; end.

[kakarotte]

كيف نتعامل مع هذا ؟

aBuffer: Array [0..61951] of Byte =
(
$4D,$5A,$90,$00,$03,$00,$00,$00,$04,$00,$00,$00,
$FF,$FF,$00,$00,$B8,$00,$00,$00,$00,$00,$00,$00,
$40,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$F0,$00,$00,$00,$0E,$1F,$BA,$0E,$00,$B4,$09,$CD,
$21,$B8,$01,$4C,$CD,$21,$54,$68,$69,$73,$20,$70,
$72,$6F,$67,$72,$61,$6D,$20,$63,$61,$6E,$6E,$6F,
$74,$20,$62,$65,$20,$72,$75,$6E,$20,$69,$6E,$20,

هدفي تشفير مثل هذه المصفوفات ؟

[onexite]

امر سهل نسبيا استخدم جواب King SofT وبدل line
colune استخدم length(abuffer) -1
والنتيجة ضعها في مصفوفة كما في هذا المثال
http://www.delphi4arab.net/forum/showthr...p?tid=7678

[محمد عبد العزيز]

السلام عليكم

كما يبدو ما بالمصفوفة ملف تنفيذي
التشفير سهل والاحسن يكون عند تحويل الملف الى مصفوفة
فقط انتبه: بعد الفك قد تجد معارضة بعض مضادات الفيروسات وبرامج الحماية