'000.000.000-00

'01234567890123     Length = 14

'00000000000

'01234567890        Length = 11

Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim CPF As String

        Dim text as String = ""

        Dim emissao(10) As String

        CPF = Console.ReadLine()

        If Not isNumeric(CPF, text) Then

            Console.WriteLine(text)

        ElseIf Not isValid(CPF, text) Then

            Console.WriteLine(text)

        Else

            Console.WriteLine(text)

            ' Checa onde foi emitido

            CPF = CPF.Replace(".", "").Replace("-", "")

            local(emissao)

            For i = 0 To emissao.Length - 1

                Select Case CPF.Substring(8, 1)

                    Case i

                        If emissao(i).Contains(",") Then

                            Console.WriteLine("CPF emitido em um dos seguintes estados brasileiros: " & emissao(i))

                        Else

                            Console.WriteLine("CPF emitido em " & emissao(i))

                        End If

​

                End Select

            Next

        End If

​

        Main()

    End Sub

​

    ' - - - - - - - - -

    Private Function isValid(Byval value As String, ByRef text As String) As Boolean

        Try

            Dim cpf As String = ""

            Dim should As String

            Dim chr(11) As Integer

            Dim count As Integer = 10

            Dim total As Integer = 0

            Dim rest As Integer = 0

            ' Digitos

            Dim x As Integer

            Dim y As Integer

            If Not value.Length = 11 And Not value.Length = 14 Then

                text = "Dado informado não é um CPF."

                Return False

            ElseIf isFormatted(value) = False Then

                text = "Formato de CPF inválido."

                Return False

            End If

​

            cpf = value.Replace(".", "").Replace("-", "")

            cpf = cpf.Substring(0, 9) ' Sem os caracteres de verificação

            ' DIGITO X

            For i = 0 To cpf.Length - 1

                chr(i) = cpf.Substring(i, 1)

                chr(i) = chr(i) * count

                count -= 1

                total += chr(i)

            Next

​

            rest = total mod 11

            If rest = 0 Or rest = 1 Then

                x = 0

            Else

                x = 11 - rest

            End If

​

            cpf = cpf & x

            total = 0

            count = 11

            ' DIGITO Y

            For i = 0 To cpf.Length - 1

                chr(i) = cpf.Substring(i, 1)

                chr(i) = chr(i) * count

                count -= 1

                total += chr(i)

            Next

​

            rest = total mod 11

            if rest = 0 Or rest = 1 Then

                y = 0

            Else

                y = 11 - rest

            End If

​

            cpf = cpf & y

            should = cpf.Insert(3, ".").insert(7, ".").Insert(11, "-")

            If Not cpf = value.Replace(".", "").Replace("-", "") Then

                if Not value.Contains(".") or Not value.Contains("-") Then

                    cpf = value.Insert(3, ".").insert(7, ".").Insert(11, "-")

                else

                    cpf = value

                End If

​

                text = "CPF " & cpf & " inválido. Tente usar " & should & "."

                Return False

            End If

​

            text = "CPF " & cpf & " é matematicamente válido."

            Return True

        Catch ex As Exception

            text = "Houve um erro ao verificar o CPF." & ex.Message.ToString

            Return False

        End Try

    End Function

​

    ' - - - - - - - - -

    Private Function isFormatted(Byval value As String) As Boolean

        Dim index() As Integer = {3, 7, 11}

        Dim chr() As String = {".", ".", "-"}

        If Not value.Contains(".") Or Not value.Contains("-") Then

            Return True

        End If

​

        For x = 0 To index.Length - 1

            If Not value.Substring(index(x), 1).Contains(chr(x)) Then

                Return False

            End If

        Next

​

        Return True

    End Function

​

    ' - - - - - - - - -

    Private Function isNumeric(Byval value As String, ByRef text As String) As Boolean

        Dim chr() As String = {"a", "b", "c", "d", "e", ", f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}

        For x = 0 To chr.Length - 1

            If value.Contains(chr(x)) Or value.Contains(chr(x).ToUpper) Then

                text = "CPF não deve conter letras."

                Return False

            End If

        Next

​

        Return True

    End Function

​

    ' - - - - - - - - -

    Private Sub local(ByRef emissao() As String)

        emissao(0) = "Rio Grande do Sul."

        emissao(1) = "Distrito Federal, Goiás, Mato Grosso do Sul ou Tocantins"

        emissao(2) = "Pará, Amazonas, Acre, Amapá, Rondônia ou Roraima"

        emissao(3) = "Ceará, Maranhão ou Piauí"

        emissao(4) = "Pernambuco, Rio Grande do Norte, Paraíba ou Alagoas"

        emissao(5) = "Bahia ou Sergipe"

        emissao(6) = "Minas Gerais"

        emissao(7) = "Rio de Janeiro ou Espírito Santo"

        emissao(8) = "São Paulo"

        emissao(9) = "Paraná ou Santa Catarina"

    End Sub

End Module

​