Şifreli Giriş Uygulaması

Yönetici için XYZGünAySaat şeklinde özel şifresi olan

  Arka Kapısı Olan  Şifreli Giriş Örneği

 

CLS


Ay$ = LEFT$(DATE$, 2)

Saat$ = LEFT$(TIME$, 2)

Gun$ = MID$(DATE$, 4, 2) ' Araliktaki harfleri 4 sira no 2 ise kac karakter alinacagi



DO


 INPUT "Sifre Nedir"; Sifre$
 

 IF Sifre$ = "susam" OR (Sifre$ = "XYZ" + Gun$ + Ay$ + Saat$) THEN
 
        PRINT "Giris Basarili "

 ELSEIF LEN(Sifre$) = 0 THEN

       EXIT DO

 ELSE PRINT "Yanlis Sifre"

 END IF


LOOP

 

  Başlıksız İçerik______________________

Yorumunuzu Ekleyin
Şifreli Giriş Uygulaması Yorumları +1 Yorum
  • mustafa ibo
    1
    mustafa ibo
    yanlış çalışma en son satırda loop olmalıydı uygulama çalışmayacaktır
    19 Ekim 2009 20:46:09, Pazartesi