Posted
Filed under .NET/VB.NET
Dim tot As String = "0"
        Dim ADD As String = "234567892345"
        Dim Input As String

        Console.WriteLine("주민등록번호를 입력하세요")
        Console.WriteLine("(입력 형식 : 1234561234567)")

        Input = Console.ReadLine()

        If Input.Length <> 13 Then
            Console.WriteLine("잘못된 입력, 프로그램 종료")
        Else

            Dim i As Integer = 0

            For i = 0 To 11 Step 1
                tot = tot + Input.Substring(i, 1) * ADD.Substring(i, 1)
            Next

            tot = 11 - (tot Mod 11)

            If tot = 10 Then
                tot = 0
            ElseIf tot = 11 Then
                tot = 1
            End If

            If Input.Substring(12, 1) = tot Then
                Console.WriteLine("입력하신 주민등록번호는 올바른 주민등록번호 입니다.")
            Else
                Console.WriteLine("입력하신 주민등록번호는 잘못된 주민등록번호입니다.")
            End If
        End If

       
VB.NET - Console Application 으로 주민등록번호 진위 여부 확인하는 Code

2007/09/25 17:13 2007/09/25 17:13
Posted
Filed under 잡담
평소 같으면 하루에 300~400여명 정도의 방문자수를 발생시키곤 했는데.

요 몇일 사이 방문자가 100~200명 정도로 줄어들어서..
왜 갑자기 줄어 들었을까 생각을 가지고.....

리퍼러 기록을 확인하던 중..
평소 같으면 daum에서 검색을 통한 방문이 많았는데..
오늘 확인해 보니 daum에서의 방문은 2%로 98%가 줄어든거 같군요..-_-+

네이버야 뭐.. 그대로인거 같은데..
다음에서 들어오는 결과가 확 줄어든거 같고..

예전같으면 글을 포스팅 하고 대략 1시간 정도면 daum측에서 검색이 가능했었는데...
지금은.. 몇일 정도 걸리는 거 같군요...ㅠ

가장 큰 문제는..
관리 소홀이겠지만.....ㅠ
2007/08/29 03:33 2007/08/29 03:33