Fórum Criptografar parâmetros da URL. #335944
10/01/2007
0
Feliz 2007 muito sucesso para nós.
Criptografia no Delphi 2006
Alguém sabe algum código de como usar a criptografia e descriptografia no aspx em Delphi. Quero criptografar os parâmetros passados nas URL´s.
Criptografia no Delphi 2006
Alguém sabe algum código de como usar a criptografia e descriptografia no aspx em Delphi. Quero criptografar os parâmetros passados nas URL´s.
Mkoch
Curtir tópico
+ 0
Responder
Posts
11/01/2007
Mkoch
Sobe
Responder
Gostei + 0
11/01/2007
Edvilson.chaves
POSSO TE PASSAR A FUNÇÃO!!!! SE AJUDAR....
ABRAÇO.
function Criptografia(mStr, mChave: string): string;
var
i, TamanhoString, pos, PosLetra, TamanhoChave: Integer;
begin
Result := mStr;
TamanhoString := Length(mStr);
TamanhoChave := Length(mChave);
for i := 1 to TamanhoString do
begin
pos := (i mod TamanhoChave);
if pos = 0 then
pos := TamanhoChave;
posLetra := ord(Result[i]) xor ord(mChave[pos]);
if posLetra = 0 then
posLetra := ord(Result[i]);
Result[i] := chr(posLetra);
end;
end;
ABRAÇO.
function Criptografia(mStr, mChave: string): string;
var
i, TamanhoString, pos, PosLetra, TamanhoChave: Integer;
begin
Result := mStr;
TamanhoString := Length(mStr);
TamanhoChave := Length(mChave);
for i := 1 to TamanhoString do
begin
pos := (i mod TamanhoChave);
if pos = 0 then
pos := TamanhoChave;
posLetra := ord(Result[i]) xor ord(mChave[pos]);
if posLetra = 0 then
posLetra := ord(Result[i]);
Result[i] := chr(posLetra);
end;
end;
Responder
Gostei + 0
12/01/2007
Mkoch
Obrigado, mas na verdade preciso em delphi pra aspx.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)