Codificar cadenas con MD5 en visual fox pro

[NeoWolfman]

CODIFICAR CADENAS CON MD5

La clase MD5.VCX desarrollada en Visual FoxPro y permite codificar
cadenas de caracteres mediante el algoritmo de MD5. La codificación
del MD5 de 128 bits es representada tí­picamente como un número de 32
dí­gitos hexadecimal. El siguiente código de 28 bytes ASCII será
tratado con MD5 y veremos su correspondiente hash de salida:

MD5("Esto si es una prueba de MD5") =
e07186fbff6107d0274af02b8b930b65

Otro ejemplo serí­a la codificación de un campo vací­o:

MD5("") = d41d8cd98f00b204e9800998ecf8427e

En criptografía, MD5 (acrónimo de Message-Digest Algorithm 5,
Algoritmo de Resumen del Mensaje 5) es un algoritmo de reducción
criptográfico de 128 bits ampliamente usado. El código MD5 fue
diseñado por Ronald Rivest en 1991. Durante el año 2004 fueron
divulgados ciertos defectos de seguridad, lo que hará que en un futuro
cercano se cambie de este sistema a otro más seguro.

Esta clase implementa este algoritmo, para mas informacion sobre el
MD5 consulte http://es.wikipedia.org/wiki/MD5

1. Clase MD5
1.2 Encriptar
2. Ejemplo

--> DESCARGAR MD5.VCX y EJEMPLOS <--

CLASE MD5

Esta clase permite codificar cadenas de texto a travez de MD5.

Métodos y propiedades de la clase

Propiedades

Metodos

Encriptar: codifica una cadena de texto, no requiere contraseña,
retorna una cadena de caracteres y su uso es

=Objeto.Encriptar('Esto si es una prueba de MD5")

retorna "e07186fbff6107d0274af02b8b930b65 "

Ejemplo:

SET CLASSLIB TO "md5.vcx"

oMD5=CREATEOBJECT(Md5)
oMD5=CREATEOBJECT("Md5")
? oMD5.encriptar("Esto si es una prueba de MD5")

*!* EJEMPLO Codificar y Decodificar

oMD5=CREATEOBJECT('MD5')
? oMD5.encriptar("Esto si es una prueba de MD5")