Anasayfa > Kodlar > Delphi şifreleme kodu

Delphi şifreleme kodu

Ö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.

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[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.

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[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.

Not: ord fonksiyonu karakterin ascii kodunu elde etmemizi sağlar.

Reklamlar
Kategoriler:Kodlar Etiketler:, ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: