Encriptar Strings

Question

e ai galera blz. Ser� alguem teria um rotina para encriptar e desencriptar strings mas que a string encriptada tenha somente letras numeros e pontos, sem aqueles caracteres especiais que nem da pra escrever do teclado.. :?

Ajmsistemas · Answer

Mano eu uso assim....criptografar...var  Text1 : String; //texto  Shift : Integer; //n�mero de 02 � 225;  pos : Integer;Begin   text1 := LabeledEdit1.Text;   Shift := 12;   For pos := 1 to Length(Text1) do     text1[pos] := Chr(ord(text1[pos]) + shift);   Senha := text1;End;descriptografar...var  Text1 : String; //texto  Shift : Integer; //n�mero de 02 � 225;  pos : Integer;Begin   text1 := LabeledEdit1.Text;   Shift := 12;   For pos := 1 to Length(Text1) do     text1[pos] := Chr(ord(text1[pos]) - shift);   Senha := text1;End;Teste ai... falou......