Criptografia - algoritmo Alleged-RC4

alguien me puede orientar o pasar el algoritmo alleged rc4
mejor si esta hecho en informix
gracias de antemano

Tamos en la mismas, estoy buscando este algoritmo , ademas del Verhoeff y el Base-64. Son cambios que debo efectuar para el sistema. Si encuentro algo te lo paso, porfa si tu tienes algo porfa me lo envias a mi correo, gracias. Puede ser en informix o VB. Podes bajar un demo del Alleged-RC4 en http://www.criptored.upm.es/descarga/alleged_RC4_.zip

Estoy trabajando en esto... me avisas si ya conseguiste, asi podrias ahorrarme trabajo... si no conseguiste... me avisas igual... estoy haciendo el algoritmo para el rc4...., quezas te sirva... Chau Edison.

informacio sobre el algoritmo rc4

Hola necesito que me ayuden en la codificación del algoritmo RC4 en PHP por fa...

Hola codifique esta función del algoritmo RC4 “se utiliza para armara el código de control en Impuestos internos Bolivia”
Espero les sirva
Si tienen duda escriban a mi correo [email protected]

/********************* Algoritmo Alleged RC4 ************************/
function allegedRC4($mensaje, $key)
{
//inicializacion de valores
$x=0;
$y=0;
$index1=0;
$index2=0;
$MensajeCifrado="";
for($i=0;$i<=255;$i++)
{
$state[$i] = $i;
}

for($i=0;$i<=256;$i++)
{
$index2 = bcmod((ord($key[$index1])+$state[$i]+$index2),256);
$aux = $state[$i];
$state[$i] = $state[$index2];
$state[$index2]=$aux;
$index1 = bcmod(($index1 +1),strlen($key));
}

for($i=0;$i<=(strlen($mensaje)-1);$i++)
{
$x = bcmod(($x+1),256);
$y = bcmod(($state[$x] + $y),256);
$aux = $state[$x];
$state[$x] = $state[$y];
$state[$y]=$aux;
$NMen =(ord($mensaje[$i]) ^ $state[bcmod($state[$x]+$state[$y],256)]);

$MensajeCifrado = $MensajeCifrado."-".dechex($NMen);
}

return $MensajeCifrado;
}

yo estoy tratando de elaborar un algoritmo que haga esto... pero no tengo informacion... supongo que en unos dias lo tendre..... pero si ya lo tienen,... bienvenido... asi me ahorran trabajo.

Ya me canse, y no me sale, estoy haciendolo en Clipper, si alguien lo tiene me lo puede enviar. GRACIAS

Lo hice !!!

Informix I4Gl +C

Estoy empezando para foxpro 2.6 para DOS., si alguien ya lo tiene, gracias.

Luis Camacho
Bolivia

Hola Luis, puedes ayudarme? tengo problemas con la funcion XOR en INFORMIX. ¿Como haces para por ejem 34 XOR 82?

Gracias de antemano.

Hola, t cuento q por mi parte lo estoy haciendo en PHP, ya tengo la BASE64 y el verhoeff, si lo deseas podemos hacer intercambio, escribeme a mi correo

Hola, estoy en las mismas, en php tengo bse64, y el verhoeff pero no me sale el RC4, si lo tienes porfa me ayudas?

Adriana

Alguien me puede ayudar con el Alleged RC4 en PHP, les agradezco mucho.

Hola amigos, logre implementar los algoritmos para hallar el codigo de control para la facturacion, en especial el ALLEGED RC4, el codigo fuente esta en php y si lo necesitan me escriben a [email protected] y negociamos

El que necesite el generador del codigo de control completo en PHP y en Visual Basic6, escríbame y le mando los códigos a sus correos. Al principio me costó un huevo pero al final resultó bien simple la cuestión, es puro tratamiento de cadenas y arrays.

NO LO VENDO!!!!!!
Para eso son las comunidades no?

Podrias enviarmelos a mi email.

gracias de antemano

hola necesito el generador en Vb6 porfa si podrias enviarme el codigo para que yo lo pueda implementar porfa lo mas antes posible si se puede

Hola, yo necesito el Generador del Codigo de Control en Visual Basic 6 me harias un gran favor si pudieras me ahorarias mucho tiempo mi correo es este:
[email protected]
[email protected] me llamo Franz o.k.

Hola justo andaba buscando el codigo del generador agradeceria me lo pudiese enviar a mi correo ... y si estuviese en C++ mucho mejor =) . [email protected]

Hola roberto , por favor serias amable de enviarme a mi correo el codigo en visual basic, es urgente, mi correo es [email protected], te lo agradeceré muchisimo, Gracias

necesito el generador de codigo de control en visual basic por favor agradecido de antemano

HOLA ROBERTO ESTOY BUSCANDO LAS FUNCIONES PARA GENERAR EL CODIGO DE CONTROL TANTO EN VISUAL BASIC 6 Y EN FOXPRO 9, POR FAVOR SI TIENES ESA INFO ME PODES COMPARTIR, GRACIAS DE ANTEMANO.

existe ya una funcion para RC-4 en Visual Fox
visiten la siguiente pagina ahi esta todo.... suerte.

http://www.sweetpotatosoftware.com/SPSBlog/PermaLink,guid,5d4a0cf0-7d1d-
4353-a49b-667946ff1c81.aspx

cualquier otra duda favor escribir..

el codigo generador para el nuevo sistema de facturacion BOLIVIA.

cualquier duda escribir...

saludos y suerte a todos...

Andres te insinuo ayudarme con la encriptacion alleged rc4, si puedes mandarme tu codigo, te agradeceré mucho tu ayuda.

Favor me pueden ayudar en el algoritmo alleged rc4, no se como implementar las funciones XOR y Convertir a HEXADECIMAL en el lenguaje CLipper 5.1.
No hay implementada estas funciones. Tienen el algoritmo para qu yo lo implemente.

yo estoy en las mismas, en cuanto tenga algo te le envio.

mira tengo problemas con elcodigo verificador si puedes mandarme algunos detalles para pasarlos a visua l Fox te agradeceria mucho.

lucas, tengo base64 y codigo verhoeff lo que me falta es la criptografia alleged rc4, que necesitas en concreto enviame un email y te mando lo que tengo. saludos carlo

AYUDEMONOS EN LA NUEVA CODIFICACION DE FACTURAS

no tengo todavia un correo, por favor si puedes comunicarte conmigo a los telefonos 4449099 o al celular 71776430 (juan carlos ortiz), necesito el algoritmo alleged rc4, parfa la nueva facturación. te agradezco de antemano. Te devolvere los gastos que demanden el llamarme. gracias.

ALGUIEN QUE PUDO CODIFICAR ALLEGED RC4 EN FOXPRO 6 PORFA..SE LO AGRADECERE MUCHICIMO SI ME MANDA......mi correo es [email protected]

HOLAS COMO ESTAS, TE CUENTO QUE YO TAMBIEN ESTOY PROGRAMANDO EN VF6 Y SI PUDIERAS AYUDARME EN ESTA CODIFICACION PARA LA NUEVA FACTURACIONTE LO AGRADECERE BASTANTE.. CUAL ES TU NRO DE CEL PARA QUE QUEDEMOS EN ALGO

HOLA PORFA SI ALGUIEN TUBIESE EL CODIGO ALLEGED RC4 EN VISUAL FOXPRO 6 SE LOS AGRADECERE MUCHICIMO ....MI CORREO ES [email protected] ANTEMANO GRACIAS

Atencion BOLIVIANOS
Tengo a la venta librerias para su sistema de FACTURACION los 3 algoritmos, estas librerias poden ser enlazadas con VF, FW,CLIPPER,CLI4WIN, C++bORLAND, VB. para 16 y 32 bits.

para el NSF. de BOLIVIA

Y no lo vendo.

Lo comparto.!!

Contactenme.

Hola por favor una ayuda, si es que puedes enviarme..
yo tambien tengo varios programas para compartir

si te interesa en cualquier lenguaje

atte. dubert

Hola
Será posible que compartas tu codigo fuente conmigo
gracias

HOLA ANDRES PORFA COMPARTE EL CODIGO DE CONTROL EN FOXPRO TE LO AGRADECERIA

