valida CPF

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;
}

CPinheiro escreveu:Whopa, excelente script! Ficou bem interessante mesmo, e será bastante uso caso alguém crie um programa de compras. Parabéns!