+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم تشفير المصفوفات (/showthread.php?tid=4502)
كيف يتم تشفير المصفوفات - kakarotte - 02-09-2012
بسم الله الرحمن الرحيم
- كيف يتم تشفير المصفوفات لاني اعرف اشفر فقط الكلمات
مثال انا عندي مصفوفة
123
456
789
مثلا تشفيرها لترجع
abc
def
ghi
فكيف يمكنني ذلك مع الاحتفاض بصيغة المصفوفة و طولها ايضا ؟
من له درس او مرجع كامل عن المصفوفات فلا يبخل علينا.
كيف يتم تشفير المصفوفات - King SofT - 02-09-2012
وعليكم السلام
هناك عدة انواع للتشفير وهذا مثال عن التشفير بطريقة " سيزار " المشهورة
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 - 02-09-2012
هناخطا في الاجراء
كود :
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 - 02-09-2012
كيف نتعامل مع هذا ؟
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 - 02-09-2012
امر سهل نسبيا استخدم جواب King SofT وبدل line
colune استخدم length(abuffer) -1
والنتيجة ضعها في مصفوفة كما في هذا المثال
http://www.delphi4arab.net/forum/showthread.php?tid=7678
كيف يتم تشفير المصفوفات - محمد عبد العزيز - 08-09-2012
السلام عليكم
كما يبدو ما بالمصفوفة ملف تنفيذي
التشفير سهل والاحسن يكون عند تحويل الملف الى مصفوفة
فقط انتبه: بعد الفك قد تجد معارضة بعض مضادات الفيروسات وبرامج الحماية