[Delphi] Tutorial - Criando um filtro Anti-Porn

[TH3 CH4OS 10]

Olá pessoal , neste tutorial eu vou ensinar a vcs a fazer um filtro anti-porn usando uma simples lógica.

 

1 - Primeiro , coloque:

 

2 - Timers ( Paleta System )

1 - Edit ( Paleta Standard )

 

2 - Declare no Private :

 

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

• Entre
• ou
• Cadastre-se

 

Declare a seguinte função :

 

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

• Entre
• ou
• Cadastre-se

 

3 - Coloque no Timer1 :

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

• Entre
• ou
• Cadastre-se

 

4 - Coloque no Timer2 , o seguinte código:

 

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

• Entre
• ou
• Cadastre-se

 

Conclusão

 

A lógica é a seguinte o primeiro timer vai pegar o caption da janela e jogar no Edit , o segundo timer vai checar se tem as palavras chaves no Edit ( Como "Porn" , ect ) se tiver ele vai fechar a janela do Programa. Esse filtro pode ser para qualquer coisa , basta apenas mudar as "palavras chaves".

by : TH3 CH4OS

 

 

[' newYork @ 16]

Muito bom, lembrando que mudando o 'porn' para 'edit1.text' (acho que e edit, porque eu uso vb) as palavras chaves vai ser o que a pessoa digita no edit1.

Acho que é isso, lembrando que nao sei muito de delphi.

 

Abraços.

[AceStryker 32]

Bem legal, muito bom para quem quer criar um navegador com proteção!Obrigado por trazer isto para nós!

[rodneyhacker 1]

Lan house, ajuda muito isso, mesmo tendo aviso, o povo tem a cara de pau, de ficar nisso.

[pedrinhoterror_O_SINICO 1]

AFFF!!!!!

 

Toda vez eu copio e colo esses codigos e nunca copila sempre da erro.

[rodneyhacker 1]

pedrinho, não tem erro, é que tem um truque, que ferra todo mundo ao adicionar códigos, vc tem q ver, se os edit, ou buttons, estão em ordem, porque se estiver declarando uma função para o edit 1, e vc tiver colocado os parâmetros no edit 2 pode dar erro; Por isso, ja aconteçeu antigamente comigo, ao fazer um auto clicker e outros... Esse acaso q atrapalha a todos.

[Mr.Positive 0]

kkk , ótimo tutorial , nem sabia disso mane

PArabéns cara, muito bom :D , vou fazer aqui ^^

[Augusto 338]

Assim pra vcs podem ate ser facil isso dai

mais assim pra min isso dai e mo dficil gente

mais assim irei temtar estudar o conteudo e aplicalo^^

 

 

 

 

abraçz:amor: