[TUTO]Criptografando e descriptografando dados texto '-'

[l-XMarceloX-l 1]

Bom hoje vou explicar como criar 1 programa para criptar dados texto.Então você deve ter 1 conhecimento mediano no delphi não é nada difícil mas também não eh fácil,estudo o código,não apenas copie cole e compile ele,estude aprenda as funções,vamos ser rápidos hoje sem muita introdução.GG....

 

 

Para comesar com o delphi aberto adicionaremos mais 2 form.

File new form.

agora temos form1,form2 e form3.

 

No form1 vamos adicionar 2 button e 1 label (aba standard)

Label1 renomeia a caption para Escolha a opção

Button1 renomei a caption para Criptorgrafar

Button2 renomei a caption para Descriptorgrafar

 

 

Ficara mais ou menos assim:

 

 

Click no button1(criptorgrafar) e insira o codigo:

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

• Entre
• ou
• Cadastre-se

Click no button2(Descriptografar) e isira o codigo:

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

• Entre
• ou
• Cadastre-se

Pronto nossa tela de abertura está feita até agora declaramos que o form2 sera a interface que vai criptografar e a form3 descriptografar continuando...

 

Form2 criptografar...

 

Bom para comesar a form2 vamos adicionar:

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

• Entre
• ou
• Cadastre-se

Renomei os componentes:

 

Button1 = Criptografar

Button2 = Limpar

Button3 = Salvar

Button4 = Abrir

Label1 = Chave de criptografia

 

Organize tudo mais ou menos assim:

 

 

 

 

 

 

Muito bem agora vamos ao codigo\o/

 

 

Bom click no button Criptografar e insira o codigo:

 

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

• Entre
• ou
• Cadastre-se

Depois click no button Limpar e insira o codigo:

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

• Entre
• ou
• Cadastre-se

Logo após click no button Salvar e insira o codigo:

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

• Entre
• ou
• Cadastre-se

Ultimo click no button Abrir e insira o codigo:

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

• Entre
• ou
• Cadastre-se

Para encerar este form va nos events do form2 em OnClose isira este codigo:

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

• Entre
• ou
• Cadastre-se

Prontinho form de criptografar ja está criptografando '-'

 

 

Form3 Descriptografar

Bom agora no nosso form3 que nos indicamos no inicio que seria o Descriptografar vamos os componentes do form2 Insira:

 

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

• Entre
• ou
• Cadastre-se

Renomei os componentes:

 

Button1 = Descriptografar

Button2 = Limpar

Button3 = Salvar

Button4 = Abrir

Label1 = Chave de criptografia

 

Organize tudo mais ou menos assim:

 

Bom click no button Descriptografar e insira o codigo:

 

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

• Entre
• ou
• Cadastre-se

Depois click no button Limpar e insira o codigo:

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

• Entre
• ou
• Cadastre-se

click no button Salvar e insira o codigo:

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

• Entre
• ou
• Cadastre-se

click no button Abrir e insira o codigo:

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

• Entre
• ou
• Cadastre-se

Para encerar este form va nos events do form2 em OnClose isira este codigo:

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

• Entre
• ou
• Cadastre-se

 

ACABAMOS \o/

Agora que acabamos e testamos tudo funcionou '-' ?

 

Vamos entender mais algumas funçoes ? gogo...

 

 

A função Ord retorna um valor inteiro para qualquer tipo ordinal.

 

A função Chr converte um valor inteiro ( IntValue ) em um AnsiChar ou WideChar

 

A função Length retorna tanto o número de caracteres em SourceString, ou o número de elementos em sourceArray.

 

A função StrToInt converte uma string, integer, IntegerString como '123 'em um Integer.

Saiba mais aki '-' ↓

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

• Entre
• ou
• Cadastre-se

 

 

Exemplo a descriptografia e Criptografia '-':

 

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

• Entre
• ou
• Cadastre-se

Exemplo a Criptografia:

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

• Entre
• ou
• Cadastre-se

 

DOWNLOAD SOURCE =>

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

• Entre
• ou
• Cadastre-se

 

SCAN =>

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

• Entre
• ou
• Cadastre-se

 

 

 

Direitos: :star:l-XMarceloX-l:star:

 

 

[Slash.- 1]

Man o topico esta otimo , mas no discriptografar esta errado e

 

Begin

Form1.hide;

Form3.Show;

End;

 

Fora isot esta de boa , so nao vou fazer pq eu nem sei para que serve , mas estudei umas partes e pode me ajudar no futro vlw

[l-XMarceloX-l 1]

vlw Slash.- AhsuAHSUHAUSHUAS repeti o codigo vlw por avisar *-* flws xD

[darkfenyx3 7]

Bem legal, criativo, eu ja pensei em fazer algo desse tipo, veja o exemplo do meu Keygen...

http://www.webcheats.com.br/forum/delphi-vb/743377-tutorial-criando-keygen-solucao-delphi.html#post3238429

[lokosthe 3]

Obrigado gostei

[l-XMarceloX-l 1]

Aew galera editei postei download agora pra vocês.

 

 

Bem legal, criativo, eu ja pensei em fazer algo desse tipo, veja o exemplo do meu Keygen...[/color][/b]

http://www.webcheats.com.br/forum/delphi-vb/743377-tutorial-criando-keygen-solucao-delphi.html#post3238429

Vlw ae darkfenyx3 gostei do keygen tbm '-'