Criptografia
25/02/2010
0
Thiago Santana
Posts
25/02/2010
Thiago Santana
25/02/2010
Frost
Thyago
dica bem simples pois não estou no trabalho agora
Usando o DELPHI 2010 com JVCL - componente usado para criptografia - JvVigenereCipher1
já no delphi 2007 se não me engano vem um componente padrao para criptografia
procedure TForm1.Button1Click(Sender: TObject);
var
Result : String;
begin
// Obrigatorio para uma criptografia
JvVigenereCipher1.Key := '22algumacoisa'; /// chave
//String nao encriptada
JvVigenereCipher1.Decoded := Edit1.Text;
// Resulta a string encriptada
Result := JvVigenereCipher1.Encoded; // Exibe a string encriptada
JvVigenereCipher1.Decoded := ' ' ; // Limpa a string nao encriptada
//Informa somente a string encrpitada
JvVigenereCipher1.Encoded := Result;
// Exibe o resultado do decript
Result := JvVigenereCipher1.Decoded;
Edit3.Text := Result;
end;
end.
25/02/2010
Thiago Santana
25/02/2010
Perivaldo Martins
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; Modo de utilização: Edit2.Text := Encode(Edit1.Text, 879); Esse código pode ser usado para criptografar e descriptografar. Qualquer coisa, estaremos a disposição. Boa sorte e bons códigos.
25/02/2010
Perivaldo Martins
25/02/2010
Thiago Santana
25/02/2010
Thiago Santana
begin
// Obrigatorio para uma criptografia
JvVigenereCipher1.Key := 'Thiago'; /// chave teste JvVigenereCipher1.Decoded := EditSenha.Text;
Result := JvVigenereCipher1.Encoded; // Exibe a string encriptada
Label3.Caption := Result;
IBOQuery1.Append;
IBOQuery1.FieldByName('USUARIO').AsString := EditUsuario.Text;
IBOQuery1.FieldByName('SENHA').AsString := JvVigenereCipher1.Encoded;
IBOQuery1.Post;
IBOQuery1.IB_Transaction.CommitRetaining; end; procedure TForm1.btnAcessarClick(Sender: TObject);
Var
SenhaCrip : String;
Usuario : String;
Result : String;
begin
JvVigenereCipher1.Key := 'Thiago'; // Só foi um teste de key
JvVigenereCipher1.Decoded := EditSenha.Text;
Result := JvVigenereCipher1.Encoded; // Exibe a string encriptada
usuario := EditUsuario.Text;
IBOQuery2.Close;
IBOQuery2.SQL.Add('Select USUARIO, SENHA FROM LOGIN WHERE USUARIO = ' + QuotedStr(EditUsuario.Text));
IBOQuery2.Open;
if ((Usuario = IBOQuery2.FieldByName('USUARIO').AsString)) and ((Result = IBOQuery2.FieldByName('SENHA').AsString)) then
begin
ShowMessage('Login Efetuado com sucesso!');
IBOQuery2.SQL.Clear;
end
else begin
ShowMessage('Usuário e/ou Senha inválido!');
IBOQuery2.SQL.Clear;
end;
end;
O que você achou? Ficou bom ou devo mudar algo? Agradecido...
25/02/2010
Perivaldo Martins
Clique aqui para fazer login e interagir na Comunidade :)