XProfan

// app.hirnwort
Set(FastMode,1)
Def $apptitle Hirnwort V1.iF
Def Swp(7) !USER32,SetWindowPos
Def invrec(3) !USER32,InvalidateRect
Def updwin(1) !USER32,UpdateWindow
Def Cwp(5) !user32,CallWindowProcA
Def Swl(3) !USER32,SetWindowLongA
declare app.hirnwort.hwnd&,
app.hirnwort.sbarH&,
app.hirnwort.inpH&,
app.hirnwort.outpH&,
app.hirnwort.ex&,
app.hirnwort.owp&
app.hirnwort.init
app.hirnwort.main
app.hirnwort.kill
end

Proc app.hirnwort.wProc

    Parameters Wnd&, Msg&, Wparam&, Lparam&

    if (msg&==5)

        app.hirnwort.reDrw

    elseif (msg&==16)

        app.hirnwort.ex&=1

    endif

    Return Cwp(app.hirnwort.owp&,Wnd&, Msg&, Wparam&, Lparam&)

endproc

proc app.hirnwort.init

    windowstyle ( 1 | 2 | 4 | 8 | 16 | 512 | 1024 )/*80 |*/
    windowtitle $apptitle
    window 0,0 - 0,0
    showwindow (%hwnd,0)
    windowstyle ( 1 | 2 | 4 | 8 | 16 | 512 )
    app.hirnwort.hWnd&=createwindow(0,$apptitle,%maxx/4,%maxy/4,%maxx/2.5,%maxy/2.5)
    app.hirnwort.sbarH&=create(Statuswindow,app.hirnwort.hWnd&,Bereit.)
    app.hirnwort.inpH&=CreatemultiEdit(app.hirnwort.hWnd&,Unglaublich.,0,0,Width(app.hirnwort.hWnd&),-1)
    app.hirnwort.outpH&=CreateMultiEdit(app.hirnwort.hWnd&,Unglaublich.,0,0,Width(app.hirnwort.hWnd&),-1)
    app.hirnwort.owp&=swl(app.hirnwort.hWnd&,-4, Procaddr(app.hirnwort.wProc,4))
    sendmessage(app.hirnwort.outpH&,197,1,0)

endproc

proc app.hirnwort.main

    declare _msg&
    app.hirnwort.reDrw
    setfocus(app.hirnwort.inpH&)

    Whilenot app.hirnwort.ex&

        getmessage
        _msg&=%message

        if _msg&==16

            app.hirnwort.ex&=1

        elseif _msg&==273

            app.hirnwort.texterCore gettext$(app.hirnwort.inpH&),app.hirnwort.outpH&

        endif

    Wend

endproc

proc app.hirnwort.texterCore

    parameters s$,h&
    declare c&,ns$,i&,os$
    s$=translate$(s$,  , )
    os$=s$
    s$=translate$(s$,., )
    s$=translate$(s$,,, )
    s$=translate$(s$,!, )
    s$=translate$(s$,?, )
    c&=len(s$)-len(translate$(s$, ,))//countsubstr
    casenot c& : return
    c&+
    for i&=1 to c& do begin
    ns$=ns$+(.jumble(substr$(s$,i&, )))+
    end
    ns$=.dupliSign(os$,ns$,.)
    ns$=.dupliSign(os$,ns$,,)
    ns$=.dupliSign(os$,ns$,!)
    ns$=.dupliSign(os$,ns$,?)
    settext h&,trim$(ns$)
    return

    proc .jumble

        parameters s$
        declare l&,c$,p&
        l&=len(s$)
        case l&<4 : return s$
        l&=l&-2

        whileloop l&

            p&=rnd(l&)+2
            c$=mid$(s$,P&,1)
            s$=del$(s$,p&,1)
            s$=ins$(c$,s$,rnd(l&)+2)

        wend

        return s$

    endproc

    proc .dupliSign

        parameters s$,ns$,sig$
        declare p&,c$
        p&=instr(sig$,s$)

        while p&

            c$=mid$(s$,p&,1)
            s$=del$(s$,p&,1)
            s$=ins$( ,s$,p&)
            ns$=ins$(sig$,ns$,p&)
            ns$=del$(ns$,p&+1,1)
            p&=instr(sig$,s$)

        wend

        return ns$

    endproc

endproc

proc app.hirnwort.kill

    swl(app.hirnwort.hWnd&,-4,app.hirnwort.owp&)

endproc

proc app.hirnwort.reDrw

    declare yy&
    swp(app.hirnwort.sbarH&,0,0,0,0,0,28)
    invrec(app.hirnwort.sbarH&,0,0)
    updwin(app.hirnwort.sbarH&)
    yy&=(height(app.hirnwort.hWnd&)-height(app.hirnwort.sbarH&)+2)/2
    swp(app.hirnwort.inpH&,0,0,0,width(app.hirnwort.hWnd&)+1,yy&,20)
    swp(app.hirnwort.outph&,0,0,yy&,width(app.hirnwort.hWnd&)