como poderia cripitografar 010101010101010

Question

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, ...

Caninha51 · Answer

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

Edilcimar · Answer

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

Marcos Fernando · Answer

Mas vc teria algum exemplo de como mudar pra hexa e fazer essa compacta��o?thanks...