XProfan

Français

E.T.

Ist mir so aufgefallen:
chez qui Verwendung qui Crypt.dll, speziell chez mir qui Funktion CryptT, wird qui grenier avec chaque Aufruf reichlich pleine.
là allez cela System chez mehreren Aufrufen hintereinder avec sous entier joli dans qui Knie, là toujours la fois juste MB dans den grenier addiert volonté.

Kompilieren Marque Séparation

aus qui qui dll beliegenden inc übernommen:

proc Crypt_Text

    parameters ctext$, cpass$

    Si non 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#
        Retour local_cryptText$

    ElseIf ctext$ =

        Retour

    EndIf

endproc

Kommentiert on qui la ligne
local_cryptBytes& = CryptT(crypt#,cryptin&,crypt#,addr(cpass$))
aus, wird naturellement pas mer gekryptet, mais qui grenier bleibt calme.

Kennt peut-être quelqu'un den Autor cette dll, so cela on selbigen ggf. la fois puis ansprechen pourrait ?? ou bien ne autre Solution

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation