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