XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Passwort abfragen
Lauffähig ab Profan-Version 5.0
Passwort ist das aktuelle Datum
declare ende%,pas%,eing%,but%,end%,code%
let pas%=@createdialog(%hwnd,Bitte Ihr Passwort:,50,50,200,75)
let eing%=@createedit(pas%,,0,0,200,24)
let but%=@createbutton(pas%,&OK,10,26,70,23)
let end%=@createbutton(pas%,&Ende,110,26,70,23)
let ende%=0
let code%=0
@setfocus(eing%)

whilenot @equ(ende%,4)

    waitinput

    if @getfocus(but%)

        if @equ$(@gettext$(eing%),@date$(0))

            let ende%=4

        else

            settext eing%,Falsches Passwort
            inc ende%

        endif

        @setfocus(eing%)

    elseif @getfocus(end%)

        let ende%=3

    endif

    case equ(ende%,3):let code%=1
    case code% :let ende%=4

wend

if code%

    settext eing%,3 x falsches Passwort

else

    settext eing%,Passwort richtig

endif

waitinput
@destroywindow(pas%)
end