주민번호 유효성 체크 (내국인, 외국인 거주자) > 기술자료

• 목록

<%
'내국인 주민번호 체크
function jumin_chk(reg_no)
Dim a(13)
  for i=0 to 12
    a(i)= CInt(Mid(reg_no, i+1, 1))
  Next

  IF a(6) = 1 OR a(6) = 2 OR a(6) = 3 OR a(6) = 4 THEN
    tmp = a(0) * 2 + a(1) * 3 + a(2) * 4 + a(3) * 5 + a(4) * 6 + a(5) * 7 + a(6) * 8 + a(7) * 9 + a(8) * 2 + a(9) * 3 + a(10) * 4 + a(11) * 5
    tmp = ( 11 - ( tmp mod 11 )) mod 10

    IF a(12) = tmp then
      jumin_chk = true
      exit Function
    END IF
  ELSE
    jumin_chk = false
  END IF
end function


'외국인 거주자 등록번호 체크
Function reg_no_chk(reg_no)
  Dim odd
  Dim a(13)
  Dim i, j, k
  for i=0 to 12
    a(i)= CInt(Mid(reg_no, i+1, 1))
  Next

  odd = a(7)*10 + a(8)
  if ((odd Mod 2) <> 0) then
    check_reg_no = false
    exit Function
  end if

  if (a(11) <> 6) and (a(11) <> 7) and (a(11) <> 8) and (a(11) <> 9) then
    check_reg_no = false
    exit Function
  end if

  j = a(0)*2 + a(1)*3 + a(2)*4 + a(3)*5 + a(4)*6 + a(5)*7 + a(6)*8 + a(7)*9 + a(8)*2 + a(9)*3 + a(10)*4 + a(11)*5
  j = j Mod 11

  k = 11 - j
  If k > 9 Then
    k = k - 10
  End If

  k = k + 2
  If k > 9 Then
    k = k - 10
  End If

  If k <> a(12) Then
    reg_no_chk = false
  Else 
    reg_no_chk = True
  End If
End Function

%>

자료출처
http://flashcafe.org/?mid=asp_study&document_srl=3903