Anasayfa > Kodlar > Delphi ile text şifrelemek

Delphi ile text şifrelemek


3 edit ve iki button gerekli. edit1 sifrelenecek yazi, edit2 sifreleme türü ve edit3 ise sifrelenmis yazi icin kullanilacak. button1 sifreleyecek (ya da desifre edecek) button2 ise programin kapatilmasi islemini görecek. saygilarimla...
unit Uchifre;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
Edit3: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation
function gizli(s:string; chifre:char):String;
var a,b,i:integer;
c:string;
begin
c:=' ';
for i:=1 to length(s) do
begin
a:=ord(s[i]);
b:=ord(chifre);
c:=c+(CHR(a xor b));
end;
result:=(c);
end;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;

procedure TForm1.Button1Click(Sender: TObject);
var s,a:string;
key:char;

begin
s:=(edit1.text);
a:=(edit2.Text);
key:=a[1];
edit3.text:=gizli(s,key);
end;
end.

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

Bir Cevap Yazı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: