Membuat Password di QBasic

Sedikit penjelasan tentang pembuatan password di Microsoft Quick Basic, mungkin ini cuma program iseng bagi para master tapi semoga bisa bermanfaat bagi yang baru belajar Qbasic.

Tampilan jendela penulisan kode pada Qbasic seperti disamping.

Bukalah Aplikasi Qbasic dan ketikkan Code seperti dibawah ini:

rem PROGRAM PEMBUATAN PASSWORD
REM HTTP://INFOIHSAN.BLOGSPOT.COM
CLS

pass$ = "infoihsan" + CHR$(13)
kt$ = ""
posx% = 1
pilihan% = 0
batas% = 3
WHILE tekan$ <> CHR$(13) OR pilihan% <> 1
tekan$ = INKEY$

LOCATE 5, 5: PRINT "Password :"
IF tekan$ <> "" THEN
LOCATE 5, 14 + posx%: PRINT "*"
kt$ = kt$ + tekan$
posx% = posx% + 1
END IF


IF tekan$ = CHR$(13) THEN
IF batas% > 1 THEN
IF kt$ = pass$ THEN
pilihan% = 1
CLS
LOCATE 12, (80 - LEN("Tekan Enter Untuk Melanjutkan..")) / 2
INPUT "Tekan Enter Untuk Melanjutkan..", x$
LOCATE 12, 1: PRINT SPACE$(70)
t1$ = "Access Security Code is Valid"
w% = 0
FOR i = 1 TO LEN(t1$)
IF w% > 15 THEN
w% = 1
ELSE
w% = w% + 1
END IF
COLOR w%, 0
LOCATE 12, 25 + i: PRINT MID$(t1$, i, 1)
FOR tunda = 1 TO 100000
NEXT tunda
NEXT i
ELSE
kt$ = ""
batas% = batas% - 1
posx% = 1
LOCATE 5, 14 + posx%: PRINT "Kesempatan anda tinggal :"; batas%
henti$ = INPUT$(1)
LOCATE 5, 5 + posx%: PRINT SPACE$(40)
END IF
ELSE
END
END IF
END IF
WEND

Semoga bermanfaat bagi teman2 semua..