pascal 'da güvenlik üzerine açıklamalar ve birde kod. Şifre orneğifunction sifre(x,y,harfsay : integer;gorun : boolean):string;
var
i,durum :integer;
tus : char;
bosluk,yildiz,kelime : string;
begin
kelime:="; yildiz:="; bosluk:=";
for i:=1 to harfsay do bosluk:=bosluk+' ';
gotoxy(x,y);
repeat
repeat
until keypressed;
tus:=readkey;
if tus=chr(8) then
begin
delete(kelime,length(kelime),1);
delete(yildiz,length(yildiz),1);
end;
if (tus=chr(32)) then begin kelime:=kelime+tus; yildiz:=yildiz+'*';end;
if (((tus>chr(64))and(tus<chr(91)))
or((tus>chr(96))and(tus<chr(123)))
or((tus>chr(47))and(tus<chr(58)))) then begin kelime:=kelime+tus; yildiz:=yildiz+'*'; end;
if tus=chr(13) then durum:=255;
if length(kelime)=10 then durum:=255;
gotoxy(x,y);write(bosluk);
if (gorun=true) then begin gotoxy(x,y);write(kelime); end;
if (gorun=false) then begin gotoxy(x,y);write(yildiz); end;
until durum=255;
sifre:=kelime;
end;
begin
clrscr;
sonuc:=sifre(1,1,10,false);
end.
kodun kullanımı degisken:=sifre(x,y,harfsayisi,gorunurluk);
x .. x koordinatı apsis
y ... y koordinatı ordinat
verinin kaç harfli olacağını belirtir.
gorunurlük eğer true yaparsanız basilan tus **** şeklinde
yok false yaparsanız basilan tus direk ekrana gelir.
şifreyi veritabanına kaydetmek istiyorsanız şifreyi önce harflenie ayırıp ascii değerlenini bulun ve bunu belli bir matematiksel formul tabii tutun örneğin A 'nin ascii kodu 65
matematikte yen:=eski+13 ve bunu veritanına kaydedin.
kodu 65 olan a veritanında 78 olarak gürülecek
şifreyi kontolde de tersini yaparsınız ve harfleri tekrar birlestirebilirsiniz.
yada hiç veri tabanı kullanmaz hep aynı şifreyi kullanabilirsiniz.
size kalmış...
Engin Deniz
var
i,durum :integer;
tus : char;
bosluk,yildiz,kelime : string;
begin
kelime:="; yildiz:="; bosluk:=";
for i:=1 to harfsay do bosluk:=bosluk+' ';
gotoxy(x,y);
repeat
repeat
until keypressed;
tus:=readkey;
if tus=chr(8) then
begin
delete(kelime,length(kelime),1);
delete(yildiz,length(yildiz),1);
end;
if (tus=chr(32)) then begin kelime:=kelime+tus; yildiz:=yildiz+'*';end;
if (((tus>chr(64))and(tus<chr(91)))
or((tus>chr(96))and(tus<chr(123)))
or((tus>chr(47))and(tus<chr(58)))) then begin kelime:=kelime+tus; yildiz:=yildiz+'*'; end;
if tus=chr(13) then durum:=255;
if length(kelime)=10 then durum:=255;
gotoxy(x,y);write(bosluk);
if (gorun=true) then begin gotoxy(x,y);write(kelime); end;
if (gorun=false) then begin gotoxy(x,y);write(yildiz); end;
until durum=255;
sifre:=kelime;
end;
begin
clrscr;
sonuc:=sifre(1,1,10,false);
end.
kodun kullanımı degisken:=sifre(x,y,harfsayisi,gorunurluk);
x .. x koordinatı apsis
y ... y koordinatı ordinat
verinin kaç harfli olacağını belirtir.
gorunurlük eğer true yaparsanız basilan tus **** şeklinde
yok false yaparsanız basilan tus direk ekrana gelir.
şifreyi veritabanına kaydetmek istiyorsanız şifreyi önce harflenie ayırıp ascii değerlenini bulun ve bunu belli bir matematiksel formul tabii tutun örneğin A 'nin ascii kodu 65
matematikte yen:=eski+13 ve bunu veritanına kaydedin.
kodu 65 olan a veritanında 78 olarak gürülecek
şifreyi kontolde de tersini yaparsınız ve harfleri tekrar birlestirebilirsiniz.
yada hiç veri tabanı kullanmaz hep aynı şifreyi kullanabilirsiniz.
size kalmış...
Engin Deniz
