FoxPro/Visual FoxPro - como puedo encriptar?

hola a to2!
tengo un problema con el vfp6, ya que nose como encriptar, y quisiera saber si alguien me puede dar una manera de encriptamiento sencilla que pueda comprender o si es posible qu eme puedan mandar uno que tengan ustedes para solucionar mi problema..............

agradesco mucho su atencion prestada y gracias a todos por su ayuda.

Que quieres encriptar, una dbf, un archivo de memoria, se mas especifico.

Atte ROD

LO QUE QUIERAS ENCRIPTAR, YA SEA ARCHIVO, CADENA, O NUMERO, SOLO TIENES QUE DIVIDIRLO EN LA PARTES MAS SENCILLA QUE PUEDAS, YA SEA UN BIT, O UN BYTE, CARACTER, DIGITO O LO QUE SEA, Y LE SUMAS OTRO A ESTE, LO QUE TE DARA OTRO DIGITO, BIT O BYTE DIFERENTE, Y QUE PODRAS REGRESAR SOLO CON RESTARLE EL ANTERIOR.

Tengo una rutina, si todavia la necesitas, pidela por correo y te la envio...

Saludos...

Encriptar :

** Intento de encriptacion y posterior desencriptacion con clave
clave='12345678'
if file('c:\vfp1999.txt')
cuenta=0
fichero=fopen('c:\vfp1999.txt',0)
completo=fseek(fichero,0,2)
comienzo=fseek(fichero,0)
fichero2=fcreate('c:\vfpencrc.txt',0)
do while cuenta<=completo
destino=''
cuenta=cuenta+220
if cuenta<=completo
cadena=fread(fichero,220)
else
cadena=fread(fichero,completo-(cuenta-220))
cuenta=completo+1
endif
y=0
for x=1 to len(cadena)
k=val(substr(clave,round(mod(x,len(clave)),0),1))
if substr(cadena,x,1)#' '
y=y+1
if y>3
y=0
endif
letra=substr(cadena,x,1)
destino=destino+substr(stuff(cadena,x,1,chr(asc(letra)+(y+k))),x,1)
else
destino=destino+substr(cadena,x,1)
endif
next x
=fwrite(fichero2,destino)
loop
enddo
=fclose(fichero)
=fclose(fichero2)
else
wait window 'El fichero no existe'
endif