Clipper/FiveWin - rutina de encripcion

hola a todos

necesito que alguien me explique o me pase una rutina de encripcion de un string en clipper 5.2. Vi un programa administrativo que encripta la fecha y/o la hora para guardarla en un modulo de auditoria, este programa reduce el numero de caracteres de la hora y la fecha, las encripta y luego las guarda con unnnumero minimo de caracteres.
Se puede hacer? como?

lo explicare mediante un ejemplo
supongamos que la fecha es 25/05/2004; lo guarda en un campo de tres caracteres con unos signos mas o menos asi @!#
y la hora en un campo de 4 caracteres, algo como esto (&!#

si alguien me puede explicar como hacer esto le agradeceria mucho

espero una pronta respuesta... bye!!!

Facilisimo, esto es Kinder garden de Clipper:

dFecha := DATE() // obtenemos la fecha
cDia := ASC(DAY(dFecha)) // esto te regresa el caracter ascii del dia
cMes := ASC (MONTH(dFecha)) // igual a lo anterior
cAnio := ASC(YEAR(dFecha)) // idem atenrior

la funcion ASC() de Clipper te regresa el codigo ASCII de valor numerico enviado como cadena de carateres por ejemplo si mandas :

26/09/04

te regresa el CHR(26) el chr(09) y el chr(04) y listo !!! tan facil y sencillo como eso.