Clipper/FiveWin - DBF encriptado

   
Vista:

DBF encriptado

Publicado por Alfonso (2 intervenciones) el 05/03/2009 01:36:39
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clipper/FiveWin
- Código fuente de Clipper/FiveWin
- Cursos de Clipper/FiveWin
- Temas de Clipper/FiveWin
información
Códigos de Clipper/FiveWin
- Melodias
- Invertir cadena
- Convertir cantidades a cadena

RE:DBF encriptado

Publicado por Alfonso (2 intervenciones) el 05/03/2009 01:38:51
Que tal.

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

Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:DBF encriptado

Publicado por antonio (216 intervenciones) el 05/03/2009 13:25:30
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cada día se aprende algo ...

Publicado por Quique (1 intervención) el 05/03/2009 16:42:57
Dices que "Existe un funcion en clipper para encriptar" ¿nos podrías indicar cuál es, compadre?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cada día se aprende algo ...

Publicado por ANTONIO (216 intervenciones) el 05/03/2009 21:19:55
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
***************************************
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar