|
Página 1 de 1
|
Autor |
Mensaje |
codificador
Analista Programador
Registrado: Junio 2010
Mensajes: 420
Edad: 114 Ubicación:
|
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
********************************
|
#1 Jueves, 16 Febrero 2012, 17:44 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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
=================== No podemos regresar
|
#2 Jueves, 16 Febrero 2012, 18:43 |
|
|
codificador
Analista Programador
Registrado: Junio 2010
Mensajes: 420
Edad: 114 Ubicación:
|
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
|
#3 Jueves, 16 Febrero 2012, 19:35 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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.
=================== No podemos regresar
|
#4 Viernes, 17 Febrero 2012, 09:41 |
|
|
codificador
Analista Programador
Registrado: Junio 2010
Mensajes: 420
Edad: 114 Ubicación:
|
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
|
#5 Viernes, 17 Febrero 2012, 19:08 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
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.
|
#6 Viernes, 17 Febrero 2012, 20:05 |
|
|
codificador
Analista Programador
Registrado: Junio 2010
Mensajes: 420
Edad: 114 Ubicación:
|
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
|
#7 Sabado, 18 Febrero 2012, 00:53 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Ayuda Con Clipper
Ten encuenta tambien el juego de caracteres, gambas esta usando UTF8.
A lo mejor es eso...
Saludos
|
#8 Sabado, 18 Febrero 2012, 11:16 |
|
|
codificador
Analista Programador
Registrado: Junio 2010
Mensajes: 420
Edad: 114 Ubicación:
|
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
|
#9 Domingo, 19 Febrero 2012, 02:49 |
|
|
|
Temas parecidos
Temas parecidos
Tema |
Autor |
Foro |
Respuestas |
último mensaje |
|
Ayuda Y Mas Ayuda, Con Programar Fecha
|
luisrel |
Controles/Librerías/Componentes |
2 |
Viernes, 03 Diciembre 2010, 15:50 luisrel |
|
Gambas3.4(Casi).Ventana De Ayuda Y Ayuda O...
|
Shell |
Instalación |
3 |
Martes, 22 Enero 2013, 00:23 Shell |
|
Ayuda.
|
mauricio785 |
Controles/Librerías/Componentes |
4 |
Miercoles, 12 Octobre 2016, 00:42 vuott |
|
Ayuda Online, Ayuda Offline
|
Shell |
General |
1 |
Jueves, 20 Octobre 2016, 13:30 Shell |
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados Usuarios registrados conectados: Ninguno
|
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
|
|
|
|
|