Validando Campo De Cpf E Cnpj

[tsarri]

Ola galera do mal, firmeza??

É o seguinte eu tem um formulario e nele o cliente tem que por o seu cnjp, alguém sabe o script para eu validar um de cnpj, ah e eu tbvou precisar do script para validar cpf, valeu galera.........

[dark0]

veja:

'Validação de CPF ************************************************************

Function checkCPF(CPF)

  Dim EVAR1

  Dim evar2 

  Dim F

  If Len(Trim(CPF)) <> 11 Then

     checkCPF = False

     Exit Function

  End If

  EVAR1 = 0

  For F = 1 To 9

     EVAR1 = EVAR1 + ABS(Mid(CPF, F, 1)) * (11 - F)

  Next

  evar2 = 11 - (EVAR1 - (Int(EVAR1 / 11) * 11))

  If evar2 = 10 Or evar2 = 11 Then evar2 = 0

  If evar2 <> ABS(Mid(CPF, 10, 1)) Then

     checkCPF = False

     Exit Function

  End If

  EVAR1 = 0

  For F = 1 To 10

      EVAR1 = EVAR1 + ABS(Mid(CPF, F, 1)) * (12 - F)

  Next

  evar2 = 11 - (EVAR1 - (Int(EVAR1 / 11) * 11))

  If evar2 = 10 Or evar2 = 11 Then evar2 = 0

  If evar2 <> ABS(Mid(CPF, 11, 1)) Then

     checkCPF = False

     Exit Function

 End If

 checkCPF = True

End Function



'Validação do CNPJ*************************************************************

Function checkCNPJ(CNPJ)

  Dim VAR1, VAR2, VAR3, VAR4, VAR5

  If len(cnpj) = 8 And ABS(CNPJ) > 0 Then

     VAR1 = 0

     VAR2 = 0

     VAR4 = 0

     For VAR3 = 1 To 7

        VAR1 = ABS(Mid(CNPJ, VAR3, 1))

        If (VAR1 Mod 2) <> 0 Then

           VAR1 = VAR1 * 2

        End If

        If VAR1 > 9 Then

           VAR2 = VAR2 + Int(VAR1 / 10) + (VAR1 Mod 10)

        Else

           VAR2 = VAR2 + VAR1

        End If

     Next

     If (VAR2 Mod 10) <> 0 then VAR4 = 10 - (VAR2 Mod 10) else VAR4 = 0 end if

     If VAR4 = ABS(Mid(CNPJ, 8, 1)) Then

        checkCNPJ = True

     Else

        checkCNPJ = False

     End If

  Else

     If Len(CNPJ) = 14 And abs(CNPJ) > 0 Then

        VAR1 = 0

        VAR3 = 0

        VAR4 = 0

        VAR5 = 0

        VAR2 = 5

        For VAR3 = 1 To 12

           VAR1 = VAR1 + (ABS(Mid(CNPJ, VAR3, 1)) * VAR2)

           If(VAR2 > 2) then VAR2 =  VAR2 - 1 else VAR2 =  9 end if

        Next

        VAR1 = VAR1 Mod 11

        If(VAR1 > 1) then VAR4 = 11 - VAR1 else VAR4 =  0 end if

        VAR1 = 0

        VAR3 = 0

        VAR2 = 6

        For VAR3 = 1 To 13

           VAR1 = VAR1 + (ABS(Mid(CNPJ, VAR3, 1)) * VAR2)

           If(VAR2 > 2) then VAR2 = VAR2 - 1 else VAR2 =  9 end if

        Next

        VAR1 = VAR1 Mod 11

        If(VAR1 > 1) then VAR5 = 11 - VAR1 else VAR5 =  0 end if

        If (VAR4 = ABS(Mid(CNPJ, 13, 1)) And VAR5 = ABS(Mid(CNPJ, 14, 1))) Then

           checkCNPJ = True

        Else

           checkCNPJ = False

        End If

     Else

        checkCNPJ = False

     End If

  End If

End Function

%>

essas funções foram tiradas de Freecode, Criadas por Rodrigo Pires.

Abraços

[Fabyo]

Opa e ai galera sou novo na area mas já sou bem conhecido em php

eu mechia um pouco com asp antes espero que isso ajude:

validar cpf

ValidaCPF.ASP

<%

Function ChkCPF(valor)

Dim arrayCPF(9)

valor=trim(cstr(valor))

ChkCPF = True

if len(valor) <> 11 then

ChkCPF = False

else

for i = 0 to 9

if valor = String(11,CStr(i)) then ChkCPF = False

next

if ChkCPF then

for i = 1 to 9

arrayCPF(i-1) = int(mid(valor, i, 1))

next

for i = 1 to 9

dig1 = dig1 + (arrayCPF(9-i)*(i+1))

next

dig1 = 11 - (dig1 MOD 11)

if dig1 >= 10 then dig1 = 0

dig2 = dig1 * 2

for i = 1 to 9

dig2 = dig2 + (arrayCPF(9-i)*(i+2))

next

dig2 = 11 - (dig2 MOD 11)

if dig2 >= 10 then dig2 = 0

if (CStr(dig1) & CStr(dig2)) <> Right(valor,2) then ChkCPF = False

end if

end if

End Function

%>

O desculpa por postar junto eu nem vi eu tava escrevendo e sai da minha mesa depois quando voltei eu só cliquei foi mal