*##########################################################
*#
*# Nuevo Sistema de Facturacion - BOLIVIA
*# (c) Ing. Luis Braulio Camacho Espinoza, 2007
*# [email protected]
*# Uso rc4(nroaut, nrofac, nit, fecha, totalbs, mensaje)
*# Donde :
*# nroaut: es el numero de autorizacion de las facturas
*# nrofac: es el numero de factura
*# nit: es el NIT del cliente
*# fecha es la fecha de la factura
*# totalbs es el monto total de la factura
*# mensaje es la llave proporcionada por el SIN
*# Retorna:
*# Cadena codificada
*#
*# Puede ser utilizado como esta o modificado a sus requerimientos
*# solo, por favor, mantengan el nombre del autor.
*#
*##########################################################
FUNCTION RC4
PARAMETERS nroaut, nrofac, nit, fecha, totalbs, mensaje
PRIVATE ALL
*
paramok = .T.
IF (nroaut <= 0)
WAIT WIND "RC4: Error en el Número de Autorización = " + STR(nroaut)
paramok = .F.
ENDIF
IF (nrofac <= 0)
WAIT WIND "RC4: Error en el Número de Factura = " + STR(nrofac)
paramok = .F.
ENDIF
IF (nit < 0)
WAIT WIND "RC4: Error en el NIT = " + STR(nit)
paramok = .F.
ENDIF
IF (totalbs <= 0)
WAIT WIND "RC4: Error en el Total de la factura = " + STR(totalbs)
paramok = .F.
ENDIF
IF (fecha < CTOD("01/01/2000"))
WAIT WIND "RC4: Error en la Fecha = " + DTOC(fecha)
paramok = .F.
ENDIF
IF LEN(TRIM(mensaje)) <= 0
WAIT WIND "RC4: Error en la llave = " + mensaje
paramok = .f.
ENDIF
IF paramok = .F.
WAIT WIND "RC4: Error en los datos de entrada, no puedo continuar"
WAIT WIND "RC4: Error en los datos de entrada, no puedo continuar"
RETURN ("")
ENDIF
*
nroautd = (nroaut * 10) + FDigitoVer(nroaut)
nrofacd = (nrofac * 10) + FDigitoVer(nrofac)
nitd = (nit * 10) + FDigitoVer(nit)
*
fec = VAL(DTOS(fecha))
fechad = (fec * 10) + FDigitoVer(fec)
*
totbs = FRedondear(totalbs)
totalbsd = (totbs * 10) + FDigitoVer(totbs)
*
suma = (nroautd + nrofacd + nitd + fechad + totalbsd)
*
xmodulo = (suma % ((64^5)-1))
*
mbase64 = FBase64(xmodulo)
*
mrc4 = F_RC4(mbase64, mensaje)
*
RETURN (mrc4)
*
********************************
FUNCTION FRedondear
PARAMETERS mnro
PRIVATE ALL
*
n1 = INT(mnro)
IF (mnro - n1) >= 0.5
n2 = n1 + 1
ELSE
n2 = n1
ENDIF
RETURN (n2)

***********************************************************
***********************************************************
* Digito, obtiene el d¡gito verificador de un n£mero
* (c) Ing. Luis Braulio Camacho Espinoza, 2007
***********************************************************
***********************************************************
FUNCTION FDigitoVer
PARAMETERS nro
PRIVATE ALL
*
DIMENSION g_vhf_mul[10,10]
DIMENSION g_vhf_per[8,10]
DIMENSION g_vhf_inv[10]
*
g_vhf_mul[1,1] = 0
g_vhf_mul[1,2] = 1
g_vhf_mul[1,3] = 2
g_vhf_mul[1,4] = 3
g_vhf_mul[1,5] = 4
g_vhf_mul[1,6] = 5
g_vhf_mul[1,7] = 6
g_vhf_mul[1,8] = 7
g_vhf_mul[1,9] = 8
g_vhf_mul[1,10] = 9
g_vhf_mul[2,1] = 1
g_vhf_mul[2,2] = 2
g_vhf_mul[2,3] = 3
g_vhf_mul[2,4] = 4
g_vhf_mul[2,5] = 0
g_vhf_mul[2,6] = 6
g_vhf_mul[2,7] = 7
g_vhf_mul[2,8] = 8
g_vhf_mul[2,9] = 9
g_vhf_mul[2,10] = 5
g_vhf_mul[3,1] = 2
g_vhf_mul[3,2] = 3
g_vhf_mul[3,3] = 4
g_vhf_mul[3,4] = 0
g_vhf_mul[3,5] = 1
g_vhf_mul[3,6] = 7
g_vhf_mul[3,7] = 8
g_vhf_mul[3,8] = 9
g_vhf_mul[3,9] = 5
g_vhf_mul[3,10] = 6
g_vhf_mul[4,1] = 3
g_vhf_mul[4,2] = 4
g_vhf_mul[4,3] = 0
g_vhf_mul[4,4] = 1
g_vhf_mul[4,5] = 2
g_vhf_mul[4,6] = 8
g_vhf_mul[4,7] = 9
g_vhf_mul[4,8] = 5
g_vhf_mul[4,9] = 6
g_vhf_mul[4,10] = 7
g_vhf_mul[5,1] = 4
g_vhf_mul[5,2] = 0
g_vhf_mul[5,3] = 1
g_vhf_mul[5,4] = 2
g_vhf_mul[5,5] = 3
g_vhf_mul[5,6] = 9
g_vhf_mul[5,7] = 5
g_vhf_mul[5,8] = 6
g_vhf_mul[5,9] = 7
g_vhf_mul[5,10] = 8
g_vhf_mul[6,1] = 5
g_vhf_mul[6,2] = 9
g_vhf_mul[6,3] = 8
g_vhf_mul[6,4] = 7
g_vhf_mul[6,5] = 6
g_vhf_mul[6,6] = 0
g_vhf_mul[6,7] = 4
g_vhf_mul[6,8] = 3
g_vhf_mul[6,9] = 2
g_vhf_mul[6,10] = 1
g_vhf_mul[7,1] = 6
g_vhf_mul[7,2] = 5
g_vhf_mul[7,3] = 9
g_vhf_mul[7,4] = 8
g_vhf_mul[7,5] = 7
g_vhf_mul[7,6] = 1
g_vhf_mul[7,7] = 0
g_vhf_mul[7,8] = 4
g_vhf_mul[7,9] = 3
g_vhf_mul[7,10] = 2
g_vhf_mul[8,1] = 7
g_vhf_mul[8,2] = 6
g_vhf_mul[8,3] = 5
g_vhf_mul[8,4] = 9
g_vhf_mul[8,5] = 8
g_vhf_mul[8,6] = 2
g_vhf_mul[8,7] = 1
g_vhf_mul[8,8] = 0
g_vhf_mul[8,9] = 4
g_vhf_mul[8,10] = 3
g_vhf_mul[9,1] = 8
g_vhf_mul[9,2] = 7
g_vhf_mul[9,3] = 6
g_vhf_mul[9,4] = 5
g_vhf_mul[9,5] = 9
g_vhf_mul[9,6] = 3
g_vhf_mul[9,7] = 2
g_vhf_mul[9,8] = 1
g_vhf_mul[9,9] = 0
g_vhf_mul[9,10] = 4
g_vhf_mul[10,1] = 9
g_vhf_mul[10,2] = 8
g_vhf_mul[10,3] = 7
g_vhf_mul[10,4] = 6
g_vhf_mul[10,5] = 5
g_vhf_mul[10,6] = 4
g_vhf_mul[10,7] = 3
g_vhf_mul[10,8] = 2
g_vhf_mul[10,9] = 1
g_vhf_mul[10,10] = 0
*
g_vhf_per[1,1] = 0
g_vhf_per[1,2] = 1
g_vhf_per[1,3] = 2
g_vhf_per[1,4] = 3
g_vhf_per[1,5] = 4
g_vhf_per[1,6] = 5
g_vhf_per[1,7] = 6
g_vhf_per[1,8] = 7
g_vhf_per[1,9] = 8
g_vhf_per[1,10] = 9
g_vhf_per[2,1] = 1
g_vhf_per[2,2] = 5
g_vhf_per[2,3] = 7
g_vhf_per[2,4] = 6
g_vhf_per[2,5] = 2
g_vhf_per[2,6] = 8
g_vhf_per[2,7] = 3
g_vhf_per[2,8] = 0
g_vhf_per[2,9] = 9
g_vhf_per[2,10] = 4
g_vhf_per[3,1] = 5
g_vhf_per[3,2] = 8
g_vhf_per[3,3] = 0
g_vhf_per[3,4] = 3
g_vhf_per[3,5] = 7
g_vhf_per[3,6] = 9
g_vhf_per[3,7] = 6
g_vhf_per[3,8] = 1
g_vhf_per[3,9] = 4
g_vhf_per[3,10] = 2
g_vhf_per[4,1] = 8
g_vhf_per[4,2] = 9
g_vhf_per[4,3] = 1
g_vhf_per[4,4] = 6
g_vhf_per[4,5] = 0
g_vhf_per[4,6] = 4
g_vhf_per[4,7] = 3
g_vhf_per[4,8] = 5
g_vhf_per[4,9] = 2
g_vhf_per[4,10] = 7
g_vhf_per[5,1] = 9
g_vhf_per[5,2] = 4
g_vhf_per[5,3] = 5
g_vhf_per[5,4] = 3
g_vhf_per[5,5] = 1
g_vhf_per[5,6] = 2
g_vhf_per[5,7] = 6
g_vhf_per[5,8] = 8
g_vhf_per[5,9] = 7
g_vhf_per[5,10] = 0
g_vhf_per[6,1] = 4
g_vhf_per[6,2] = 2
g_vhf_per[6,3] = 8
g_vhf_per[6,4] = 6
g_vhf_per[6,5] = 5
g_vhf_per[6,6] = 7
g_vhf_per[6,7] = 3
g_vhf_per[6,8] = 9
g_vhf_per[6,9] = 0
g_vhf_per[6,10] = 1
g_vhf_per[7,1] = 2
g_vhf_per[7,2] = 7
g_vhf_per[7,3] = 9
g_vhf_per[7,4] = 3
g_vhf_per[7,5] = 8
g_vhf_per[7,6] = 0
g_vhf_per[7,7] = 6
g_vhf_per[7,8] = 4
g_vhf_per[7,9] = 1
g_vhf_per[7,10] = 5
g_vhf_per[8,1] = 7
g_vhf_per[8,2] = 0
g_vhf_per[8,3] = 4
g_vhf_per[8,4] = 6
g_vhf_per[8,5] = 9
g_vhf_per[8,6] = 1
g_vhf_per[8,7] = 3
g_vhf_per[8,8] = 2
g_vhf_per[8,9] = 5
g_vhf_per[8,10] = 8
*
g_vhf_inv[1] = 0
g_vhf_inv[2] = 4
g_vhf_inv[3] = 3
g_vhf_inv[4] = 2
g_vhf_inv[5] = 1
g_vhf_inv[6] = 5
g_vhf_inv[7] = 6
g_vhf_inv[8] = 7
g_vhf_inv[9] = 8
g_vhf_inv[10] = 9
*
check = 0
i = 0
j = 0
perr = 0
longnro = 0
*
nroc = RTRIM(LTRIM(STR(nro,16,0)))
longnro = LEN(nroc)
nroc = FInvCadena(nroc)
check = 0
FOR i = 0 TO (longnro - 1)
perr = ((i + 1) % 8)
j = VAL(SUBSTR(nroc,i+1,1))
perr = Per(perr,j)
check = Mul(check, perr)
ENDFOR
check = Inv(check)
RETURN (check)
****************************************************
FUNCTION FInvCadena
PARAMETERS c
c2 = ""
i = 0
j = 0
c2 = ""
FOR I = 1 TO LEN(c)
c2 = SUBSTR(c,i,1) + c2
ENDFOR
RETURN (c2)
***************************************************
FUNCTION Mul
PARAMETERS i,j
*
RETURN (g_vhf_mul[i+1, j+1])
*******************************************************
FUNCTION Per
PARAMETERS i,j
*
RETURN (g_vhf_per[i+1, j+1])
******************************************************
FUNCTION Inv
PARAMETERS i
*
RETURN (g_vhf_inv[i+1])
*****************************************************

