Veja essa rotina:
{ROTINA DE CRIPTOGRAFIA}
function TFrmCadUsuario.Criptografia(mStr, mChave, mOperacao :
String):String;
var
Contador : ShortInt;
TamanhoString : ShortInt;
Posicao : ShortInt;
PosLetra : ShortInt;
TamanhoChave : ShortInt;
begin
Result := mStr;
TamanhoString := length(mStr);
TamanhoChave := length(mChave);
for Contador := 1 to TamanhoString do
begin
Posicao := (Contador mod TamanhoChave);
if (Posicao = 0)
then Posicao := TamanhoChave;
Posicao := Posicao + 7;
if (mOperacao = 'descript')
then PosLetra := Ord(Result[Contador]) + Posicao
else PosLetra := Ord(result[Contador]) - Posicao;
Result[Contador] := Chr(posLetra);
end;
end;
Adenes Junior
-------Mensagem original-------
De: [EMAIL PROTECTED]
Data: 26/06/2007 19:18:26
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Algoritmo para critpografar senhas
Pessoal:
O que voces utilizam para criptografar/descriptografar senhas
(para telas de login de seus sistemas) ?
Nao entendo nada de criptografia... Utilizo apenas uma rotina que
criei ha´ muito tempo, mas e´ bem "fraquinha",
pois simplesmente troca os caracteres originais por alguns outros,
com base em uma string fixa no meu codigo.
Se alguem tiver algo mais "seguro", solicito a gentileza de me enviar
a dica.
Obs.: Nao precisa ser um esquema de criptografia muito elaborado,
desses tipos "128 bits", "chave privada e chave publica", etc. E´ apenas
para uso nas telas de login dos meus sistemas.
Muito obrigado pela atencao de todos
Paulo
[As partes desta mensagem que não continham texto foram removidas]
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 000752-1, 26/06/2007
Tested on: 27/6/2007 07:48:08
avast! - copyright (c) 1988-2007 ALWIL Software.
----------
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 000752-1, 26/06/2007
Tested on: 27/6/2007 08:17:47
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
[As partes desta mensagem que não continham texto foram removidas]
