Welche Verschlüsselung für HS-Liste?

[citybreaker]

Mhm also ich hab heut beim Praktikum was ganz simples gelernt.

Delphi-Quellcode:

procedure TMainFrm.Decode;
var i,j,l: integer;
    s,t: string;
begin
  s := Memo1.Text;
  t := s;
  l := length(t);

  for i := 0 to l do begin
     j := ord(s[i]) * 2;
     t[i] := chr(j);
  end;

  Memo1.Text := '';
  Memo2.Text := t;
end;

procedure TMainFrm.Encode;
var i,j,l: integer;
    s,t: string;
begin
  s := Memo2.Text;
  t := s;
  l := length(t);

  for i := 0 to l do begin
     j := ord(s[i]) div 2;
     t[i] := chr(j);
  end;

  Memo1.Text := t;
  Memo2.Text := '';
end;

Vielleicht reicht das ja für deine zwecke.