Delphi Şifreleme Kodu

Şimdi aklıma geldi 10 dk. da yazıverdim . Önce form üzerine iki adet Edit nesnesi ve iki adet button ekliyoruz.

Edit1 - Metin Alanı
Edit2 - Şifre Alanı
Button1 - Şifreleme Buttonu
Button2 - Çözümleme Buttonu

Şimdi Button1 üstüne çift tıklayıp fonksiyonu aşağıdakiyle değiştirin.

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[i];
b:=edit2.Text[k];
c:=chr(( ord(a) + ord(b) ) mod 256);
sonuc:=sonuc + c;
end;
edit1.text:=sonuc;
end;


Daha sonra Button2 üzerine çift tıklayıp aşağıdaki kodla değiştirin.
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[i];
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;

İşlem bu kadar ekran görüntüsü aşağıdaki gibidir.

Resmini Görmek İçin tıklayın ; https://2img.net/r/ihimizer/img231/7136/sifrelewk6.png

Yorumlarınızı Bekliyorum

Lütfen Forum Sitemize Daha Çok girelim Arkadaşlarımızı Tanıdıklarımıza Tavsiye Edelim
Ve sayımızı Çoğaltalım..

Hedeflerimiz Daha çok üye yaparak genişlemek...