FreeProfan

declare E&,ende%,Strg$, verschlüsselt$,entschlüsselt$
cls
E&=Create("Text",%Hwnd,"",10,30,400,200)
Password 1,"#Yesterday#"
Strg$="Test"
verschlüsselt$=Pwd$(Strg$)
entschlüsselt$=Pwd$(verschlüsselt$)
settext E&, Strg$ + "\n" + verschlüsselt$ + "\n" + entschlüsselt$
ende%=0

while ende%=0

    waitkey

    if %key=27

        ende%=1

    endif

endwhile