|
Usuários |
|
38 Usuários Online
|
|
[Artigos]
Encriptando Strings no .NET |
Publicado por lexotan : Sexta, Setembro 17, 2004 - 10:33 GMT-3 (3107 leituras)
 comentar  Enviar para um amigo  Versão para impressão
|
Descrição: Encriptação por meio de algoritmos já prontos do .NET, neste caso, o namespace System.Security.Cryptography.
Salve Pessoal!
Se deseja encriptar uma string no Delphi .NET, não se preocupe mais em criar rotinas longas e complexas. Você pode encriptar utilizando o namespace System.Security.Cryptography.
Aqui vai uma função simples de como fazer isso:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
uses System.Security.Cryptography, System.Text;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
function Encriptar(const StringLimpa: string): string;
var
ue : UnicodeEncoding;
clearBytes, hashedBytes : array of Byte;
begin
ue := UnicodeEncoding.Create;
clearBytes := ue.GetBytes(StringLimpa) ;
hashedBytes := (CryptoConfig.CreateFromName('MD5') AS HashAlgorithm).ComputeHash(clearBytes) ;
Result := BitConverter.ToString(hashedBytes) ;
//Remover os "-"
Result := Result.Replace('-',System.String.Empty) ;
end; (* Encriptado *)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Como usar:
strVarEncriptada := Encriptar(‘Matheus Venâncio’);
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
E é isso ai, salve o seu projeto e rode o programa. O poder do RAD não fica apenas na interface! Como acabamos de ver, existe muita coisa esperando pra ser usada!
Como sempre, desejo que o artigo seja útil a vocês!
Fraternalmente,
Matheus Venâncio
Programador Delphi
venancio@advancecci.com.br
Observação: Autor: Matheus Venâncio
|
|
 Comentários | |
| | Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos. |
|
|
Edição 112 |
|
|
50 Programas Fontes |
|
|
Produtos |
|
|
