|
|
|
|
| |
Procedimiento que permite encriptar informacion.
ALTER PROC SP_PRO_CRIPTOGRAFIA (@USUARIO CHAR(20), @CLAVE CHAR(20), @MODO CHAR(1))
AS
BEGIN
PRINT'PROCEDIMIENTO PARA LA CRIPTOGRAFIA DE :'+ @CLAVE
DECLARE @RESULTADO CHAR(50)='', @CONTADOR INTEGER=1
IF @MODO = 'E' --ENCRIPTACION
BEGIN
WHILE @CONTADOR < (LEN(@CLAVE)+1)
BEGIN
SET @RESULTADO = LTRIM(RTRIM(@RESULTADO)) + (CHAR( ASCII( SUBSTRING(@CLAVE, @CONTADOR ,1)) + @CONTADOR))
SET @CONTADOR+=1
END
PRINT 'LA CLAVE ENCRIPTADA ES : '+@RESULTADO
END
IF @MODO = 'D'
BEGIN
WHILE @CONTADOR < (LEN(@CLAVE)+1)
BEGIN
SET @RESULTADO = LTRIM(RTRIM(@RESULTADO)) + (CHAR( ASCII( SUBSTRING(@CLAVE, @CONTADOR ,1)) - @CONTADOR))
SET @CONTADOR+=1
END
PRINT 'LA CLAVE DESENCRIPTADA ES : '+@RESULTADO
END
END
--PARA EJECUTAR
-- SP_PRO_CRIPTOGRAFIA 'USER','EJEMPLOSDUOC', 'E'
-- SP_PRO_CRIPTOGRAFIA 'USER','FLHQURV[M_ZO', 'D'
|
|
|
|
|
|
|
|
|
|
|
|
|
