تشفيـــر وفــك تشفيــــر
3 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
تشفيـــر وفــك تشفيــــر
بسم الله الرحمن الرحيم
تشفيـــر وفــك تشفيــــر هذه طريقة من الطرائق
procedure TForm1.Button2Click(Sender: TObject);
// البرنامج الذي يقوم بتشفير
var
F1 :TextFile;
F2 :file of real; // TextFile;
c :char;
x :real; // integer
begin
assignfile(f1,'text1.txt'); // text1.dat
assignFile(f2,'text2.txt'); // text2.dat
reset(f1);rewrite(f2);
repeat
read(F1,c);
X := Ord(c);
Write(F2,x);
Until
Eof(F1);
CloseFile(F1); CloseFile(F2);
end;
procedure TForm1.Button3Click(Sender: TObject);
// البرنامج الدي يقوم بفك التشفير
var
f2 :file of real; // tExtFile
f3 :textFile;
c :char;
x :real; // integer
Begin
assignFile(f2,'text2.txt'); // text2.dat
assignFile(f3,'text3.txt'); // text3.dat
reset(f2);rewrite(f3);
repeat
read(F2, x);
C := chr(Trunc(x)); //
Write(F3,C);
Until Eof(F2);
CloseFile(F2);CloseFile(F3);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button2.Caption := 'البرنامج الذي يقوم بتشفير';
Button3.Caption := 'البرنامج الدي يقوم بفك التشفير';
end;
end;;;
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
رد: تشفيـــر وفــك تشفيــــر
جزاك الله خيرا و كل خير وشكرا
sad13- مبرمج
- عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014
رد: تشفيـــر وفــك تشفيــــر
بارك الله فيك
sdk11- مبرمج مجتهد
- عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى