Cm poner l codigo ASCII anterior de una letr [Cerrado]

lena lonso - 6 feb 2009 a las 19:45 - Última respuesta:  manuel
- 15 sep 2011 a las 04:52
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.
Ver más 

3 respuestas

+3
Vota
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.

http://www.recursosvisualbasic.com.ar/...
http://www.devjoker.com/asp/ver_contenidos.aspx?co_contenido=2

Si quieres otros mas avanzados busca en google por MD5, Blowfish, AES etc ..

espero que t sirva !!
¿Te sirvió esta respuesta?  
0
Vota
pues rebuscste papa por q si esta jodido eso jajajajajjjaa
0
Vota
Me parece una forma sencilla ese método, lo voy a probar en un proyecto que necesito


gracias, manuel