XProfan

Proc DeCo

    Parameters DE$,S$,TCO$         DE$=Eingabetext  S$=C > Codieren, D > Decodieren, TCO$=externer Code
    Declare A&,B&,C&,D&,AUSG$,TCO2$
    Clear A&,B&,C&,D&,AUSG$,TCO2$
    TCO2$ = Scherzle?                                         beliebiger Code  (Intern)
    C& = (Len(TCO2$) + 1)

    While (A& < Len(DE$))

        Inc A&: Inc B&: Dec C&
        Case (B& > Len(TCO$)): B& = 1
        Case (C& < 1): C& = Len(TCO2$)

        If (S$ = D)                                              Decodieren

            D& = Ord(Mid$(DE$,A&,1)) - Ord(Mid$(TCO$,B&,1)) + Ord(Mid$(TCO2$,C&,1))
            Case (D& < 31): D& = (D& + 224)

        ElseIf (S$ = C)                                         Codieren

            D& = Ord(Mid$(DE$,A&,1)) + Ord(Mid$(TCO$,B&,1)) - Ord(Mid$(TCO2$,C&,1))
            Case (D& > 224): D& = (D& - 224)
            Else                                                      Eingabefehler
            AUSG$ = Input Error!
            Break

        EndIf

        AUSG$ = (AUSG$ + Chr$(D&))

    EndWhile

    Return AUSG$

EndProc