Gerador de CPF e CNPJ no Game Maker?

Coloque isso no step de um objeto:

Código:

if (keyboard_check_pressed(vk_enter))
{
    // Os 9 primeiros números são gerados aleatoriamente
    for (c = 0; c < 9; c += 1)
    d[c] = floor(random(10));
    // Primeiro dígito verificador
    soma = 0;
    for (c = 0; c < 9; c += 1) // Os 9 valores são multiplicados por 10, 9, ..., 3, 2
    soma += d[c]*(10-c); // e os produtos são somados.
    resto = soma mod 11; // Então, a soma é dividida por 11 e,
    if (resto < 2) // se o resto for menor que 2,
    d[9] = 0; // o primeiro dígito verificador é 0,
    else // senão,
    d[9] = 11-resto; // é (11-resto).
    // Segundo dígito verificador
    soma = 0;
    for (c = 0; c < 10; c += 1) // Os 10 valores são multiplicados por 11, 10, ..., 3, 2
    soma += d[c]*(11-c); // e os produtos são somados.
    resto = soma mod 11; // Então, a soma é dividida por 11 e,
    if (resto < 2) // se o resto for menor que 2,
    d[10] = 0; // o segundo dígito verificador é 0,
    else // senão,
    d[10] = 11-resto; // é (11-resto).
    // O CPF gerado é mostrado na cena
    CPF = "";
    for (c = 0; c < 11; c += 1)
    {
        if (c == 3 || c == 6)
        CPF += ".";
        if (c == 9)
        CPF += "-";
        CPF += string(d[c]);
    }
    show_message(CPF);
}

<gml>//Esse é o script que gera um cpf válido
//Autor:Jucélio Evangelista Fonseca
//Data:14/07/11
//Uso: gerar_cpf()
//Declaração de variáveis
var num,soma,strcpf;
soma=0;
//Repetição para gerar digitos aleatórios
//de zero a nove
//e a soma dos algarismos
for(i=1;i<=9;i+=1)
{num[i]=round(random(9));
soma+=(num[i]*(11-i));}
//achar o primeiro digito verificador
//Se o resto da divisao por onze
//é menor que dois
//então o primeiro digito será 0
//Caso contrário(else)
//será 11 menos ele
if (soma mod 11<2)
{num[10]=0;}
else
{num[10]=11-(soma mod 11);}
//achar o segundo dígito verificador
//Re-calculando a soma com o primeiro digito verificador
soma=0;
for(i=1;i<=10;i+=1)
{soma+=(num[i]*(12-i));}
//Se o resto da divisao por onze
//é menor que dois
//então o primeiro digito será 0
//Caso contrário(else)
//será 11 menos ele
if (soma mod 11<2)
{num[11]=0;}
else
{num[11]=11-(soma mod 11);}
//Já temos o número agora só falta a string
//que retorna o cpf
//Veja abaixo:
strcpf=string(num[1])+string(num[2])+string(num[3])+'.';
strcpf+=string(num[4])+string(num[5])+string(num[6])+'.';
strcpf+=string(num[7])+string(num[8])+string(num[9])+'-';
strcpf+=string(num[10])+string(num[11]);
//Agora a string está com pontos e tudo!!
//só falta retorná-la:
return strcpf;</gml>

<gml>
//Esse é o script que verifica se um cpf é válido
//Autor:Jucélio Evangelista Fonseca
//Data:14/07/11
//Uso: verificar_cpf('string')
//A string deve ter pontos e traços!!
//Declaração de variáveis
var num,soma,strcpf;
//Checa se está correto o cpf
if string_length(argument0)<>14&&string_length(string_digits(argument0))<>11
{show_error('Verifique o número!#Ele deve ter pontos e traços.',false);
return -1;}
else
{soma=0
//Pega apenas os digitos
strcpf=string_digits(argument0);
for(i=1;i<=11;i+=1)
{num[i]=real(string_char_at(strcpf,i));}
//Verificando o primeiro digito
for(i=1;i<=9;i+=1)
{soma+=(num[i]*(11-i));}
//achar o primeiro digito verificador
//Ele acha como seria o valor do digito verificador
//e o compara
if (soma mod 11<2)
{if num[10]<>0
{return false;}
}
else
{if num[10]<>11-(soma mod 11)
{return false;}
}
//achar o segundo dígito verificador
//Re-calculando a soma com o primeiro digito verificador
soma=0;
for(i=1;i<=10;i+=1)
{soma+=(num[i]*(12-i));}
//Se o resto da divisao por onze
//é menor que dois
//então o primeiro digito será 0
//Caso contrário(else)
//será 11 menos ele
//Depois ele compara com o dígito
if (soma mod 11<2)
{if num[11]<>0
{return false;}
}
else
{if num[11]<>11-(soma mod 11)
{return false;}
}
//Se passou por tudo isso e não retornou falso
//Então retorne true
return true;
}
</gml>