How to Encrypt and decrypt texts / Como criptografar e descriptografar textos

To encrypt a text in Visual Basic 2008/2010 add this code to you form

Code

Private Function ConverteTexto(ByVal sTexto As String, ByVal sChave As String) As String
Dim i As Long, j As Long
Dim Buffer As String
Dim Letra As Integer

Buffer = vbNullString

For i = 1 To Len(sTexto)
Letra = Asc(Mid$(sTexto, i, 1))
For j = 1 To Len(sChave)
Letra = (Letra Xor Asc(Mid$(sChave, j, 1)))

Next

Buffer = Buffer & Chr(Letra)

Next

ConverteTexto = Buffer

End Function

Usage example

Const chave As String = "chave de criptografia"
Dim x As String
x = ConverteTexto("Text", chave)

To decrypt a text use the same

__________________________________________________ __________________________________________________ _



Para Criptografar um texto no Visual Basic 2008/2010 coloque esse codigo no seu Form

Codigo

Dim i As Long, j As Long
Dim Buffer As String
Dim Letra As Integer

Buffer = vbNullString

For i = 1 To Len(sTexto)
Letra = Asc(Mid$(sTexto, i, 1))
For j = 1 To Len(sChave)
Letra = (Letra Xor Asc(Mid$(sChave, j, 1)))

Next

Buffer = Buffer & Chr(Letra)

Next

ConverteTexto = Buffer

End Function

Exemplo de uso

Const chave As String = "chave de criptografia"
Dim x As String
x = ConverteTexto("Text", chave)

Para descriptografar use a mesma coisa