DEFICION ENCRIPTACION

ENCRIPTACION.

Encriptar es una manera de codificar la información para protegerla frente a terceros.

Por lo tanto la encriptación informática sería la codificación la información de archivos o de un correo electrónico para que no pueda ser descifrado en caso de ser interceptado por alguien mientras esta información viaja por la red.

Es por medio de la encriptación informática como se codifican los datos. Solamente a través de un software de descodificación que conoce el autor de estos documentos encriptados es como se puede volver a decodificar la información.

Por lo que la encriptación informática es simplemente la codificación de la información que vamos a enviar a través de la red (Internet). Para poder descodificarla como dijimos es necesario un software o una clave que sólo conocen el emisor y el receptor de esta información.

La encriptación de la informática se hace cada vez más necesaria debido al aumento de los robos de claves de tarjetas de crédito, número de cuentas corrientes, y en general toda la información que viaja por la red, etc.

Todo esto ha fomentado que se quiera conseguir una mayor seguridad en la transmisión de la información sobre todo a través de Internet. Es por ello que las últimas versiones de los navegadores de Internet ya usan sistemas automáticos de encriptación de datos para que sea más difícil para los hackers robarlos.

 VISUALIZACIÓN DE CONTRASEÑAS DE ENCRIPTACIÓN.

Existe otro comando de utilidad que impide que las contraseñas aparezcan como texto sin cifrarcuando se visualizan los archivos de configuración. Este comando es el service passwordencryption. Este comando provee la encriptación de lacontraseña cuando está se configura.Demás, aplica una encriptación débil a todas las contraseñas no encriptadas. Esta encriptación nose aplica a las contraseñas cuando se envían a través de medios únicamente en la configuración.

EJEMPLO.

Function encripta(Cadena)
Local I,Llave,Salida, Cad
*Invertimos Cadena
Cad=''
Cadena=Alltrim(Cadena)
For i=Len(Cadena) to 1 Step -1
Cad=Cad+Substr(Cadena,I,1)
EndFor
Cadena=Cad
Salida=''
Llave = 5 && 5 es mi llave de acceso y no de ser cambiada si se desea que esta misma desencripte la cadena
&& o bajo ninguna circunstancia se podrán recuperar
&& las cadenas Dadas con esta llave
For I=1 to Len(Cadena)
Car=Asc(Substr(Cadena,I,1))
Num=Chr(Bitxor(Car,5))
Salida=Salida + Num
Endfor
Return Salida