تیم نرم افزاری پایگاه سایبری استان خوزستان

محلی عمومی برای انتقال دانش برنامه نویسی

تیم نرم افزاری پایگاه سایبری استان خوزستان

محلی عمومی برای انتقال دانش برنامه نویسی

تیم نرم افزاری پایگاه سایبری استان خوزستان پاسا | پایگاه سایبری استان خوزستان | پاسخگوی همیشگی سوالات شما کاربران عزیز

جهت بیان هرگونه سوال و یا دیدگاه می توانید از کاربری تلگرام و سروش زیر استفاده نمایید
Telegram: @saiber89
سروش: @saiber89

آپ پیسی نام گروه نرم افزاری ماست که قصد داریم در خدمت جامعه خود با رویکرد انتقال دانش برنامه نویسی و رفع مشکلات شما در ضمینه های برنامه نویسی باشیم ./

آخرین نظرات
  • ۲۹ آذر ۹۷، ۱۵:۳۹ - نیم ست نقره
    عالیه
نویسندگان

پاسا | نمونه کد تشخیص صحت کد ملی | vba - php - c# - دلفی

پنجشنبه, ۲۹ آذر ۱۳۹۷، ۰۳:۱۷ ب.ظ | افسر سایبری | ۱ نظر


باعرض سلام و ادب و احترام خاص محضر یکایک کاربران عزیز و گرامی


سخن مدیریت:


*تیم نرم افزاری پایگاه سایبری استان خوزستان با وجود تغییر بسیار زیاد یگانی خود (حوزه داخلی) همچنان خدمتگزار ملت شریف ایرانی اسلامی است، بطوریکه تیم 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));
}
پاسخگویی رایگان به سوالات کاربران

اشتراک گذاری در پیام رسان سروش


اشتراک گذاری در پیام رسان واتس اپ


اشتراک گذاری در پیام رسان تلگرام



  • افسر سایبری

نظرات  (۱)

  • نیم ست نقره
  • عالیه 

    ارسال نظر

    کاربران بیان میتوانند بدون نیاز به تأیید، نظرات خود را ارسال کنند.
    اگر قبلا در بیان ثبت نام کرده اید لطفا ابتدا وارد شوید، در غیر این صورت می توانید ثبت نام کنید.
    شما میتوانید از این تگهای html استفاده کنید:
    <b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
    تجدید کد امنیتی