***********************************************************
***********************************************************
* Digito, la base 64 de un numero
* c) Ing. Luis Braulio Camacho Espinoza, 2007
***********************************************************
***********************************************************
FUNCTION FBase64
PARAMETERS mnro
PRIVATE ALL
DIMENSION g_base64(64)
g_base64[01] = "0"
g_base64[02] = "1"
g_base64[03] = "2"
g_base64[04] = "3"
g_base64[05] = "4"
g_base64[06] = "5"
g_base64[07] = "6"
g_base64[08] = "7"
g_base64[09] = "8"
g_base64[10] = "9"
g_base64[11] = "A"
g_base64[12] = "B"
g_base64[13] = "C"
g_base64[14] = "D"
g_base64[15] = "E"
g_base64[16] = "F"
g_base64[17] = "G"
g_base64[18] = "H"
g_base64[19] = "I"
g_base64[20] = "J"
g_base64[21] = "K"
g_base64[22] = "L"
g_base64[23] = "M"
g_base64[24] = "N"
g_base64[25] = "O"
g_base64[26] = "P"
g_base64[27] = "Q"
g_base64[28] = "R"
g_base64[29] = "S"
g_base64[30] = "T"
g_base64[31] = "U"
g_base64[32] = "V"
g_base64[33] = "W"
g_base64[34] = "X"
g_base64[35] = "Y"
g_base64[36] = "Z"
g_base64[37] = "a"
g_base64[38] = "b"
g_base64[39] = "c"
g_base64[40] = "d"
g_base64[41] = "e"
g_base64[42] = "f"
g_base64[43] = "g"
g_base64[44] = "h"
g_base64[45] = "i"
g_base64[46] = "j"
g_base64[47] = "k"
g_base64[48] = "l"
g_base64[49] = "m"
g_base64[50] = "n"
g_base64[51] = "o"
g_base64[52] = "p"
g_base64[53] = "q"
g_base64[54] = "r"
g_base64[55] = "s"
g_base64[56] = "t"
g_base64[57] = "u"
g_base64[58] = "v"
g_base64[59] = "w"
g_base64[60] = "x"
g_base64[61] = "y"
g_base64[62] = "z"
g_base64[63] = "+"
g_base64[64] = "/"
*
cociente = 1
resto = 0
palabra = ""
DO WHILE (cociente > 0)
cociente = INT(mnro / 64)
resto = mnro % 64
palabra = g_base64[resto+1] + palabra
mnro = cociente
ENDDO
RETURN (palabra)
**************************************************************
*****************************************************
*(c) Ing. Luis Braulio Camacho Espinoza, 2007
*

