FreeProfan

declare E&,end%,Strg$, verschlüsselt$,entschlüsselt$
cls
E&=Create("Text",%Hwnd,"",10,30,400,200)
values) 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 end%=0

    waitkey

    if %key=27

        end%=1

    endif

endwhile