Başlangıç > Kodlar > Delphi ile şifrelemek

Delphi ile ş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.


TD Software


Reklamlar
  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: