Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Encriptación

Visual Basic - Encriptación

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de Maick
Val: 7
Ha aumentado su posición en 3 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Encriptación

Publicado por Maick (4 intervenciones) el 15/05/2021 07:17:49
Saludos a todos, quisiera me pudieran ayudar con una encriptación de palabras con CENIT POLAR, no se como hacerlo, el programa debe encriptar la palabra y mostrar el resultado en un Label y poder desencriptarlo. espero me pueda ayudar. Pensaba hacerlo con un array pero no se como hacerlo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Maick
Val: 7
Ha aumentado su posición en 3 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Encriptación

Publicado por Maick (4 intervenciones) el 15/05/2021 19:59:35
Este es el código que estoy utilizando, pero en lugar de letras de encripta números.

código para encriptar
1
2
3
4
5
6
7
8
9
10
Dim A As String
Dim i As Integer
A = UCase(Trim(TxtC1.Text))
 
For i = 1 To Len(A)
 
TxtEc.Text = TxtEc.Text & "0" & Asc(Mid(A, i, 1))
 
 
Next
código para desencriptar

1
2
3
4
5
6
7
8
9
10
11
12
Dim B As String
Dim i As Integer
 
B = UCase(Trim(TxtEc.Text))
TxtEc.Text = ""
For i = 1 To Len(B) Step 3
 
TxtEc.Text = TxtEc.Text & Chr(Mid(B, i, 3))
 
 
 
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar