06-25-2007, 23:52: PM
Şifreleme Değiştir Algoritması
DELPHİ'DE ŞİFRELEMDE KULLANILAN DEĞİŞTİR ALGORİTMASI
function tform1.degistir(gelensifre:string):string;
var
K,S:array[1.50] of char;
i,j:integeR;
gidensifre:string;
begin
gidensifre:='';
K[1]:='A';
K[2]:='B';
K[3]:='C';
K[4]:='Ç';
K[5]:='D';
K[6]:='E';
K[7]:='F';
K[8]:='G';
K[9]:='Ğ';
K[10]:='H';
K[11]:='I';
K[12]:='İ';
K[13]:='J';
K[14]:='K';
K[15]:='L';
K[16]:='M';
K[17]:='N';
K[18]:='O';
K[19]:='Ö';
K[20]:='P';
K[21]:='R';
K[22]:='S';
K[23]:='Ş';
K[24]:='T';
K[25]:='U';
K[26]:='Ü';
K[27]:='V';
K[28]:='Y';
K[29]:='Z';
K[30]:='Q';
K[31]:='X';
K[32]:='W';
K[33]:='0';
K[34]:='1';
K[35]:='2';
K[36]:='3';
K[37]:='4';
K[38]:='5';
K[39]:='6';
K[40]:='7';
K[41]:='8';
K[42]:='9';
K[43]:='-';
K[44]:=',';
K[45]:=' ';
K[46]:='.';
K[47]:='&';
K[48]:='$';
K[49]:='#';
K[50]:='!';
S[1]:='N' ;
S[2]:='Y' ;
S[3]:='U' ;
S[4]:='B' ;
S[5]:='2' ;
S[6]:='P' ;
S[7]:='A' ;
S[8]:='D' ;
S[9]:='7' ;
S[10]:='Z';
S[11]:='C';
S[12]:='6';
S[13]:='W';
S[14]:='Q';
S[15]:='R';
S[16]:='4';
S[17]:='F';
S[18]:='X';
S[19]:='J';
S[20]:='1';
S[21]:='E';
S[22]:='S';
S[23]:='H';
S[24]:='5';
S[25]:='L';
S[26]:='G';
S[27]:='T';
S[28]:='M';
S[29]:='K';
S[30]:='9';
S[31]:='V';
S[32]:='O';
S[33]:='Ç';
S[34]:='I';
S[35]:='Ü';
S[36]:='$';
S[37]:='Ğ';
S[38]:='!';
S[39]:='&';
S[40]:='#';
S[41]:='Ş';
S[42]:=',';
S[43]:='0';
S[44]:='Ö';
S[45]:='3';
S[46]:='8';
S[47]:='-';
S[48]:='İ';
S[49]:=' ';
S[50]:='.';
for i:=1 to length(gelensifre) do
for j:=1 to 50 do
if gelensifre=K[j] then gidensifre:=gidensifre+S[j];
degistir:=gidensifre;
end;
DELPHİ'DE ŞİFRELEMDE KULLANILAN DEĞİŞTİR ALGORİTMASI
function tform1.degistir(gelensifre:string):string;
var
K,S:array[1.50] of char;
i,j:integeR;
gidensifre:string;
begin
gidensifre:='';
K[1]:='A';
K[2]:='B';
K[3]:='C';
K[4]:='Ç';
K[5]:='D';
K[6]:='E';
K[7]:='F';
K[8]:='G';
K[9]:='Ğ';
K[10]:='H';
K[11]:='I';
K[12]:='İ';
K[13]:='J';
K[14]:='K';
K[15]:='L';
K[16]:='M';
K[17]:='N';
K[18]:='O';
K[19]:='Ö';
K[20]:='P';
K[21]:='R';
K[22]:='S';
K[23]:='Ş';
K[24]:='T';
K[25]:='U';
K[26]:='Ü';
K[27]:='V';
K[28]:='Y';
K[29]:='Z';
K[30]:='Q';
K[31]:='X';
K[32]:='W';
K[33]:='0';
K[34]:='1';
K[35]:='2';
K[36]:='3';
K[37]:='4';
K[38]:='5';
K[39]:='6';
K[40]:='7';
K[41]:='8';
K[42]:='9';
K[43]:='-';
K[44]:=',';
K[45]:=' ';
K[46]:='.';
K[47]:='&';
K[48]:='$';
K[49]:='#';
K[50]:='!';
S[1]:='N' ;
S[2]:='Y' ;
S[3]:='U' ;
S[4]:='B' ;
S[5]:='2' ;
S[6]:='P' ;
S[7]:='A' ;
S[8]:='D' ;
S[9]:='7' ;
S[10]:='Z';
S[11]:='C';
S[12]:='6';
S[13]:='W';
S[14]:='Q';
S[15]:='R';
S[16]:='4';
S[17]:='F';
S[18]:='X';
S[19]:='J';
S[20]:='1';
S[21]:='E';
S[22]:='S';
S[23]:='H';
S[24]:='5';
S[25]:='L';
S[26]:='G';
S[27]:='T';
S[28]:='M';
S[29]:='K';
S[30]:='9';
S[31]:='V';
S[32]:='O';
S[33]:='Ç';
S[34]:='I';
S[35]:='Ü';
S[36]:='$';
S[37]:='Ğ';
S[38]:='!';
S[39]:='&';
S[40]:='#';
S[41]:='Ş';
S[42]:=',';
S[43]:='0';
S[44]:='Ö';
S[45]:='3';
S[46]:='8';
S[47]:='-';
S[48]:='İ';
S[49]:=' ';
S[50]:='.';
for i:=1 to length(gelensifre) do
for j:=1 to 50 do
if gelensifre=K[j] then gidensifre:=gidensifre+S[j];
degistir:=gidensifre;
end;