como poderia cripitografar 010101010101010

Delphi

16/01/2006

Galera eu preciso criptografar a string 010101010101010 para algo menor e de forma que ninguém posso copiar parte e colar, pois 0 indica não liberar e 1 liberado, onde eu interpreto e ativo os menus, fazendo assim meu controle de usuários, mas tipos na string 010101010101010 posso criptografar e ficar assim: $<$<$<$<$<$<$<$<, mas ai daria no mesmo pois $ seia 0 e < seria 1

alguém teria um idéia?

Thanks


Marcos Fernando

Marcos Fernando

Curtidas 0

Respostas

Caninha51

Caninha51

16/01/2006

Eu fiz uma funçãozinha simples, mas acho q te serve...

function EnDeCripto(Texto:String):String;
var
  i: Integer;
  TextoCript: String;
begin
  for i := 1 to length(Texto) do
    TextoCript := TextoCript + Char(not Ord(Texto[i])+i);
  Result := TextoCript;
end;


Ela tanto criptografa como descriptografa a string.

Espero q te ajude

flw


GOSTEI 0
Edilcimar

Edilcimar

16/01/2006

faça de conta que os 01 são binários, então transforme em hexa de internamente refaça as contas


GOSTEI 0
Marcos Fernando

Marcos Fernando

16/01/2006

Mas vc teria algum exemplo de como mudar pra hexa e fazer essa compactação?


thanks


GOSTEI 0
POSTAR