como poderia cripitografar 010101010101010

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

Respostas

17/01/2006

Caninha51

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&93;)+i);
  Result := TextoCript;
end;


Ela tanto criptografa como descriptografa a string.

Espero q te ajude

flw


Responder Citar

17/01/2006

Edilcimar

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


Responder Citar

17/01/2006

Marcos Fernando

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


thanks


Responder Citar