Ayuda Con Clipper


Objetivo: Ayuda Con Clipper
pasar de clipper a gambas

despues de leer un poco de clipper
e modificado directamente las funciones con las instruccones equivalentes en gambas
pero el reeultado no es el esperado
de echoresultaotra cosa, no tengo mucha idea



function CIFROMSN

parameters yclave
k:= ""
i:= 1
n:= Len(yclave) + 1
x:= SubStr(yclave, i, 1)
do while (i < n)
j:= Asc(x) + 129
k:= k + Chr(j)
i:= i + 1
if (i < n)
x:= SubStr(yclave, i, 1)
endif
enddo
xclave:= k
return xclave

********************************
function DESCIMSN

parameters xclave
k:= ""
i:= 1
n:= Len(xclave) + 1
x:= SubStr(xclave, i, 1)
do while (i < n)
j:= Asc(x) - 129
k:= k + Chr(j)
i:= i + 1
if (i < n)
x:= SubStr(xclave, i, 1)
endif
enddo
yclave:= k
return yclave

********************************

Perfil MP  
Objetivo: Re: Ayuda Con Clipper
Esa forma de cifrar con clipper es una chapuza montada a base de sumar números al ascii de los caracteres. Te lo descodifica un gato con un bolígrafo en cinco minutos. Las funciones de encriptación de gambas son otra cosa. Utilizan algoritmos sin retorno, o como se llamen, muchísimo más seguros.No te aconsejo usar esas rutinas.

Suerte

Perfil MP  
Objetivo: Re: Ayuda Con Clipper
shordi escribió: [Ver mensaje]
Esa forma de cifrar con clipper es una chapuza montada a base de sumar números al ascii de los caracteres. Te lo descodifica un gato con un bolígrafo en cinco minutos. Las funciones de encriptación de gambas son otra cosa. Utilizan algoritmos sin retorno, o como se llamen, muchísimo más seguros.No te aconsejo usar esas rutinas.

Suerte

si lo se

solo es compatibilidad con la antiguedad


necesito un gato con boligrafo

update
aprendi a programar en clipperr






lo suficienete como para ejecutar los procedimientos
de manera que lea la base de datos e imprima la clave
y funciona en clipper perfectamente
pero en basic no y no se por que

última edición por codificador el Viernes, 17 Febrero 2012, 07:36; editado 2 veces
Perfil MP  
Objetivo: Re: Ayuda Con Clipper
Yo también fuí programador de Clipper 5.1 en los años 90. Tengo magníficos recuerdos de aquél lenguaje de programación y en algún rinconcito de mi disco duro tengo las aplicaciones que entonces desarrollé (incluyendo una función de encriptación similar a la tuya, pero más compleja).

Si has de pasarte a gambas, utiliza en gambas el módulo gb.crypt, ahorrarás tiempo y esfuerzo.

Saludos.

Perfil MP  
Objetivo: Re: Ayuda Con Clipper
shordi escribió: [Ver mensaje]
Yo también fuí programador de Clipper 5.1 en los años 90. Tengo magníficos recuerdos de aquél lenguaje de programación y en algún rinconcito de mi disco duro tengo las aplicaciones que entonces desarrollé (incluyendo una función de encriptación similar a la tuya, pero más compleja).

Si has de pasarte a gambas, utiliza en gambas el módulo gb.crypt, ahorrarás tiempo y esfuerzo.

Saludos.


solo queria desencritar con gambas ese dato, como un pequeño desafio

la funcion no es mia



de momento logre hacer funcionar la funcion en clipper y funciona correctamente
y logre lo que queria hacer solo que en clipper

pero no pude hacerla funcionar en gambas

Perfil MP  
Objetivo: Re: Ayuda Con Clipper
codificador:

Hola, a ver si te vale esta "traducción":

Public Sub Form_Open()
Dim valor As String
valor = CIFROMSN("hola eso ES UN RPUEBA")
Print valor
valor = DESCIMSN(valor)
Print valor

End

Public Sub CIFROMSN(yclave As String) As String

Dim k, x, xclave As String
Dim i, n, j As Integer

k = ""
i = 1
n = Len(yclave) + 1
x = Mid$(yclave, i, 1)
Do While (i < n)
j = Asc(x) + 129
k = k & Chr(j)
i = i + 1
If i < n Then
x = Mid$(yclave, i, 1)
Endif

Loop
xclave = k
Return xclave

End

Public Function DESCIMSN(xclave As String) As String

Dim k, x, yclave As String
Dim i, n, j As Integer

k = ""
i = 1
n = Len(xclave) + 1
x = Mid$(xclave, i, 1)
Do While (i < n)
j = Asc(x) - 129
k = k & Chr(j)
i = i + 1
If i < n Then
x = Mid$(xclave, i, 1)
Endif
Loop
yclave = k
Return yclave

End


En principio funciona... pero pruebalo.

Objetivo: Re: Ayuda Con Clipper
JBSAN
7777 produce

&#65464;&#65464;&#65464;&#65464;



pero deberia producir "©©©© " que eslo que me muestra la base de datos y el clipper



M:=CIFROMSN("7777")
@ 15, 1 say "CIFRADA DEL ES " + M + " - " +descimsn((M))



en la pantalla del prgtama en clipper
Citar:

CIFRADA DEL ES ©©©© - 7777
Press any key to continue...



lo curioso es que si el el clipper hago algo como
descimsn(("©©©©"))

el resultado es

((((

lo que coincide con mis experimentos en basic



pero

creo que e por que son caracters raros que usualmente no se imprimen y no son texto comun, por lo tanto el copypaste o el tratarlos como texto no aplica

Perfil MP  
Objetivo: Re: Ayuda Con Clipper
Ten encuenta tambien el juego de caracteres, gambas esta usando UTF8.
A lo mejor es eso...

Saludos

Objetivo: Re: Ayuda Con Clipper
probando con distntos editores dbf al fin encontre uno que si puede mostrar correctamento los caracteres del dbf, por lo tanto ahora si funciona el copypaste


por lo tanto si ahora en el clipper

@ 15, 1 say "DESCIFRADA DEL ES " + descimsn(("¸¸¸¸"))



el resultado es

Citar:
DESCIFRADA DEL ES 7777


lo que es correcto




pero el gambas da

Citar:
A7A7A7A7


probando distintos valores siempre aparece la letra "A" y los numeros estan correctos

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.5893s (PHP: -71% SQL: 171%)
Consultas SQL: 46 - Debug off - GZIP Activado