FreeProfan

declare E&,ende%,Strg$, verschlüsselt$,entschlüsselt$
cls
E&=Créer("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

tandis que ende%=0

    waitkey

    si %clé=27

        ende%=1

    endif

endwhile