Posted
Filed under .NET/VB.NET
Module Module1
    Sub Main()
        Dim T As String = "0"
        Dim Temp As String = "0"
        Dim Key As String = "2121212121212121"
        Dim Input As String

        Console.WriteLine("카드 번호 16자리를 입력하세요")
        Console.WriteLine("(입력 형식 : 1234567891234563)")

        Input = Console.ReadLine()

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

            Dim i As Integer = 0

            For i = 0 To Input.Length - 1
                T += Int((Input.Substring(i, 1) * Key.Substring(i, 1)) / 10) + Int((Input.Substring(i, 1) * Key.Substring(i, 1)) Mod 10)
            Next

            T = T Mod 10

            If T = 0 Then
                Console.WriteLine("올바른 카드번호")
            Else
                Console.WriteLine("잘못된 카드번호")
            End If
            Console.WriteLine(T)
        End If
    End Sub
End Module

신용카드 확인하는 소스이긴 하나..
뭐.. 카드사 마다 틀리겠지요...ㅠ (수업용...자료로.. 활용하시길..)

2007/10/04 23:02 2007/10/04 23:02

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