الگویتم تشخیص صحت شناسه ملی اشخاص حقوقي
مطلب زير رو از اين آدرس گرفتم و كد جاوا اسكريپتش هم بصورتي كه مي بينيد بود و من لازم ديدم كه اونو براي دوستاني كه به اين كد نياز دارن به كد دلفي تبديل كنم
لينك منبع :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
امروزه در اکثر نرم افزارهای تولیدی نیاز به استفاده از شناسه ملی اشخصاص حقوقی به عنوان یک مشخصه منحصر به فرد برای اطلاعات شخص حقوقي می باشد.برای استعلام شناسه ملی می توانید به سایت
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
مراجعه نموده و با وارد کردن مشخصات شخص حقوقی مورد نظر اقدام به جستجوی شناسه ملی داده شده نمایید. نتیجه این جستجو محل ثبت ، نام شخص حقوقی، شماره ثبت ، شناسه ملی ، تاریخ ثبت و آدرس و کد پستی شخص حقوقی می باشدهر چند روش بالا برای اطمینان از صحت و ارتباط شناسه داده شده با شخص مورد نظر روش خوبی است ولی همواره نیازمند داشتن یک اتصال اینترنتی بوده و به صورت موردی باید جستجو شود. (شبیه بررسی مدارک در مراحل اولیه کارها ) اما مهندسان نرم افزار و برنامه نویسان نیازمند يک الگوی کنترلی برای صحت کد می باشند تا بتوانند از ورود کد های نامعتبر جلوگیری کرده و یا کد های موجود در سیستم را وارسی نمایند.متاسفانه در حال حاضر هیچ الگوریتمی برای تشخیص صحت کد ورودی در اختیار برنامه نویسان وجود ندارد.اخیرا با توجه به نیاز خودم به کنترل صحت کد ورودی ،الگوریتم مربوط به کنترل صحت شناسه ملی را بدست آوردم و چون مطمئن هستم افراد زیادی هم همین نیاز را دارند روال انجام کار را در این جا توضیح می دهمشناسه ملی شماره ای است 11 رقمی که از سمت چپ چهار رقم کد شهرستان محل ثبت ، شش رقم بعدی کد منحصر به فرد برای شخص حقوقی دارنده شناسه در شهرستان محل ثبت و رقم آخر آن هم یک رقم کنترل است که از روی 10 رقم سمت چپ بدست می آید. برای بررسی کنترل کد کافی است مجدد از روی 10 رقم سمت چپ رقم کنترل را محاسبه کنیم ساختار شناسه ملی در زیر نشان داده شده است| ساختار شناسه ملی |
| ارقام کد |
رقم کنترل |
10 رقم سمت چپ شناسه ملی |
| موقعیت |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
| ساختار شناسه ملی |
| ساختار کد |
رقم کنترل |
10 رقم سمت چپ شناسه ملی |
| ارقام شناسه |
0 |
9 |
7 |
4 |
8 |
2 |
0 |
8 |
3 |
0 |
1 |
| رقم دهگان +2 |
|
11 |
11 |
11 |
11 |
11 |
11 |
11 |
11 |
11 |
11 |
| ضريب ارقام |
|
17 |
19 |
23 |
27 |
29 |
17 |
19 |
23 |
27 |
29 |
| محاسبه حاصل ضرب |
|
340 |
342 |
345 |
513 |
377 |
187 |
361 |
322 |
297 |
348 |
هریک از ارقام سمت چپ شناسه ملی (10 رقم سمت چپ شناسه ملی) را با رقم دهگان شناسه ملی +2 جمع می کنیم و حاصل را در را ضریب آن رقم ضرب کرده و نتیجه ها را با هم جمع می کنیم .دقت کنید در اینجا رقم دهگان 9 و رقم دهگان +2 برابر با 11 می باشد. بنابراین همه ارقام کد با 11 جمع شده و سپس در ضریب مربوط به خودش ضرب شده است.
(1+11)*29+(0+11)*27+(3+11)*23+(8+11)*19+(0+11)*17+ (2+11)*29+(8+11)*27+(4+11)*23+(7+11)*19+(9+11)*17= 34323432÷11=312 و R=0
چون باقیمانده برابر صفر است پس باید رقم کنترل این شناسه برابر صفر باشد.با دقت در شناسه ملی مورد نظر متوجه می شویم که رقم کنترل ورودی برابر صفر است پس شناسه ملی مورد نظر به عنوان یک شناسه ملی معتبر قابل قبول است.
كد جاوا اسكريپت :
کد:
function checkCodeMeli(code)
کد:
{ var L=code.length; if(L<11 || parseInt(code,10)==0) return false; if(parseInt(code.substr(3,6),10)==0) return false; var c=parseInt(code.substr(10,1),10); var d=parseInt(code.substr(9,1),10)+2; var z=new Array(29,27,23,19,17); var s=0; for(var i=0;i<10;i++) s+=(d+parseInt(code.substr(i,1),10))*z[i%5]; s=s%11;if(s==10) s=0; return (c==s); }
كد دلفي :
کد:
function TForm1.ShMeli(Code : String):Boolean;
کد:
var L,C,D,S,I : Integer;
flag : Boolean;
begin
flag := (Code = '00000000000') or (code = '11111111111') or (code = '22222222222') or (code = '33333333333');
flag := (Code = '44444444444') or (code = '55555555555') or (code = '66666666666') or (code = '77777777777') or flag;
flag := (Code = '88888888888') or (code = '99999999999') or flag;
if not flag then
begin
if Code = '' then
ShMeli:= False
else
if Length(Code) < 11 then
ShMeli := False
else
begin
C:= StrToInt(Code[11]); // شناسايي رقم كنترل
L:=Length(Code); // محاسبه طول كد
D:= StrToInt(Code[10])+2; /// محاسبه دهگان +2
S := 0; //1- براي محاسبه رقم کنترل از روي ساير ارقام ، هر رقم را با رقم
// دهگان کد +2 کرده و سپس در ضريب آن ضرب مي کنيم و حاصل را با هم جمع مي کنيم.
S := s + ((d+StrToInt(Code[1]))*29);
S := s + ((d+StrToInt(Code[2]))*27);
S := s + ((d+StrToInt(Code[3]))*23);
S := s + ((d+StrToInt(Code[4]))*19);
S := s + ((d+StrToInt(Code[5]))*17);
S := s + ((d+StrToInt(Code[6]))*29);
S := s + ((d+StrToInt(Code[7]))*27);
S := s + ((d+StrToInt(Code[8]))*23);
S := s + ((d+StrToInt(Code[9]))*19);
S := s + ((d+StrToInt(Code[10]))*17);
S := s mod 11; //2- مجموع بدست آمده از مرحله يک را بر 11 تقسيم مي کنيم
if s = 10 then //3- اگر باقيمانده برابر 10 باشد ، باقيمانده را برابر 0 قرار مي دهيم
s := 0
else
if s = c then //4-اگر رقم کنترل برابر باقيمانده باشد شناسه ملي صحيح فرض مي شود
ShMeli := True;
end;
end
else ShMeli := False; //در غير اين صورت شناسه ملي مورد نظر صحيح نمي باشد
end;
مثال :
کد:
procedure TForm1.Button1Click(Sender: TObject);
کد:
begin
if CodeMeli(Edit1.Text)=true then
ShowMessage('.كد صحيح است')
else
ShowMessage('.كد معتبر نيست');
end;
