ahora no se xq se me ocurrio mirarlo, con mas conociminetos y me di cuenta q es xq usa el comando Xor (estuve investigando q es... no es nada jodido..) y pense xq no hacer uno yo xD...
y bueno lo hice , la verdad no se si habra uno parecido (no creo q igual ¬¬) en internet xq ni me fije xD pero a este lo hice yo
lo bueno q le veo a este code es q si cifrar x ejemplo AAAA el resutaldo no van a ser 4 caracteres iguales sino q todos distintos
Código
Private Function cifrar(Cadena As String) Dim Tam As Long Dim i As Long Tam = Len(Cadena) cifrar = "" For i = 1 To Tam cifrar = cifrar & Chr(Asc(Mid(Cadena, i, 1)) + Tam - i + 10) Next End Function Private Function Descencriptar(Cadena As String) Dim Tam As Long Dim i As Long Tam = Len(Cadena) Descencriptar = "" For i = 1 To Tam Descencriptar = Descencriptar & Chr(Asc(Mid(Cadena, i, 1)) - Tam + i - 10) Next End Function
bueno no se xD si les sirve o quieren opinar o conocen algun otro copado