hvis det for at skjule dit password for nysgerrige blikke...
så kan du benytte en simpel kryptering som:
const
KRYPTNGL = 'TekstTilKryptering_KendteDuDen';
function krypter(txt:string):string;
var
i : integer;
begin
for i := 1 to length(txt) do
txt[i] := chr(ord(txt[i])+ord(KRYPTNGL[(i mod length(KRYPTNGL))+1]));
result := txt;
end;
function dekrypter(txt:string):string;
var
i : integer;
begin
for i := 1 to length(txt) do
txt[i] := chr(ord(txt[i])-ord(KRYPTNGL[(i mod length(KRYPTNGL))+1]));
result := txt;
end;
hvis du gerne vil teste krypteringen, så start et nyt projekt i delphi, drop 3 editboxe på formen, og i OnKeyUp eventet fra edit1 skriver:
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Edit2.Text := krypter(Edit1.Text);
Edit3.Text := dekrypter(Edit2.Text);
end;
Så er det i hvert fald ikke BARE lige at aflure passwordet!