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

[طيباوي ابو علي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;;;

[طيباوي ابو علي1]

هل مـــــــــــــن رد

[طيباوي ابو علي1]

بــارك الله في إداة المنتدى لقد تحصلت على نـــــــــــجــمـــة