باعرض سلام و ادب و احترام خاص محضر یکایک کاربران عزیز و گرامی
سخن مدیریت:
*تیم نرم افزاری پایگاه سایبری استان خوزستان با وجود تغییر بسیار زیاد یگانی خود (حوزه داخلی) همچنان خدمتگزار ملت شریف ایرانی اسلامی است، بطوریکه تیم 15 نفره کارشناسی ما، هم اکنون به تعداد 3 نفر تقلیل یافته است ولی هنوز درحد توان پاسخگوی سوالات شما در مباحث مختلف کامپیوتری هستیم، همچنین به پیشنهاد یکی از کاربران گرامی درکنار پیام رسان تلگرام از پیام رسان سروش نیز جهت پاسخگویی استفاده می نماییم.
*تعدادی از کاربران نیز درخواست همکاری داشته اند که متاسفانه در این شرایط امکان ایجاد کاربری برای این عزیزان میسر نمی باشد.
*تیم نرم افزاری پایگاه سایبری استان خوزستان ساعات خوشی را برای شما آرزومند است و امیدواریم بهترین لحظه ها را در کنار خانواده خود بسر ببرید
یلدا مبارک
به درخواست تعدادی از کاربران الگوریتم تشخیص صحت شناسه ملی ایرانیان را با نسخه های مختلفی را آماده کرده ایم که در اختیار عزیزان قرار میدهیم.
دلفی
Function IDCheck(NationalID: String): Boolean;
Var
Sum: LongInt;
I, Md, J: Integer;
Rs: Boolean;
Begin
Rs := False;
Sum := 0;
For I := 1 To 9 Do
Begin
Md := Strtoint(NationalID[I]);
Sum := Sum + (Md * (11 - I));
End;
J := Sum Mod 11;
If J < 2 Then
BEGIN
If Strtoint(NationalID[10]) = J Then
Rs := True
Else
Rs := False;
END
Else
Begin
If Strtoint(NationalID[10]) = (11 - J) Then
Rs := True
Else
Rs := False;
End;
Result := Rs;
End;
vba
Public Function CheckCode(ByVal Code As String) As Boolean
Dim c As Double, n As Double, r As Double
If Len(Code) < 10 Then Code = (10 - Len(Code) + "0") & Code
If Code = "0000000000" Or Code = "1111111111" Or Code = "2222222222" Or Code = "3333333333" Or Code = "4444444444" Or Code = "5555555555" Or Code = "6666666666" Or Code = "7777777777" Or Code = "8888888888" Or Code = "9999999999" Then
Return (False)
Else
c = Val(Mid$(Code, 10, 1))
Dim j As Integer = 10
For i As Integer = 1 To 9
n = n + Val(Mid$(Code, i, 1)) * j
j = j - 1
Next
r = n - Int(n / 11) * 11
If (r = 0 And r = c) Or (r = 1 And c = 1) Or (r > 1 And c = 11 - r) Then Return (True)
End If
End Function
c#
public bool NationalCodeCheck(string nationalCode)
{
nationalCode = nationalCode.SubString(0, 10);
for(int i = 0; i < (10 - nationalCode.Length); i++)
{
nationalCode = "0" + nationalCode;
}
int sum = 0;
for(int i = 1; i <= 10; i++)
{
int digit;
int.TryParse(nationalCode.SubString(i, 1), out digit);
sum += digit * (i + 1);
}
if(sum > 2)
{
sum = 11 % sum;
}
return (sum.ToString() == nationalCode.SubString(0, 1));
}
php
function NationalCodeCheck($nationalCode)
{
$nationalCode = substr($nationalCode, 0, 10);
for($i = 0; $i < (10 - strlen($nationalCode)); $i++)
{
$nationalCode = '0'.$nationalCode;
}
$sum = 0;
for($i = 1; $i <= 10; $i++)
{
$sum += substr($nationalCode, i, 1) * ($i + 1);
}
if($sum > 2)
{
$sum = 11 % $sum;
}
return ($sum == substr($nationalCode, 0, 1));
}
درباره این سایت