Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function Encrypt(ByVal EncInteger As Integer) As Integer Dim strReturn As String = String.Empty Dim cipherText As String = String.Empty Dim strSenha As String Try strSenha = EncInteger Dim nLetra As String Dim L As Integer strSenha = (strSenha) For L = 1 To Len(strSenha) nLetra = Asc(Mid(strSenha, L, 1)) nLetra = Chr(Trim(Str(Val(nLetra) Xor (L * 2)))) cipherText = cipherText & nLetra Next strReturn = cipherText Catch ex As Exception strReturn = Nothing End Try Return strReturn End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.