دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

تشفيـــر وفــك تشفيــــر

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تشفيـــر وفــك تشفيــــر

مُساهمة  alla في 12/1/2014, 8:42 pm


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

تشفيـــر وفــك تشفيــــر هذه طريقة من الطرائق




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;;;


alla
مبرمج مجتهد

عدد المساهمات : 720
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تشفيـــر وفــك تشفيــــر

مُساهمة  sad13 في 30/1/2014, 7:29 pm

جزاك الله خيرا و كل خير وشكرا

sad13
مبرمج

عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تشفيـــر وفــك تشفيــــر

مُساهمة  sdk11 في 13/6/2015, 9:16 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 109
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى