Criptografia - algoritmo Alleged-RC4

 
Vista:

algoritmo Alleged-RC4

Publicado por ernesto (1 intervención) el 28/09/2006 17:02:18
alguien me puede orientar o pasar el algoritmo alleged rc4
mejor si esta hecho en informix
gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:algoritmo Alleged-RC4

Publicado por Ruddy (1 intervención) el 11/10/2006 15:55:25
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Edison

RE:algoritmo Alleged-RC4

Publicado por Edison (3 intervenciones) el 30/10/2006 16:47:32
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por miguel angel (1 intervención) el 02/07/2007 15:37:55
informacio sobre el algoritmo rc4
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

HELP: algoritmo Alleged-RC4 en PHP

Publicado por Alejandro (1 intervención) el 02/08/2007 19:55:43
Hola necesito que me ayuden en la codificación del algoritmo RC4 en PHP por fa...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:HELP: algoritmo Alleged-RC4 en PHP

Publicado por JOSE LUIS (1 intervención) el 21/08/2009 21:48:51
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 flores-jl@hotmail.com

/********************* 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;
}
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Edison

RE:algoritmo Alleged-RC4

Publicado por Edison (3 intervenciones) el 30/10/2006 16:50:49
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

algoritmo Alleged-RC4

Publicado por Adhemar (1 intervención) el 14/02/2007 13:31:05
Ya me canse, y no me sale, estoy haciendolo en Clipper, si alguien lo tiene me lo puede enviar. GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Luis Camacho (3 intervenciones) el 16/02/2007 03:02:00
Lo hice !!!

Informix I4Gl +C

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

Luis Camacho
Bolivia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por HENRY H. TERCEROS (1 intervención) el 23/02/2007 23:12:32
Hola Luis, puedes ayudarme? tengo problemas con la funcion XOR en INFORMIX. ¿Como haces para por ejem 34 XOR 82?

Gracias de antemano.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Maximiliano Reyes (1 intervención) el 21/02/2007 14:19:51
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Adriana (1 intervención) el 24/02/2007 15:39:49
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Hugo (1 intervención) el 29/08/2007 22:28:36
Alguien me puede ayudar con el Alleged RC4 en PHP, les agradezco mucho.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

algoritmo Alleged-RC4

Publicado por The Answer (1 intervención) el 08/08/2007 15:03:35
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 answeres@hotmail.com y negociamos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Roberto (1 intervención) el 10/10/2007 17:38:24
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?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Luis alfonso (2 intervenciones) el 15/06/2011 16:12:33
Podrias enviarmelos a mi email.

gracias de antemano
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Alejandra (1 intervención) el 12/07/2011 18:47:32
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:algoritmo Alleged-RC4

Publicado por Franz (3 intervenciones) el 17/10/2011 22:59:34
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:
amr_franz@hotmail.com
amrfranz@gmail.com
me llamo Franz o.k.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Enrique (1 intervención) el 23/11/2012 18:58:45
Hola justo andaba buscando el codigo del generador agradeceria me lo pudiese enviar a mi correo ... y si estuviese en C++ mucho mejor =) . ricky_1194@hotmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Marx (1 intervención) el 18/11/2014 15:55:12
Hola roberto , por favor serias amable de enviarme a mi correo el codigo en visual basic, es urgente, mi correo es marxleon@hotmail.com, te lo agradeceré muchisimo, Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4 por favor necesito wel generador de condigo de control vb6 agradecido de a

Publicado por Edy Felix Tarqui G. (1 intervención) el 17/12/2015 07:21:29
necesito el generador de codigo de control en visual basic por favor agradecido de antemano
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo Alleged-RC4

Publicado por Andres V. (3 intervenciones) el 26/02/2007 23:09:30
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..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

LO LOGRE EN VPF6.0

Publicado por ANDRES V. (3 intervenciones) el 27/02/2007 23:24:12
el codigo generador para el nuevo sistema de facturacion BOLIVIA.

cualquier duda escribir...

saludos y suerte a todos...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por Carlo Pinto (3 intervenciones) el 27/03/2007 12:38:40
Andres te insinuo ayudarme con la encriptacion alleged rc4, si puedes mandarme tu codigo, te agradeceré mucho tu ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por Poli (1 intervención) el 04/04/2007 23:40:34
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por Carlo Pinto (3 intervenciones) el 08/04/2007 14:45:50
yo estoy en las mismas, en cuanto tenga algo te le envio.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por lucas (1 intervención) el 11/04/2007 00:29:41
mira tengo problemas con elcodigo verificador si puedes mandarme algunos detalles para pasarlos a visua l Fox te agradeceria mucho.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por Carlo Pinto (3 intervenciones) el 15/04/2007 13:13:42
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por Chelo (5 intervenciones) el 19/07/2007 18:09:56
AYUDEMONOS EN LA NUEVA CODIFICACION DE FACTURAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

alleged rc4

Publicado por juan carlos ortiz (3 intervenciones) el 05/07/2007 00:13:20
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:alleged rc4

Publicado por CHELO (5 intervenciones) el 08/08/2007 17:38:00
ALGUIEN QUE PUDO CODIFICAR ALLEGED RC4 EN FOXPRO 6 PORFA..SE LO AGRADECERE MUCHICIMO SI ME MANDA......mi correo es adolsan10@hotmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por CHELO (5 intervenciones) el 18/07/2007 16:27:41
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por CHELO (5 intervenciones) el 07/08/2007 17:48:52
HOLA PORFA SI ALGUIEN TUBIESE EL CODIGO ALLEGED RC4 EN VISUAL FOXPRO 6 SE LOS AGRADECERE MUCHICIMO ....MI CORREO ES adolsan10@hotmail.com....DE ANTEMANO GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por Racha (1 intervención) el 25/08/2007 00:50:26
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

alleged en vfox, Informix4Gl

Publicado por Arturo (1 intervención) el 05/10/2007 23:49:41
para el NSF. de BOLIVIA

Y no lo vendo.

Lo comparto.!!

Contactenme.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:alleged en vfox, Informix4Gl

Publicado por dubert rodriguez perales (1 intervención) el 08/02/2008 17:30:59
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LO LOGRE EN VPF6.0

Publicado por Martin (1 intervención) el 22/02/2008 19:21:25
Hola
Será posible que compartas tu codigo fuente conmigo
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Alleged-RC4 en VFP parte 1

Publicado por Luis B. Camacho Espinoza (3 intervenciones) el 11/10/2007 20:00:49
*##########################################################
*#
*# Nuevo Sistema de Facturacion - BOLIVIA
*# (c) Ing. Luis Braulio Camacho Espinoza, 2007
*# luibra@hotmail.com
*# 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Alleged-RC4 en VFP parte 2

Publicado por Luis B. Camacho Espinoza (3 intervenciones) el 11/10/2007 20:03:34
* 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
*
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Alleged-RC4 en VFP parte 2

Publicado por luis silva (1 intervención) el 12/03/2008 13:56:53
PERFECTO
FUNCIONA PERFECTAMENTE
GRACIAS POR EL APORTE !!!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar