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
********************************
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
********************************