XProfan

aus der der dll beliegenden inc übernommen:

proc Crypt_Text

    parameters ctext$, cpass$

    IfNot ctext$ =

        cryptin& = len(ctext$)
        dim crypt#, (cryptin& * 2) + 2
        String crypt#,0=ctext$
        local_cryptBytes& = CryptT(crypt#,cryptin&,crypt#,addr(cpass$))
        local_crypTtext$ = Char$(crypt#,0,local_cryptBytes&)
        dispose crypt#
        Return local_cryptText$

    ElseIf ctext$ =

        Return

    EndIf

endproc