Si te basta con un cifrado simple, puedes usar el sistema ROT13...
ROT13, sólo oculta de ojos profanos a la programación, es un cifrado de sustitución sin seguridad, pero puede valerte según para lo que lo necesites. A cambio es bastante rápido.
ROT13 sólo trata los caracteres A-Z (del 65 al 90) , pero puedes modificarlo a ROT47, caracteres desde admiración a tilde (33 a 126) fácilmente...
ROT13 es reversible, es decir ejecutado 1 vez cifra, el texto cifrado ejecutado de nuevo lo descifra.
Como quizás te resulte más útil ROT47, te pongo una posible implementación...
' primero localiza la api Copymemory con el visor de APIs e introdúcela en tu código...
Public Function Rot47(ByVal Texto As String) As String
Dim n() As Integer, max As Long, k As Long, t As Integer
If Texto <> "" Then
max = Len(Texto)
ReDim n(0 To max - 1)
Call CopyMemory(ByVal VarPtr(n(0)), ByVal StrPtr(Texto), max * 2) ' convertimos el texto en una matriz de enteros para trabajar más rápido con números
For k = 0 To max - 1
t = n(k)
If t > 32 And t < 127 Then ' signo de amiración hasta la tilde
If t < 80 Then
n(k) = t + 47
Else
n(k) = t - 47
End If
End If
Next
Call CopyMemory(ByVal StrPtr(Texto), ByVal VarPtr(n(0)), max * 2) ' pasamos la matriz de enteros a cadena...
Erase n
End If
Rot47 = Texto
End Function
ejemplo de uso:
dim s as string
s= "Hola"
s= ROT47(s)
msgbox s
'resultado: w@=2
' cifrando 2º ejemplo
s= "Lo que quiero es aumentarle mas linea para que esa line la que dice hola se muestre encriotada o mas bien dicho como encripto"
s= ROT47(s)
msgbox s
'resultado: {@ BF6 BF:6C@ 6D 2F>6?E2C=6 >2D =:?62 A2C2 BF6 6D2 =:?6 =2 BF6 5:46 9@=2 D6 >F6DEC6 6?4C:@E252 @ >2D 3:6? 5:49@ 4@>@ 6?4C:AE@
descifrando 2º ejemplo
s= ROT47(s)
msgbox s
'resultado: Lo que quiero es aumentarle mas linea para que esa line la que dice hola se muestre encriotada o mas bien dicho como encripto
