Array
(
)

como poderia cripitografar 010101010101010

Marcos Fernando
   - 16 jan 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


Caninha51
   - 17 jan 2006

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

#Código


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
   - 17 jan 2006

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


Marcos Fernando
   - 17 jan 2006

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


thanks