02-09-2012, 12:41 PM
وعليكم السلام
هناك عدة انواع للتشفير وهذا مثال عن التشفير بطريقة " سيزار " المشهورة
type
Matx =array[1..10,1..10]of Char;
متطلبات الاجراء :
M : هي المصفوفة التي ترريد تشفيرها
Line: عدد اسطرها
Colune: عدد اعمدتها
pas: مقدار التشفير
هناك عدة انواع للتشفير وهذا مثال عن التشفير بطريقة " سيزار " المشهورة
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: مقدار التشفير
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان