Fazendo gerador de códigos no Delphi funcional para HABBO! 02.03.11 20:48
ANTES DE QUALQUER COISA VOCÊ PRECISA DE UMA NOÇÃO BÁSICA NO DELPHI, DE COMO MECHER E DE ONDE LOCALIZAR O TAL COMPENENTE DE COMO COMPILAR E DE COMO CRIAR O PROJECT E SALVA-LOS, NÃO IREI RESPONDER A PERGUNTAS IDIOTAS SOBRE O TAL ERRO.
Tópico não existente.
Irei encinar de como fazer um gerador de códigos funcional para o Habbo Hotel, bom vamos começar:
Adicione 1 Edit e 1 Button da aba Standard.
Mude a Caption do Button1 para Gerar.
Apague o Text do Edit1.
Agora vamos programar:
De dois cliques no Button, apague o begin e adicione o código:
Pronto agora de um F9 e veja o resultado, agora salve seu project e faça o que quiser, não me responsabilizo por qualquer ato.
Ai dentro dos ' são as letras e numeros a serem geradas, não apague pois essas letras estão de acordo com o banco de dados do habbo para fazer cada código.
Esse 9 significa a quantidade caracteres a serem gerador no caso do Habbo é 9 ou 8.
Esse comando é encenssial para o funcionamento do gerador, sem ele todos os códigos gerados são sempre iguais.
Créditos:são 100% meus só que foi retirado de outro fórum que participo.
Para fazer download do Delphi acesse o tópico:
Tópico não existente.
Irei encinar de como fazer um gerador de códigos funcional para o Habbo Hotel, bom vamos começar:
Adicione 1 Edit e 1 Button da aba Standard.
Mude a Caption do Button1 para Gerar.
Apague o Text do Edit1.
Agora vamos programar:
De dois cliques no Button, apague o begin e adicione o código:
- Código:
var
i: integer;
const
str = '1q2e34r5t6y7u890pasdfghjklçzxcvbnm';
max = 8;
begin
randomize;
Edit1.Text := '';
for i := 1 to max do
Edit1.Text := Edit1.Text + str[random(length(str))+1];
:arrow: Explicando algumas coisas dos códigos
- Código:
str = '1q2e34r5t6y7u890pasdfghjklçzxcvbnm';
- Código:
max = 8;
- Código:
randomize;
Créditos:são 100% meus só que foi retirado de outro fórum que participo.