Anyone have a very very fast encrypt/decrypt function?

[VaxoP]

Heres what im currently using:

Public Function enc(m As String) As String
On Error Resume Next
    Dim a As Long, x As Long, z As String
    For a = 1 To Len(m)
        x = Asc(Mid$(m, a, 1))
        z = Chr$(x + 2)
        Mid$(m, a, 1) = z
    Next a
    enc = m
End Function
Public Function dec(m As String) As String
On Error Resume Next
    Dim a As Long, x As Long, z As String
    For a = 1 To Len(m)
 
        x = Asc(Mid$(m, a, 1))
        z = Chr$(x - 2)
        Mid$(m, a, 1) = z
 
    Next a
 
    dec = m
End Function

But im looking for something faster

[Hack]

There are some of these routines in our CodeBank. Have you looked at them?

[randem]

Check with CVMichael...

[CVMichael]

This should be pretty fast:
VB - 31 Bit Encryption function
Also see post #18 by frozen, he changed it to process using byte arrays

[horazio]

Heres what im currently using:
But im looking for something faster

I'm testing your code to encript/decript simple TXT files....it works fine.

Why do you think is not fast enough ? Tell me