Hi,
I am having problem with my code. This code which have been working for me before now just started to throw error of
Compile Error: OverFlow for the following VBA.
Global g_Enabled As Boolean
Public Const salt As Long = 7038117603#
Public Function Encrypt(strIn As String) As String
Dim strChr As String
Dim i As Integer
For i = 1 To Len(strIn)
strChr = strChr & CStr(Asc(Mid(strIn, i, 1)) Xor salt)
Next i
Encrypt = strChr
End Function
Please can someone check and see what I did wrong that is throwing exception.
Thanks
I am having problem with my code. This code which have been working for me before now just started to throw error of
Compile Error: OverFlow for the following VBA.
Global g_Enabled As Boolean
Public Const salt As Long = 7038117603#
Public Function Encrypt(strIn As String) As String
Dim strChr As String
Dim i As Integer
For i = 1 To Len(strIn)
strChr = strChr & CStr(Asc(Mid(strIn, i, 1)) Xor salt)
Next i
Encrypt = strChr
End Function
Please can someone check and see what I did wrong that is throwing exception.
Thanks