Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > PHP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 14-04-2008
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
A ver Emilio, mira a ver si esta función te anda

Código PHP:
function calculaDv($imei)
{
    
$len = strlen($imei);
    
$suma = 0;

    for (
$i = 0; $i < $len; $i++)
    {
        
$producto = $imei{$len - $i - 1} * (2 - ($i &#37; 2));
        
$suma += ($producto % 10) + ($producto - ($producto % 10)) / 10;
    }

    return (
10 - ($suma % 10)) % 10;
} 
No es que lo haya encontrado en ningún lado pero probé con el algoritmo módulo 10 y me ha funcionado en el imei de mi celular y 3 o 4 que he encontrado en internet.

// Saludos

Última edición por roman fecha: 14-04-2008 a las 10:26:37.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Algún algoritmo para calcular el último día de un mes David OOP 3 06-03-2008 18:13:01
Solamente el Ultimo digito Camilo Varios 31 07-11-2007 18:57:38
Comparar un number dígito a dígito kuan-yiu SQL 2 25-06-2007 18:26:47
Modificar un str dígito a dígito fortran Varios 11 22-12-2003 17:44:46
como calcular el digito de control d una cuenta bancaria User_Baja_2 Varios 3 31-05-2003 16:35:16


La franja horaria es GMT +2. Ahora son las 13:41:04.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi