Delphi metin şifreleme örneği

Form üzerine 2 adet edit ve 2 adet button ekliyoruz
Edit1=>metin alanı
Edit2=>şifre alanı
Button1=>şifreleme butonu
Button2=>çözümleme butonu

Button1 üzerine çift tıklayıp fonksiyonu aşşağıdaki kodla değiştiriyoruz



Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: char;
sonuc:string;
i,k:integer;
begin
k:=1;
for i := 1 to strlen(pchar(edit1.text)) do
begin
a:=edit1.Text;
b:=edit2.Text[k];
c:=chr(( ord(a) + ord(b) ) mod 256);
sonuc:=sonuc + c;
end;
edit1.text:=sonuc;
end;
Daha sonra button2 ye tıklayarak fonksiyonu aşşağıdaki kod ile değiştiriyoruz


Kod:
procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c: char;
sonuc:string;
i,k,t:integer;
begin
k:=1;
for i := 1 to strlen(pchar(edit1.text)) do
begin
a:=edit1.Text;
b:=edit2.Text[k];
t:=ord(a) - ord(b);
if t<0 then t := t + 256;
c:=chr(t);
sonuc:=sonuc + c;
end;
edit1.text:=sonuc;
end;