암호 잠금

password-lock.bas

원래 파일

LAN/QB/QU.BAS

날짜

1991-08-13

크기

613바이트, 12줄

저장 형식

QB 4.5 바이너리 저장본("Fast Load and Save")을 QB에서 텍스트로 다시 저장한 뒤 UTF-8로 바꿈

내려받기

password-lock.bas (UTF-8)

설명

키를 다섯 번 받아 암호와 같으면 끝나고, 다르면 처음부터 다시 묻습니다.
입력한 글자는 화면에 찍지 않습니다.

암호의 첫 글자는 원본에서 바이트 C8(10진수 200)입니다.
Alt를 누른 채 숫자판으로 200을 쳐야 들어가는 글자라 남이 맞히기 어렵게 한 것으로 보입니다.
여기서는 CP437에서 같은 코드인 ╚로 적었습니다.

소스

a:PRINT "Enter password."FOR i = 1 TO 5WHILE a$ = ""a$ = INKEY$WENDd$ = d$ + a$a$ = ""NEXT iIF d$ = "╚2822" THEN ENDd$ = ""GOTO a