cm poner l codigo ASCII anterior de una letr Cerrado

Question

Hola,
m gustaria saber cm puedo acer un programa para encriptar una palabra, es decir, teniendo una cadenas cn una serie de caracteres, poner cada uno de esos caracteres ,pero q sean el codigo ASCII anterior.si en la cadena pone una B,ponemos en la otra cadena una A. ES Q NO M SALE.
GRACIAS.

Rodrigo vb · Accepted Answer

usa ASC y CHR. La primera te da el numero le tenes que indicar el caracter, en cambio CHR te devuelve el carcter, le tener que indicar el numero

algo asi podria ser

Function Encriptar(strCadena As String) As String
    
    Dim i           As Integer
    Dim strTemp     As String
    
    For i = 1 To Len(strCadena)
        strTemp = strTemp & Chr(Asc(Mid(strCadena, i, 1)) - 1)
    Next
    Encriptar = strTemp
End Function

Private Sub Form_Load()
    MsgBox Encriptar("Visual basic")
End Sub

Aqui puedes ver otros ejemplos y métodos de encriptación simples. 

https://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/269-encriptar-desencriptar.htm
http://www.devjoker.com/contenidos/Visual-Basic-NET/2/Una-clase-sencilla-para-encriptar-cadenas-de-texto.aspx

Si quieres otros mas avanzados busca en google por MD5, Blowfish, AES etc ..

espero que t sirva !!

j n · Answer

pues rebuscste papa por q si esta jodido eso  jajajajajjjaa

manuel · Answer

Me parece una forma sencilla ese método, lo voy a probar en un proyecto que necesito


 gracias, manuel

Cm poner l codigo ASCII anterior de una letr

3 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!