cpf

[explore 3]

Ai Pessoal to com uma Duvida e gostaria me ajudasem se for Possivel!

 

Fiz um Sistema que verifica o CPF, Mais no Caso ele só está colocando CPF invalido mesmo que eu digite CPF valido! vo postar o codigo!

 

ASP

[*]<%

 

[*]cpf = request.QueryString("cpf")

 

[*]cpf = replace(cpf,".","")

 

[*]cpf = replace(cpf,"-","")

 

[*]cpf = replace(cpf," ","")

 

[*]if Trim(cpf) <> "" then

 

[*]  if not isNumeric(cpf) then

 

[*]  Response.write("<script>alert('Somente Numeros')</script>")

 

[*] Response.write("<script>window.open('cpf.asp', '_parent')</script>")

 

[*] Response.end

 

[*] Else

 

[*]For i = 1 To 9

 

[*]  calc = (int(Mid(cpf, i, 1) * i)) + calc

 

[*]Next

 

[*]calc = calc Mod 11 Mod 10

 

[*]If calc <> Mid(cpf, 10, 1) Then

 

[*] Response.write("<script>alert('CPF INVALIDO')</script>")

 

[*] Response.write("<script>window.open('cpf.asp', '_parent')</script>")

 

[*] Response.end

 

[*] End If

 

[*]calc = 0

 

[*] For i = 1 To 10

 

[*] calc = (int(Mid(cpf, i + 1, 1) * i))

 

[*]  Next 'Fim do Segundo Laço

 

[*]calc = calc Mod 11 Mod 10

 

[*]If calc <> Mid(cpf, 11, 1) Then

 

[*]  Response.write("<script>alert('CPF INVALIDO')</script>")

 

[*]  Response.write("<script>window.open('cpf.asp', '_parent')</script>")

 

[*] Else 

 

[*] Response.write("<script>alert('CPF VALIDO, OBRIGADO')</script>")

 

[*]  End If

 

[*]End If

 

[*]End if

 

[*]%>

 

Detalhe: estou submetendo o resultado para mesma Pagina!

Expore

[explore 3]

Alguemmmmmmmmmmmmmmmm???

[arr 0]

Eu não devia... mas vou lhe ajudar :P

 

Tem alguns erros no cálculo do algoritmo,

teste esse:

Presta atenção que ainda é preciso verificar se o resto de "calc = 11 - (calc Mod 11)" é menor que 2 para que esse script fique correto.

 

ASP

[*]<%

 

[*]cpf = request.QueryString("cpf")

 

[*]cpf = replace(cpf,".","")

 

[*]cpf = replace(cpf,"-","")

 

[*]cpf = replace(cpf," ","")

 

[*]if Trim(cpf) <> "" then

 

[*]  if not isNumeric(cpf) then

 

[*]  Response.write("<script>alert('Somente Numeros')</script>")

 

[*] Response.write("<script>window.open('cpf.asp', '_parent')</script>")

 

[*] Response.end

 

[*] Else

 

[*]Dim B

 

[*]B=10

 

[*]For i = 1 To 9

 

[*]  calc = (int(Mid(cpf, i, 1) *  B) ) + calc

 

[*]  B=B-1

 

[*]Next

 

[*]calc = 11 - (calc Mod 11) '**Atenção****

 

[*]' Ainda precisa verificar se o resultado é menor que 2, neste caso Calc=0

 

[*]

 

[*]If Cint(calc) <> Cint(Mid(cpf, 10, 1)) Then

 

[*] Response.write("CPF INVALIDO1")

 

[*] Response.end

 

[*]End If

 

[*]' ##### Validando o segundo dígito

 

[*]calc = 0

 

[*]B=11

 

[*] For i = 1 To 10

 

[*]  calc = (int(Mid(cpf, i, 1) *  B) )+ calc

 

[*]  B=B-1

 

[*]Next 

 

[*]calc = 11 - (calc Mod 11) '**Atenção****

 

[*]' Ainda precisa verificar se o resultado é menor que 2, neste caso Calc=0

 

[*]

 

[*]If Cint(calc) <> Cint(Mid(cpf, 11, 1)) Then

 

[*]  Response.write("CPF INVALIDO2")

 

[*] Else 

 

[*]  Response.write("<script>alert('CPF VALIDO, OBRIGADO')</script>")

 

[*]End If

 

[*]

 

[*]End If

 

[*]

 

[*]End if

 

[*]

 

[*]%>