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

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



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



هذه طريقة من الطرق المختلفة في عالم تشفير

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

via مدونة لكل الجزائريين و العرب http://ift.tt/PYXN7J