Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Delphi metin şifreleme örneği

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

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;
 
Üst Alt