Criptografia em Pascal

[GRSa]

Olá mestres.

Após finalizar um projeto pessoal de desenvolvimento de um diário criptografado, concluí que há pouco material informativo na Internet sobre criptografia voltado à linguagem Pascal, especialmente na língua portuguesa. Lanço o desafio de, através de um debate e exposição de idéias, gerarmos conteúdo útil para quem precisa.

Fale sobre qualquer método de criptografia, mesmo algum método criado por você.

Neste primeiro momento falarei sobre uma função que gera hash a partir de strings, muito simples de usar, e disponível na biblioteca padrão do Free Pascal.

A unit utilizada chama-se md5 (Veja o código fonte em http://winmd5.googlecode.com/svn-history/r25/trunk/winhash/md5.org).

Essa função gera o hash.

function MDString(const S: String; const Version: TMDVersion): TMDDigest;
//S recebe a string de entrada.
//Version recebe uma constante que define o tipo de encriptação: MD_VERSION_2, MD_VERSION_4, MD_VERSION_5.

Essa função "traduz" o hash.

function MDPrint(const Digest: TMDDigest): String;
//Essa função transforma a saída da função MDString (tipo TMDDigest) em uma string.

Exemplo:

Program TestaHash;
Uses md5;
Var
hash : TMDDigest;
cadeia : string;
Begin
 cadeia := 'Portugal a Programar';
 hash := MDString(cadeia, MD_VERSION_5);
 write('O hash de ', cadeia, ' é ', MDPrint(hash));
End.

Edited September 17, 2013 at 08:03 PM by GRSa

[thoga31]

Por acaso nunca necessitei de aplicar criptografia a nada. Desta forma, confesso que nunca me dediquei a estudar o assunto. Eu apenas estudo aquilo que me lembro de estudar, o que quero estudar e quando posso estudar. 😄

Eu acho que iria sempre desenvolver um método criptográfico próprio, as probabilidades de quebrar o código podem ser diminuídas se desenvolvermos bons métodos.

[apocsantos]

Bom dia,

Sinceramente sou 100% a favor do uso de standards quando o assunto é criptografia. Desenvolver um "novo metodo critpográfico", é na minha opinião, é "inventar uma roda quadrada", pois ou se sabe muito bem o que se está a fazer ou se está a fazer algo que será quebrado em poucos dias, ou mesmo horas.

Existem na net implementações em pascal, bastante interessantes de algoritmos criptograficos standard. Basta procurar um pouco. Infelizmente não estão documentadas em português, mas nada impede que se traduza.

AES - Rijndael

AES

Cordiais cumprimentos,

Apocsantos