como poderia cripitografar 010101010101010
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
alguém teria um idéia?
Thanks
Marcos Fernando
Curtidas 0
Respostas
Caninha51
16/01/2006
Eu fiz uma funçãozinha simples, mas acho q te serve...
Ela tanto criptografa como descriptografa a string.
Espero q te ajude
flw
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
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
16/01/2006
Mas vc teria algum exemplo de como mudar pra hexa e fazer essa compactação?
thanks
thanks
GOSTEI 0