thorsten /
phpMyFAQ
| @@ 1878-1890 (lines=13) @@ | ||
| 1875 | // calculate check digit C |
|
| 1876 | $p = 1; |
|
| 1877 | $check = 0; |
|
| 1878 | for ($i = ($len - 1); $i >= 0; --$i) { |
|
| 1879 | $digit = $code{$i}; |
|
| 1880 | if ($digit == '-') { |
|
| 1881 | $dval = 10; |
|
| 1882 | } else { |
|
| 1883 | $dval = intval($digit); |
|
| 1884 | } |
|
| 1885 | $check += ($dval * $p); |
|
| 1886 | ++$p; |
|
| 1887 | if ($p > 10) { |
|
| 1888 | $p = 1; |
|
| 1889 | } |
|
| 1890 | } |
|
| 1891 | $check %= 11; |
|
| 1892 | if ($check == 10) { |
|
| 1893 | $check = '-'; |
|
| @@ 1900-1912 (lines=13) @@ | ||
| 1897 | // calculate check digit K |
|
| 1898 | $p = 1; |
|
| 1899 | $check = 0; |
|
| 1900 | for ($i = $len; $i >= 0; --$i) { |
|
| 1901 | $digit = $code{$i}; |
|
| 1902 | if ($digit == '-') { |
|
| 1903 | $dval = 10; |
|
| 1904 | } else { |
|
| 1905 | $dval = intval($digit); |
|
| 1906 | } |
|
| 1907 | $check += ($dval * $p); |
|
| 1908 | ++$p; |
|
| 1909 | if ($p > 9) { |
|
| 1910 | $p = 1; |
|
| 1911 | } |
|
| 1912 | } |
|
| 1913 | $check %= 11; |
|
| 1914 | $code .= $check; |
|
| 1915 | ++$len; |
|
