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