Anyone have a very very fast encrypt/decrypt function?

Heres what im currently using:

VB Code:

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 :)

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

Check with 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

Quote:

---

Originally Posted by VaxoP

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