Descriptografar senha de delphi para oracle.

Dúvidas, dicas e truques de PL/SQL. Aqui também vão assuntos relacionados a pacotes, triggers, funções, Java-Stored Procedures, etc
Responder
tchuck
Rank: Analista Júnior
Rank: Analista Júnior
Mensagens: 70
Registrado em: Seg, 04 Dez 2006 9:22 am
Localização: Maringá

preciso descriptografar uma senha que esta em encode64 e decode64 (delphi) e migrar para o oracle.
Tenho a chave para criptografar e descriptografar.
alguém sabe como posso fazer essa funcao para ser chamada no oracle?

ex. da chave.

Selecionar tudo

Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm nopqrstuvwxyz+/';

function Encode64(S: string): string;
var
i: Integer;
a: Integer;
x: Integer;
b: Integer;
begin
Result := '';
a := 0;
b := 0;
for i := 1 to Length(s) do
begin
x := Ord(s[i]);
b := b * 256 + x;
a := a + 8;
while a >= 6 do
begin
a := a - 6;
x := b div (1 shl a);
b := b mod (1 shl a);
Result := Result + Codes64[x + 1];
end;
end;
if a > 0 then
begin
x := b shl (6 - a);
Result := Result + Codes64[x + 1];
end;
end;

function Decode64(S: string): string;
var
i: Integer;
a: Integer;
x: Integer;
b: Integer;
begin
Result := '';
a := 0;
b := 0;
for i := 1 to Length(s) do
begin
x := Pos(s[i], codes64) - 1;
if x >= 0 then
begin
b := b * 64 + x;
a := a + 6;
if a >= 8 then
begin
a := a - 8;
x := b shr a;
b := b mod (1 shl a);
x := x mod 256;
Result := Result + chr(x);
end;
end
else
Exit;
end;
end;
Tinho
Rank: DBA Sênior
Rank: DBA Sênior
Mensagens: 317
Registrado em: Seg, 16 Nov 2009 4:50 pm
Localização: São Paulo - SP

Caro tchuck.

Pelo o que entendi você já tem a função pronta e quer saber como chama-la pelo Delphi. Não sei se você conhece a sintaxe do pl/sql, caso não conheça e queira saber como funciona de uma maneira direta segue dois links abaixo:


http://www.techonthenet.com/oracle/functions.php .

http://docs.oracle.com/cd/B28359_01/app ... nction.htm .

http://psoug.org/reference/functions.html .

Quanto ao Delphi já tive o privilégio de trabalhar com esta ferramenta, no entanto, pelo fato de fazer um bom tempo que não a utilizo não vou me lembrar do nome de alguns componentes e suas propriedades. Mas tentarei lhe ajudar:

Não sei quais componentes você está utilizando, mas dentre os componentes visuais do Delphi para conexão ao banco de dados existe sempre um sufixo "connection", onde após você configurar a string de conexão (usuário e senha) você passa a ter acesso a base de dados. Já nos componentes de dataset, dataprovider, existem algumas propriedades que você aponta para a conexão e em seguida existem outras propriedades destes mesmos componentes que dentre outras funcionalidades permite você enxergar os objetos criados no banco. Neste caso basta selecionar o objeto desejado, neste caso a FUNCTION e no code-behind utilizar os parâmetros explícitos para obter o retorno da função.

Veja se com essa breve e superficial explicação você consegue obter êxito. Caso contrário, apesar deste não ser um fórum de delphi, mas se o administrador me permitir, passe mais detalhes da sua aplicação front-end que tentarei ser mais específico.

Espero ter ajudado.

Att.,
tchuck
Rank: Analista Júnior
Rank: Analista Júnior
Mensagens: 70
Registrado em: Seg, 04 Dez 2006 9:22 am
Localização: Maringá

Não..
neste post eu coloquei ela como é chamada no delphi
preciso migrar ela para o oracle, forms.

Abs,
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Nenhum usuário registrado e 15 visitantes