Continua en : parte 2

* parte 2
***********************************************************
* F_RC4
* (c) Ing. Luis Braulio Camacho Espinoza, 2007
***********************************************************
***********************************************************
FUNCTION F_RC4
PARAMETERS mensaje, key
PRIVATE ALL
*
mensaje = LTRIM(RTRIM(mensaje))
key = LTRIM(RTRIM(key))
*
DIMENSION state[256]
x = 0
y = 0
index1 = 0
index2 = 0
aux = 0
nmem = 0
i = 0
msjcifrado = ""
*
FOR i = 0 TO 255
state[i+1] = i
ENDFOR
*
FOR i = 0 TO 255
index2 = (ASC(substr(key,index1+1,1)) + state[i+1] + index2) % 256
*
temp = state[i+1]
state[i+1] = state[index2+1]
state[index2+1] = temp
*
index1 = (index1 + 1) % LEN(key)
ENDFOR
*
FOR i = 0 TO (LEN(mensaje)-1)
x = (x + 1) % 256
y = (state[x+1] + y) % 256
*
temp = state[x+1]
state[x+1] = state[y+1]
state[y+1] = temp
*
p1 = ASC(SUBSTR(mensaje,i+1,1))
p2 = state[((state[x+1] + state[y+1]) % 256)+1]
nmem = F_xor(p1, p2)
nmem = Fadecimal(nmem,2)
msjcifrado = msjcifrado + "-" + Fhexa(nmem)
ENDFOR
msjcifrado = SUBSTR(msjcifrado,2,LEN(msjcifrado))
RETURN (msjcifrado)
****************************************************
FUNCTION F_xor
PARAMETERS n1, n2
PRIVATE ALL
nn1 = Fbinario(n1)
nn2 = Fbinario(n2)
ret = ""
FOR i = 1 TO 8
IF (SUBSTR(nn1,i,1) = SUBSTR(nn2,i,1))
ret = ret + "0"
ELSE
ret = ret + "1"
ENDIF
ENDFOR
RETURN (ret)
****************************************************
FUNCTION Fbinario
PARAMETER xnro
PRIVATE ALL
ret = ""
DO WHILE xnro > 0
division = INT(xnro / 2)
resto = xnro % 2
ret = iif(resto = 1, "1", "0") + ret
xnro = division
ENDDO
DO WHILE (LEN(ret) < 8)
ret = "0" + ret
ENDDO
RETURN (ret)
******************************************************
FUNCTION Fadecimal
PARAMETERS dnro, base
PRIVATE ALL
STORE 0 TO i,r,l,n
l = LEN(dnro)
FOR i = l TO 1 STEP -1
n = VAL(SUBSTR(dnro,i,1))
r = r + (n * (base ** (l-i)))
ENDFOR
RETURN(r)
******************************************************
FUNCTION Fhexa
PARAMETER hnro
PRIVATE ALL
d = "0123456789ABCDEF"
ret = ""
DO WHILE hnro > 0
division = INT(hnro / 16)
resto = hnro % 16
ret = SUBSTR(d,resto+1,1) + ret
hnro = division
ENDDO
DO WHILE (LEN(ret) < 2)
ret = "0" + ret
ENDDO
RETURN (ret)
******************************************************
*(c) Ing. Luis Braulio Camacho Espinoza, 2007
*

PERFECTO
FUNCIONA PERFECTAMENTE
GRACIAS POR EL APORTE !!!!!!!!

porque sale error en la fecha ??