Fórum Como encriptar ? #349440
22/11/2007
0
function Criptografia(mStr, mChave: string): string; var i, TamanhoString, pos, PosLetra, TamanhoChave: Integer; begin Result := mStr; TamanhoString := Length(mStr); TamanhoChave := Length(mChave); for i := 1 to TamanhoString do begin pos := (i mod TamanhoChave); if pos = 0 then pos := TamanhoChave; posLetra := ord(Result[i]) xor ord(mChave[pos]); if posLetra = 0 then posLetra := ord(Result[i]); Result[i] := chr(posLetra); end;
Warfighter
Curtir tópico
+ 0Posts
22/11/2007
Eniorm
Edit2.Text := Criptografia(Edit1.Text, ´#2Sj$9!D6¬´);
o primeiro parametro é a string q sera criptografada, e chave é uma string, tipo uma senha que sera usada para poder descritografar
essa função retorna a string cifrada!
Gostei + 0
22/11/2007
Warfighter
Mais existe algum modo de encriptar sem o uso dos edits ? 8)
Gostei + 0
23/11/2007
Saint
mas eu sinceramente acho essas rotinas de criptografia nao recomendaveis, até porque pra descriptografar eh muito simples.
eu nao tenho aqui agora mas da uma pesquisada rapida na net e vc acha biblioteca pra criptografa com md5, é 100x mais seguro
Gostei + 0
23/11/2007
Eniorm
usando com strings é o mesmo esquema veja
var str, aux : string; begin ... str := ´ENIO MARCONCINI´; aux := cript(str,´senha´); str := aux; ... // ou diretamente assim str := cript(str,´senha´);
Gostei + 0
23/11/2007
Warfighter
Esse código md5 apenas criptografa strings ou o código inteiro ?
Gostei + 0
24/11/2007
Werlon Goulart
Sempre existe, ou existirá, um meio de decifra-la, e a história nos conta isso ao longo dos tempos.
A função XOR é até suficiente se vc quiser apenas criptografar dados de seus usuários (Senhas) nos seus sistemas, já para criptografar dados que são de importância suprema, aí concordo com o colega acima, vc terá que usar MD5, Fish, ou qquer coisa que seja mais confiável....
Particularmente gero senhas baseadas no XOR e nunca tive problemas, pois meus usuários são usuários de MEUS sistemas e não hackers internacionalmente famosos.
Para melhorar a segurança restrinja o acesso ao arquivo do banco de dados no nível do Sistema Operacional, defina tamanho mínimo para as senhas, exija que elas tenham caracteres especiais ou números combinados com letras, exija que sejam trocadas mensalmente, não permita que sejam usadas senhas já usadas, etc...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)