Clipper/FiveWin - DBF encriptado

Que tal gente.

Alguién podrá echarme la mano?

Tengo un DBF creado con un programa hecho en clipper 5.3, dicho DBF tiene algúnos campos encriptados con cryp(), tengo la clave que obtuve de un pedazo del código pero núnca he programado en Clipper.

Espero alguien pueda ayudarme

Saludos!
Alfonso

Que tal.

Se me olvido mencionar que necesito algunos de esos datos encriptados.

Saludos!

HOla:
Existe un funcion en clipper para encriptar , pero depende si la funcion que han usado es la misma o no.
El funcionamiento normal es el siguiente, primero lee la longitud del campo, y hace un bucle, que se repite tantas veces como la longitud de este campo,
supongamos que el campo tiene una longitud de 10,
en el bucle coge el primer caracter del campo, y le suma a ese caracter un chr igual que la longitud del campo leido anteriormente 10,
de esta forma si el primer caracter leido es una a, al sumarle 10 por ejemplo, el resultado encriptado seria una m,
y asi con el resto de caracteres.

function cript
parameters cad1
private long, car, pos
long = len (cad1)
pos = 1
for pos = 1 to long
car = chr (asc (substr (cad1, pos, 1)) + long)
cad1 = stuff (cad1, pos, 1, car)
next
return cad1

Dices que "Existe un funcion en clipper para encriptar" ¿nos podrías indicar cuál es, compadre?

la tienes en el post anterior, pero te la pongo y el getcript tambien

function cript
parameters cad1
private long, car, pos
long = len (cad1)
pos = 1
for pos = 1 to long
car = chr (asc (substr (cad1, pos, 1)) + long)
cad1 = stuff (cad1, pos, 1, car)
next
return cad1
******************
function getcript
parameters cad1, car, fila, col
do case
case pcount () = 1
private car, fila, col
car = '*'
fila = row ()
col = col ()
case pcount () = 2
private fila, col
fila = row ()
col = col ()
endcase
private contador, long
long = len (cad1)
cad1 = space (0)
contador = 1
@ fila, col say space (long)
@ fila, col say space (0)
do while contador <= long
cad1 = cad1 + chr (inkey (0))
if lastkey () = 13 .or. lastkey () = 27
exit
endif
@ fila, col + contador - 1 say car
contador = contador + 1
enddo
return cad1
***************************************