Forum.St| Enteresen Bir Forum Sitesi

Lütfen Sitemize Üye Olunuz Üyeliğiniz Varsa Lütfen Giriş Yapın...

Bağlı değilsiniz. Bağlanın ya da kayıt olun

Güvenlik kiliti

Aşağa gitmek  Mesaj [1 sayfadaki 1 sayfası]

1 Güvenlik kiliti Bir Paz Kas. 01, 2009 5:22 pm

CyberDuck

avatar
Varlığımızı Bilmeyenlere Yokluğumuz Kapak Olsun..!
Varlığımızı Bilmeyenlere Yokluğumuz Kapak Olsun..!
Programin güvenligi ile ilgili örnek







PHP Kodu:
<div class="alt2" dir="ltr" style="
margin: 0px;
padding: 5px;
border: 1px inset;
width: 640px;
height: 498px;
text-align: left;
overflow: auto">


procedure*TForm1.FormCreate(Sender:*TObject);

begin

edit1.Text:=";

hata:=0;

assignfile(dsy,'c:\basri.dat');

{$i-}reset(dsy);{$i+}

if*ioresult0*then*rewrite(dsy);

for*i:=0*to*filesize(dsy)-1*do*begin

seek(dsy,i);read(dsy,a);

if*a.kilit='*'then*begin

showmessage('kilitli');

halt;

end;

end;

end;



procedure*TForm1.Edit1KeyPress(Sender:*TObject;*va r*Key:*Char);

begin

if*ord(key)=13*then*begin

sifre:='basri';

if*edit1.Textsifre*then*begin

hata:=hata+1;

edit1.Text:=";

end

else*if*edit1.Text=sifre*then*begin

form2.Show;

end;

if*hata>=3*then*begin

a.kilit:='*';

seek(dsy

alıntı





Designer­s[Resimleri görebilmek için üye olun veya giriş yapın.]CyberDuck[Resimleri görebilmek için üye olun veya giriş yapın.]

%100 Netlebi Forum [Resimleri görebilmek için üye olun veya giriş yapın.] Kalitesiyle Her Hakkı Saklıdır!
Söz Uçar Yazı Kalır..!
Kullanıcı profilini gör http://sanalkolik.forum.st

Sayfa başına dön  Mesaj [1 sayfadaki 1 sayfası]

Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz