Fórum Criptografia #296963
26/09/2005
0
Por Favor, alguém conhece algum método de criptografar meus aplicativos em Delphi 7, e um meio de criptografar as informações enviadas ao MySQL??? É que estou fazendo um projeto, é há necessidade de segurança dos dados...Porém, não sei como fazer...
Aguardo resposta, Grato.
[b:2b9c70cb94][color=blue:2b9c70cb94]Tílulo do tópico editado pelo moderador Vinicius2K:[/color:2b9c70cb94][/b:2b9c70cb94]
[b:2b9c70cb94][color=red:2b9c70cb94][list:2b9c70cb94][*:2b9c70cb94]Removido ´URGENTE!!!´[/list:u:2b9c70cb94][/color:2b9c70cb94][/b:2b9c70cb94]
Peço que leia atentamente as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]Regras de Conduta[/url] para evitar que este fato se repita.
Se algum esclarecimento sobre o funcionamento do fórum ou sobre as Regras de Conduta for necessário, envie-me uma [url=http://forum.clubedelphi.net/privmsg.php?mode=post&u=2796]Mensagem Particular[/url].
Aguardo resposta, Grato.
[b:2b9c70cb94][color=blue:2b9c70cb94]Tílulo do tópico editado pelo moderador Vinicius2K:[/color:2b9c70cb94][/b:2b9c70cb94]
[b:2b9c70cb94][color=red:2b9c70cb94][list:2b9c70cb94][*:2b9c70cb94]Removido ´URGENTE!!!´[/list:u:2b9c70cb94][/color:2b9c70cb94][/b:2b9c70cb94]
Peço que leia atentamente as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]Regras de Conduta[/url] para evitar que este fato se repita.
Se algum esclarecimento sobre o funcionamento do fórum ou sobre as Regras de Conduta for necessário, envie-me uma [url=http://forum.clubedelphi.net/privmsg.php?mode=post&u=2796]Mensagem Particular[/url].
Ruitm
Curtir tópico
+ 0
Responder
Posts
26/09/2005
Pezzin
Encriptar/Desencriptar strings
Esta função permite encriptar e desencriptar strings. O código de encriptação é bastante simples, por isso pode ser melhorado, sendo este apenas um exemplo de como fazê-lo em Delphi.
function EnDecryptString(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue : String;
begin
OutValue := ´´;
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
Exemplo de utilização:
Iniciar um novo projecto, copiar a função para uma unit, colocar três TEdit (Edit1, Edit2, Edit3) e dois TButton (Button1 e Button2) na form.
No evento OnClick do Button1 deve chamar a função, em que os parâmetros de entrada são o texto do Edit1 e uma chave de encriptação do tipo word.
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.text:=EnDecryptString(Edit1.text, 236);
end;
No evento OnClick do Button2 deve chamar a função EnDecryptString, em que os parâmetros de entrada são o texto encriptado do Edit2 a chave de encriptação usada para encriptar a string.
Esta função permite encriptar e desencriptar strings. O código de encriptação é bastante simples, por isso pode ser melhorado, sendo este apenas um exemplo de como fazê-lo em Delphi.
function EnDecryptString(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue : String;
begin
OutValue := ´´;
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
Exemplo de utilização:
Iniciar um novo projecto, copiar a função para uma unit, colocar três TEdit (Edit1, Edit2, Edit3) e dois TButton (Button1 e Button2) na form.
No evento OnClick do Button1 deve chamar a função, em que os parâmetros de entrada são o texto do Edit1 e uma chave de encriptação do tipo word.
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.text:=EnDecryptString(Edit1.text, 236);
end;
No evento OnClick do Button2 deve chamar a função EnDecryptString, em que os parâmetros de entrada são o texto encriptado do Edit2 a chave de encriptação usada para encriptar a string.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)