Conectar-se
Últimos assuntos
Quem está conectado
22 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 21 Visitantes

GenezisEffect

Ver toda a lista


Ir em baixo
Borgo
Data de inscrição : 06/01/2009
Número de Mensagens : 69
Insígnias de JAM : valida CPF Empty

Insignia 1x 0 Insignia 2x 0 Insignia 3x 0
Reputação : 0

Prêmios
   :
   :
   :
Ver perfil do usuáriohttp://www.neonerds.com.br

valida CPF Empty valida CPF

em Ter 05 Maio 2009, 20:06
Script para validar CPFs


Código:
//Criado por Borgo william@neonerds.com.br
//msn: link_wall@hotmail.com Usem sem moderação!!
//argument0 CPF
//uso: if valida_cpf(12312312312){.......}
//retorna true ou false



cpft=string(argument0)
for(cpfi=1;cpfi<=11;cpfi+=1){
    dd[cpfi]="0"
}
for(cpfi=1;cpfi<=11;cpfi+=1){
    dd[cpfi+11-string_length(cpft)]=string_copy(cpft,cpfi,1)
}
cpfsum=0

for(cpfi=2;cpfi<=10;cpfi+=1){
    dx[cpfi-1] = (12-cpfi)*real(dd[cpfi-1])
    cpfsum+=dx[cpfi-1]
}
if cpfsum mod 11 < 2{
    dv1=0
}else{
    dv1=11-(cpfsum mod 11)
}
cpfsum=0
for(cpfi=2;cpfi<=10;cpfi+=1){
    dx[cpfi-1] = (13-cpfi)*real(dd[cpfi-1])
    cpfsum+=dx[cpfi-1]
}
dx[11] = 2*real(dv1)
cpfsum+=dx[11]

if cpfsum mod 11 < 2{
    dv2=0
}else{
    dv2=11-(cpfsum mod 11)
}
if string(dv1)=string_copy(cpft,string_length(cpft)-1,1) && string(dv2)=string_copy(cpft,string_length(cpft)-0,1){
    return true;
}else{
    return false;
}


Última edição por Borgo em Qui 07 Maio 2009, 09:09, editado 2 vez(es)
Igor KinGamer
Data de inscrição : 26/09/2008
Número de Mensagens : 890
Insígnias de JAM : valida CPF Empty

Insignia 1x 0 Insignia 2x 0 Insignia 3x 0
Reputação : 11

Prêmios
   :
   :
   :
Ver perfil do usuário

valida CPF Empty Re: valida CPF

em Qua 06 Maio 2009, 00:31
Ooooookaaaay....

Não consegui entender o que faz confused
Borgo
Data de inscrição : 06/01/2009
Número de Mensagens : 69
Insígnias de JAM : valida CPF Empty

Insignia 1x 0 Insignia 2x 0 Insignia 3x 0
Reputação : 0

Prêmios
   :
   :
   :
Ver perfil do usuáriohttp://www.neonerds.com.br

valida CPF Empty Re: valida CPF

em Qui 07 Maio 2009, 08:31
é um script que valida CPFs, crie um script, nomei-o de por exemplo valida_cpf e ai, quando for necessário validar um CPF, basta usar valida_cpf(12345678978), como ele retorna true ou false, pode-se usar com o IF

if valida_cpf(nrCpf){
show_message("CPF Válido")
}else{
show_message("CPF Inválido")
}

Vou criar mais para frente um script que valida CPF, CNPJ e RG.
CPinheiro
Data de inscrição : 01/06/2008
Número de Mensagens : 1015
Insígnias de JAM : valida CPF Empty

Insignia 1x 0 Insignia 2x 0 Insignia 3x 0
Reputação : 0

Prêmios
   :
   :
   :
Ver perfil do usuáriohttp://supermariobrasileiro.blogspot.com

valida CPF Empty Re: valida CPF

em Qui 07 Maio 2009, 16:43
Whopa, excelente script! Ficou bem interessante mesmo, e será bastante uso caso alguém crie um programa de compras. Parabéns!
wac2007
Data de inscrição : 07/11/2008
Número de Mensagens : 521
Insígnias de JAM : valida CPF Empty

Insignia 1x 0 Insignia 2x 0 Insignia 3x 0
Reputação : 0

Prêmios
   :
   :
   : 1
Ver perfil do usuáriohttp://wac2007.blogspot.com/

valida CPF Empty Re: valida CPF

em Ter 28 Jul 2009, 17:29
@CPinheiro escreveu:Whopa, excelente script! Ficou bem interessante mesmo, e será bastante uso caso alguém crie um programa de compras. Parabéns!

Programa de Compras?? No Game Maker??/ Shocked

Tem q ser mto cranio =P

Mto legal seu script mas naum creio q alguem usaria isso n GM =/
Conteúdo patrocinado

valida CPF Empty Re: valida CPF

Voltar ao Topo
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum