Ayuda para crear un formulario para encriptar y desencriptar
Publicado por Victor (27 intervenciones) el 22/02/2016 03:24:37
Hola a toda la comunidad LWP... estoy iniciando un curso de programacion y necesito ayuda para crear un formulario en el que pueda leer una tabla con informacion encriptada y asi mismo añadir mas informacion y que esta quede encriptada y que tenga los modulos normales como nuevo, buscar, editar, borrar e imprimir usando el siguiente codigo que fue el que nos dio el profesor...
la tabla puede ser con informacion personal... como codigo, nombre, direccion, telefono, ciudad
de antemano gracias por la orientacion y ayuda que me puedan dar...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
FUNCTION EnCript
PARAMETER ccad
PRIVATE nlong, ccar, npos, cprot
npos = 1cprot = ""
nlong = LEN(ccad)
ccad = SUBSTR(ccad, 1, nlong)
FOR i = npos TO nlongccar = CHR(ASC(SUBSTR(ccad, i, 1))+nlong-i+1)
ccad = STUFF(ccad, i, 1, ccar)
ENDFOR
RETURN (ccad)
ENDFUNC
**************
FUNCTION DeCript
PARAMETER ccad
PRIVATE nlong, ccar, npos
npos = 1nlong = LEN(ccad)
ccad = SUBSTR(ccad, 1, nlong)
FOR i = npos TO nlongccar = CHR(ASC(SUBSTR(ccad, i, 1))-nlong+i-1)
ccad = STUFF(ccad, i, 1, ccar)
ENDFOR
RETURN (ccad)
ENDFUNC
la tabla puede ser con informacion personal... como codigo, nombre, direccion, telefono, ciudad
de antemano gracias por la orientacion y ayuda que me puedan dar...
Valora esta pregunta
0
