| Artículo |
|---|
 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
********************************
|
|
codificador [ Jueves, 16 Febrero 2012, 17:44 ]
|
 |
| Comentarios |
|---|
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
|
|
shordi [ Jueves, 16 Febrero 2012, 18:43 ]
|
|
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
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 |
|
codificador [ Jueves, 16 Febrero 2012, 19:35 ]
|
|
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.
|
|
shordi [ Viernes, 17 Febrero 2012, 09:41 ]
|
|
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.
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
|
|
codificador [ Viernes, 17 Febrero 2012, 19:08 ]
|
|
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.
|
|
jsbsan [ Viernes, 17 Febrero 2012, 20:05 ]
|
|
Re: Ayuda Con Clipper |
JBSAN
7777 produce
ﾸﾸﾸﾸ
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
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
|
|
codificador [ Sabado, 18 Febrero 2012, 00:53 ]
|
|
Re: Ayuda Con Clipper |
Ten encuenta tambien el juego de caracteres, gambas esta usando UTF8.
A lo mejor es eso...
Saludos
|
|
jsbsan [ Sabado, 18 Febrero 2012, 11:16 ]
|
|
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
|
|
codificador [ Domingo, 19 Febrero 2012, 02:49 ]
|
|
|
|
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
|
|
