Hvordan mekker man stjerner (****) på passord i Qbasic?

[CoZtA]

lurer på kode for og få stjerner på passordene i et login program i DOS f.eks. når du skriver pass å blir det kryptert :smile:

[kilogram]

Heisann!

 

Finns det folk som bruker QBasic enno? Vel, eg kan ikkje sei at eg veit korleis ein gjer det i QBasic, men eg var borti det ein del med Turbo Pascal for ein del år sidan. Der måtte du laga ein funksjon som las inn ein og ein bokstav, og for kvar bokstav som vart tasta inn, skreiv den ut ei stjerne.

 

Det ein må hugsa på om ein gjer det slik, er det at ein må registrera backspace, og passa på at denne har rett effekt. T.d. skal ein backspace viska ut ei stjerne, og samtidig kutta ned den interne stringen som inneheld det som er blitt skrevet med 1 bokstav.

 

Lykke til! :smile:

[GalFisk]

Har gjort dette i Pascl en gang for lenge siden. Lagde et lite QBasic-eksempel, tok litt tid å friske opp minnet ang QB:)

 

 

CLS

DO

key$ = INKEY$

SELECT CASE key$

CASE CHR$(27): password$ = "": EXIT DO: REM Avbryt hvis Escape trykkes

CASE CHR$(13): EXIT DO: REM G† videre hvis Enter trykkes

CASE CHR$(8): password$ = LEFT$(password$, LEN(password$) - 1): REM Kutt siste tegnet ved backspace

CASE ELSE: password$ = password$ + key$

END SELECT

LOCATE 4, 6: REM Sett mark›ren til begynnelsen av passordfeltet

FOR cnt = 1 TO LEN(password$)

PRINT "*"; : REM skriv stjerner, finnes sikkert en enklere m†te enn denne

NEXT cnt

PRINT " "; : REM slett evt etterf›lgende stjerner ved bksp

LOOP

PRINT password$