[DELPHi7] Criando um Sistema de Captcha

[bidoow 0]

Criando um Sistema de Captcha

 

Primeiramente olá a todos, eu nunca mais tinha entrado aqui, dei uma entradinha e vi que tem novos programadores e talz.. parabéns pelos cargos.. e vou deixar um tutorial que acabei de fazer de como criar um sistema de Captcha. Bem simples, mas util.

 

Resultado Final:

 

 

Necessario: 1 Label [aba Standard]

1 Edit [mesma aba]

2 Buttons [ '' ]

 

Adicione os elementos como está na foto:

 

 

Agora de 2 clicks no Button1, apague tudo e coloque:

 

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

const

str='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvxyz';

max=3;

begin

Randomize;

Label1.Caption:='';

for i:=1 to max do

begin

Label1.Caption:=Label1.Caption+str[random(length(str))+1];

end;

end;

 

Ou seja, esse é o mesmo codigo do gerador de senhas, da pra se usar em muitas ocasioes, aqui ele irá dizer as Letras a se digitar. max=3, serão 3 letras.

 

Agora de 2 clicks no Button2, apague tudo e coloque:

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if Edit1.Text = Label1.Caption then

begin

MessageBoxA(handle, 'Captcha Correta!', 'CAPTCHA', 0);

end

else begin

MessageBoxA(handle, 'Captcha Incorreta!', 'CAPTCHA', 0);

end;

end;

 

Edit1.Text = Label1.Caption isso que vai verificar que se o que você digitou no Edit1 confere que oque está escrito no Label1.

 

Agora de 2 clicks na form, em qualquer lugar, apague tudo e coloque:

 

procedure TForm1.FormCreate(Sender: TObject);

var

i:integer;

const

str='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvxyz';

max=3;

begin

Randomize;

Label1.Caption:='';

for i:=1 to max do

begin

Label1.Caption:=Label1.Caption+str[random(length(str))+1];

end;

end;

end.

 

Ou seja, sempre que você iniciar o programa, iniciará com uma Captcha diferente.

 

Ok, agora renomeie o Button1 para "Trocar Captcha" e o Button2 para "Confirmar"

Aperte F9 e teste!

 

Abraços

 

PS*: Ele diferencia maisculas das minusculas.

[Ice~ 4]

Olha o tópico está bom o tutorial

tambem está alem de ser facil é

muito útil, valeu mesmo isso ´pode

ajudar bastante membros abrasz.

[rapha1919 0]

Bom Topic, mas como faço para alterar e não diferenciar maiusculas e minusculas?

[~OwneR~ 8]

@rapha1919

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[DragonBoss 8]

aew parcerooo.. vai voltar a programar ? =D

eu tbm to sumido do forum, faz tempo ke nao crio um tuto T_T

 

mas entao... fiko da hora o topico, mto bem explikado e tals... vlw ae

 

flw, abraços vlho....

[bidoow 0]

valeu pessoal.

 

@dragonboss

 

fala brow, talves eu volte, tou procurando outra linguagem interresante =P

qlqr dia se falamos

abraços

[icedanoninho 1]

Mesmo que eu já saiba bom por você compartilhar aqui.