25-02-2008, 01:08 AM
السلام عليكم
أعذرني سأجيبك بما لدي لعموم الفائدة
انظر في الملفات المرفقات
أعذرني سأجيبك بما لدي لعموم الفائدة
كود :
var
s: string[255];
c: array[0..255] of Byte absolute s;
i: Integer;
begin
{ Crypte le text }
s := Edit1.Text;
for i := 1 to ord(s[0]) do c[i] := 23 xor c[i];
LabCrype.Caption := s;
{ Décrypte le text }
s := LabCrype.Caption;
for i:=1 to Length(s) do s[i] := Char(23 xor ord(s[i]));
LabDecrype.Caption := s;
end;