Criptografar parâmetros da URL.
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
Curtidas 0
Respostas
Mkoch
10/01/2007
Sobe
GOSTEI 0
Edvilson.chaves
10/01/2007
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;
GOSTEI 0
Mkoch
10/01/2007
Obrigado, mas na verdade preciso em delphi pra aspx.
GOSTEI 0