[SOLUCIONADO] PHP OO Crear codigos en PHP a partir de Pseudo Codigos

[SeFaS90]

TENGO ESTOS PSEUDOCODIGOS QUE ME PASARON EN MI TRABAJO Y NO SE COMO HACERLOS EN PHP


ACA ESTA EL PRIMERO (VERHOEFF)
1)


FUNCION ObtenerVerhoeff(CADENA Cifra) : ENTERO
NUMERO Mul[10][10] = ( (0,1,2,3,4,5,6,7,8,9),
(1,2,3,4,0,6,7,8,9,5),
(2,3,4,0,1,7,8,9,5,6),
(3,4,0,1,2,8,9,5,6,7),
(4,0,1,2,3,9,5,6,7,8),
(5,9,8,7,6,0,4,3,2,1),
(6,5,9,8,7,1,0,4,3,2),
(7,6,5,9,8,2,1,0,4,3),
(8,7,6,5,9,3,2,1,0,4),
(9,8,7,6,5,4,3,2,1,0) )

NUMERO Per[8][10] = ( (0,1,2,3,4,5,6,7,8,9),
(1,5,7,6,2,8,3,0,9,4),
(5,8,0,3,7,9,6,1,4,2),
(8,9,1,6,0,4,3,5,2,7),
(9,4,5,3,1,2,6,8,7,0),
(4,2,8,6,5,7,3,9,0,1),
(2,7,9,3,8,0,6,4,1,5),
(7,0,4,6,9,1,3,2,5,8) )
NUMERO Inv[10] = (0,4,3,2,1,5,6,7,8,9) , Check = 0, I
CADENA NumeroInvertido[]

INICIO
NumeroInvertido = InvierteNumero(Cifra)
PARA I = 0 HASTA (LargoNumero(NumeroInvertido) – 1) HACER
Check = Mul[Check, Per[((I + 1) MODULO 8), A_Numero(NumeroInvertido[I])]]
FIN PARA
RETORNAR Inv[Check]
FIN FUNCION

ejemplos
1. DigitoVerificador = ObtenerVerhoeff(12083) -> Resultado: DigitoVerificador = 7
2. DigitoVerificador = ObtenerVerhoeff(0) -> Resultado: DigitoVerificador = 4
3. DigitoVerificador = ObtenerVerhoeff(1810) -> Resultado: GigitoVerificador = 8
4. DigitoVerificador = ObtenerVerhoeff(04) -> Resultado: GigitoVerificador = 7



ACA ESTA EL SEGUNDO (base64)
2)
FUNCION ObtenerBase64(ENTERO Numero) : CADENA
CARACTER Dicionario[64] = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd',
'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n',
'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x',
'y', 'z', '+', '/' )
ENTERO Cociente = 1, Resto
CADENA Palabra = “”

INICIO
MIENTRAS (Cociente > 0) HACER

Cociente = Numero / 64
Resto = Numero MODULO 64
Palabra = Diccionario[Resto] + Palabra
Numero = Cociente

FIN MIENTRAS
RETORNAR Palabra

FIN FUNCION

Ejemplos:

1. Palabra = ObtenerBase64(934598591) -> Resultado: Palabra = "tjDU/"
2. Palabra = ObtenerBase64(434376710) -> Resultado: Palabra = "Pv106"
3. Palabra = ObtenerBase64(204986118) -> Resultado: Palabra = "CDzS6"

GRACIAS!

[SeFaS90]

PUDE CREAR EL PRIMERO PERO ME DA ERROR EN UNA LINEA QUE LA MARCARE!

Código PHP:

  function ObtenerVerhoeff($Cifra) 
{    $Mul=array( 
        array(0,1,2,3,4,5,6,7,8,9), 
        array(1,2,3,4,0,6,7,8,9,5), 
        array(2,3,4,0,1,7,8,9,5,6), 
        array(3,4,0,1,2,8,9,5,6,7), 
        array(4,0,1,2,3,9,5,6,7,8), 
        array(5,9,8,7,6,0,4,3,2,1), 
        array(6,5,9,8,7,1,0,4,3,2), 
        array(7,6,5,9,8,2,1,0,4,3), 
        array(8,7,6,5,9,3,2,1,0,4), 
        array(9,8,7,6,5,4,3,2,1,0)); 
 
    $Per=array( 
        array(0,1,2,3,4,5,6,7,8,9), 
        array(1,2,3,4,0,6,7,8,9,5), 
        array(2,3,4,0,1,7,8,9,5,6), 
        array(3,4,0,1,2,8,9,5,6,7), 
        array(4,0,1,2,3,9,5,6,7,8), 
        array(5,9,8,7,6,0,4,3,2,1), 
        array(6,5,9,8,7,1,0,4,3,2), 
        array(7,6,5,9,8,2,1,0,4,3), 
        array(8,7,6,5,9,3,2,1,0,4), 
        array(9,8,7,6,5,4,3,2,1,0)); 
  
    $inv = array(0,4,3,2,1,5,6,7,8,9); 
    $Check = 0; 
     
    $NumeroInvertido = InvierteNumero($Cifra) ; 
    for($i=0;$i<strlen($NumeroInvertido)-1;$i++) 
    { 
        $Check=$Mul[$Check,bcmod($Per[(($i+1))],8),(int)($NumeroInvertido[$i])] ; // esta line me da error! :( 
    } 
    return $Check; 
 
}  
   

[pateketrueke]

Me imagino que debemos adivinar el mensaje de error que obtienes para no tener que leer tu mente, ¿verdad?

[SeFaS90]

Parse error: syntax error, unexpected ',', expecting ']' in C:\wamp\www\rpm\rc4.php on line 74

[pateketrueke]

¿Por qué estás usando comas dentro de los corchetes?

Esa sintaxis no es válida.

[SeFaS90]

cual seria la sintaxis valida entonces??

[pateketrueke]

Eso depende, ¿qué intentas conseguir haciendo eso que te da error?

Es imposible leer tu mente y decirte que hacer exactamente, así que ya dirás.

[SeFaS90]

lo que necesito exactamente es:
crear un codigo en php a partir de esto

http://www.impuestos.gob.bo/images/GACCT/FACTURACION/EspVERHOEFF.pdf


ya que el base 64 esta casi solucionado

[txandy]

TENGO ESTOS PSEUDOCODIGOS QUE ME PASARON EN MI TRABAJO Y NO SE COMO HACERLOS EN PHP

Pues nada ya te hacemos nosotros tu trabajo para que lo cobres tu...

[Sirrohan]

No sé que van a hacer esos "pseudocódigos" así que es muy difícil ayudar mediante la telepatía...

[Italico76]

Coincido que no debemos hacer trabajos universitarios, ni de cole, ni de este tipo: una cosa es pedir una ayudita y otra que a uno le hagan todo...es como fomentar la vagancia


PD: hay algo en Wikipedia sin mucho investigar: http://en.wikipedia.org/wiki/Verhoeff_algorithm

Interesante.... no sabia como funcionaban los digitos verificadores