jajaja Hombre para que inventar la rueda de nuevo¿ ?
Código PHP:
<?php
function dv($r){$s=1;for($m=0;$r!=0;$r/=10)$s=($s+$r%10*(9-$m++%6))%11;
return chr($s?$s+47:75);}
?>
ejemplo en funcionamiento:
==>Aquí<==
para otros lenguajes como:
NATURAL, EN PALABRAS, ActionScript, AS400, ASP , AWK, C, C Sharp, C#, Clipper, COBOL, Delphi, Excel, FORTRAN Requerido!!!, INTERCAL, Java, JavaScript, Maple, Oz, Pascal, Perl, PHP, PostgreSQL, Prolog, Python, Ruby, Scheme, SQL Server 2000 , Turing, User-RPL, Calculadoras HP , Visual Basic, Visual FoxPro
==>Aquí<==