MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

Sistema de CAPTCHA

+3
-DarkninoxD-
Storm™
Lord Pegason
7 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse Origins :: Tutoriais

Ir para baixo

Sistema de CAPTCHA Empty Sistema de CAPTCHA

Mensagem por Lord Pegason Ter 04 Dez 2012, 09:12

Esse sistema é BÁSICO. Porém funcional em muitos dos casos. Poderá ser aperfeiçoado futuramente por mim, ou por vocês, haha.

Pra que serve? Impedir que alguém crie 10000 contas por minuto. Ou seja, dificultar um pouco a vida dos que querem zoar com o servidor.

Começamos:

~Client Side

Ir até o PicRegister
Adicionar 2 Labels e 1 Textbox com os nomes obrigatoriamente como na foto abaixo.

Sistema de CAPTCHA P6grn8vx7h

OBS: Onde tá o caption "" deixar em BRANCO.

Então dar 2 cliques no lblRCode e adicionar o seguinte conteúdo:

Código:
Dim i As Byte, x As Byte
lblRCode.Caption = vbNullString

For i = 1 To 4
        x = Rand(0, 9)
        lblRCode.Caption = lblRCode.Caption & x
Next

Após isso, navegar até a Sub lblCAccept_Click.

Em baixo de:

Código:
Dim PasswordAgain As String

Adicionar:

Código:
Dim Code As String

Em seguir em baixo de:

Código:
If isLoginLegal(Name, Password) Then
        If Password <> PasswordAgain Then
                Call MsgBox("Passwords don't match.")
                Exit Sub
        End If

Adicionar o seguinte código:

Código:
If Code <> lblRCode.Caption Then
                Call MsgBox("Incorrect code.")
                Exit Sub
        End If

Em frmMenu procurar pela Sub imgButton_Click(Index As Integer)

Em baixo de:

Código:
If Options.Debug = 1 Then On Error GoTo errorhandler

Adicionar:

Código:
Dim i As Byte, x As Byte
lblRCode.Caption = vbNullString

Depois alterar o seguinte código:

Código:
Case 2
            If Not picRegister.Visible Then
                ' destroy socket, change visiblity
                DestroyTCP
                picCredits.Visible = False
                picLogin.Visible = False
                picRegister.Visible = True
                picCharacter.Visible = False
                picMain.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
            End If

Por:

Código:
Case 2
                        If Not picRegister.Visible Then
                        ' destroy socket, change visiblity
                        DestroyTCP
                        picCredits.Visible = False
                        picLogin.Visible = False
                        picRegister.Visible = True
                        picCharacter.Visible = False
                        picMain.Visible = False
                        For i = 1 To 4
                                x = Rand(0, 9)
                                lblRCode.Caption = lblRCode.Caption & x
                        Next
                        ' play sound
                        PlaySound Sound_Buttonclick
                End If

Em frmMenu Abaixo de:

Código:
Password = Trim$(txtRPass.text)

Adicionar:

Código:
Code = Trim$(txtRCode.text)

Fim. Espero que tenham gostado. Qualquer dúvida ou bug só comentar.

Créditos:

Mortal Angels (Touchdeathforums) por desenvolver o protótipo do tutorial
A mim, rodrigomarquesz (Lord Pegason) por corrigir bugs, traduzir e implementar conteúdo no código.
Lord Pegason
Lord Pegason
Membro Sênior
Membro Sênior

Mensagens : 300

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por Storm™ Ter 04 Dez 2012, 09:35

Irei Testa se Funfa mais um credito.
Storm™
Storm™
Moderador Global
Moderador Global

Mensagens : 2155

http://senningames.com

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por Convidad Ter 04 Dez 2012, 09:58

Testado e aprovado +1 Créd.
avatar
Convidad
Convidado


Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por -DarkninoxD- Ter 04 Dez 2012, 10:49

Funfa para EEB?
Se Funfar \o Meus +1 Cred.
-DarkninoxD-
-DarkninoxD-
Membro Vitalicio
Membro Vitalicio

Mensagens : 734

http://dragonball-mrb.blogspot.com

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por Lord Pegason Ter 04 Dez 2012, 10:51

-DarkninoxD- escreveu:Funfa para EEB?
Se Funfar \o Meus +1 Cred.

Não testei... teste ai e me mande os resultados, quem sabe eu possa corrigir pra você Smile
Lord Pegason
Lord Pegason
Membro Sênior
Membro Sênior

Mensagens : 300

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por -DarkninoxD- Ter 04 Dez 2012, 10:53

Manda seu Msn por MP Para min Pf?
-DarkninoxD-
-DarkninoxD-
Membro Vitalicio
Membro Vitalicio

Mensagens : 734

http://dragonball-mrb.blogspot.com

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por Valentine Ter 04 Dez 2012, 12:30

Eu não testei, mas também poderia usar em alguma variável:
Código:
GetTickCount + 60000
Ai no caso se o GetTickCount atual for menor que o dessa variável e você tentar se registrar ele bloqueia.
avatar
Valentine
Membro de Honra
Membro de Honra

Mensagens : 472

http://www.aldeiarpgbr.com

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por Lord Pegason Ter 04 Dez 2012, 13:21

Valentine escreveu:Eu não testei, mas também poderia usar em alguma variável:
Código:
GetTickCount + 60000
Ai no caso se o GetTickCount atual for menor que o dessa variável e você tentar se registrar ele bloqueia.

É uma boa ideia também, irei atualizar o tutorial com isso em breve.

Lord Pegason
Lord Pegason
Membro Sênior
Membro Sênior

Mensagens : 300

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por MrMota Ter 04 Dez 2012, 18:34

Gostei! É bom se tiver algum BOT, certo?
+1 crédito
MrMota
MrMota
Membro Veterano
Membro Veterano

Mensagens : 918

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por Lord Pegason Ter 04 Dez 2012, 18:41

MrMota escreveu:Gostei! É bom se tiver algum BOT, certo?
+1 crédito

Isso ai.. mas na hora de REGISTRAR conta..

De certa forma, impossibilita a criação "massante" de contas.
Lord Pegason
Lord Pegason
Membro Sênior
Membro Sênior

Mensagens : 300

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por skykro-T Ter 04 Dez 2012, 19:40

Parabéns,Mostrou qui e um verdadeiro programador mais acho qui existe um erro tipo no meu esta dando erro de usuário (quantidade de Usuários jogando)Mais valeu a pena ajuda.


+1 Credito
skykro-T
skykro-T
Membro
Membro

Mensagens : 130

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por Lord Pegason Ter 04 Dez 2012, 19:48

skykro-T escreveu:Parabéns,Mostrou qui e um verdadeiro programador mais acho qui existe um erro tipo no meu esta dando erro de usuário (quantidade de Usuários jogando)Mais valeu a pena ajuda.


+1 Credito

Explique melhor esse erro ai que não entendi.
Lord Pegason
Lord Pegason
Membro Sênior
Membro Sênior

Mensagens : 300

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por MortalAngel Sex 14 Dez 2012, 20:14

Thank you for the Credits ;-)
MortalAngel
MortalAngel
Novato
Novato

Mensagens : 1

Ir para o topo Ir para baixo

Sistema de CAPTCHA Empty Re: Sistema de CAPTCHA

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse Origins :: Tutoriais

 
Permissões neste sub-fórum
Não podes responder a tópicos