Verificar CPF

[bolomaster]

Função para verificar CPF

<% 
Function Verificar(valor)

Dim arrayCPF(9)

valor=trim(cstr(valor))

Verificar = True

   if len(valor) <> 11 then

     Verificar = False

   else

      for i = 0 to 9

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

      next

   if Verificar then

      for i = 1 to 9

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

     next

     for i = 1 to 9

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

     next

       Digito1 = 11 - (Digito1 MOD 11)

   if Digito1 >= 10 then Digito1 = 0

       Digito2 = Digito1 * 2

     for i = 1 to 9

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

     next

       Digito2 = 11 - (Digito2 MOD 11)

  if Digito2 >= 10 then Digito2 = 0

  if (CStr(Digito1) & CStr(Digito2)) <> Right(valor,2) then Verificar = False

  end if

  end if

End Function

%>