South Africa's Top Online Tech Classifieds!
Register a free account today to become a member! (No Under 18's)
Home of C.U.D.
Thanks bud. I saw that extension but was taken there by a dodgy link so I left it. It must be legit if it's recommended on Carb!
Nope.
public static bool LuhnAlgo(string checknumber)
{
int total = 0;
int total2 = 0;
int k = 0;
checknumber = checknumber.Replace(" ", "");
//Double each digit starting from the right
int[] doubledDigits = new int[checknumber.Length / 2];
for (int i = checknumber.Length - 2; i >= 0; i -= 2)
{
int digit = int.Parse(checknumber[i].ToString());
doubledDigits[k] = digit * 2;
k++;
}
//Add up separate digits
foreach (int i in doubledDigits)
{
string number = i.ToString();
for (int j = 0; j < number.Length; j++) total += int.Parse(number[j].ToString());
}
//Add up other digits
for (int i = checknumber.Length - 1; i >= 0; i -= 2)
{
int digit = int.Parse(checknumber[i].ToString());
total2 += digit;
}
int final = total + total2;
return final % 10 == 0; //Well formed will divide evenly by 10
}
finalID=[];
def genCheksum(d):
val1 = int(d[0]) + int(d[2]) + int(d[4]) + int(d[6]) + int(d[8]) + int(d[10])
val2 = 0
evenString = d[1] + d[3] + d[5] + d[7] + d[9] +d[11]
temp = int(evenString)*2
evenString = str(temp)
for i in range(len(evenString)):
val2 = val2 + int(evenString[i])
val3 = str(val1+val2)
valfinal = val3[1]
checksum = 10 - int(valfinal)
if checksum != 10:
finalID.append(d + str(checksum))
else:
finalID.append(d + "0")
'''
test = "960709509708"
genCheksum(test)
print(finalID)
'''
Public Function ValidateID(ID As String) As Boolean
Dim Odd, Even As String
If ID.Length = 13 Then
Dim OddChars = ID.Select(Function(c, Index) If(Index Mod 2 = 0 And Index < 11, c, " "c))
Odd = New String(OddChars.ToArray()).Replace(" ", "").Sum(Function(c) If(Val(c) >= 0, Val(c), Val(c)))
Dim EvenChars = ID.Select(Function(c, Index) If(Index Mod 2 = 0, " "c, c))
Even = Str(CInt(New String(EvenChars.ToArray()).Replace(" ", "") * 2)).Sum(Function(c) If(Val(c) >= 0, Val(c), Val(c)))
Dim a As Integer = 10 - (Val(Odd) + Val(Even)) Mod 10
If a = 10 Then a = 0
If a = Val(ID.Substring(12, 1)) Then
Return True
Else
Return False
End If
Else
Return False
End If
End FunctionPublic Function parseIdNo(ByVal idNo As String) As Boolean
Try
Dim a As Integer = 0
For i As Integer = 0 To 5
a += CInt(idNo.Substring(i * 2, 1))
Next
Dim b As Integer = 0
For i As Integer = 0 To 5
b = b * 10 + CInt(idNo.Substring(2 * i + 1, 1))
Next
b *= 2
Dim c As Integer = 0
Do
c += b Mod 10
b = Int(b / 10)
Loop Until b <= 0
c += a
Dim d As Integer = 0
d = 10 - (c Mod 10)
If (d = 10) Then d = 0
If d = CInt(idNo.Substring(12, 1)) Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
<?php
/**
* Validate SA ID Number.
*
* @param string $id
* @return bool
*/
function checkId(string $id) : bool
{
$match = preg_match("!^(\d{2})(\d{2})(\d{2})\d{7}$!", $id, $matches);
if (!$match) {
return false;
}
list(, $year, $month, $day) = $matches;
/**
* Check that the date is valid
*/
if (!checkdate($month, $day, $year)) {
return false;
}
/**
* Now Check the control digit
*/
$d = -1;
$a = 0;
for ($i = 0; $i < 6; $i++) {
$a += $id {
2 * $i};
}
$b = 0;
for ($i = 0; $i < 6; $i++) {
$b = $b * 10 + $id {
2 * $i + 1};
}
$b *= 2;
$c = 0;
do {
$c += $b % 10;
$b = $b / 10;
} while ($b > 0);
$c += $a;
$d = 10 - ($c % 10);
if ($d == 10) $d = 0;
if ($id {
strlen($id) - 1} == $d) {
return true;
}
return false;
}
