说个个人思路，也不知道合不合你的要求：即先把“数字”和“时间”组成一个原字符串，然后根据原字符串两个两地截取，转换成ASCII码，最后把所有的ASCII码合在一起就可以成为“乱码”啦！当然这中间的处理过程，你也还可以加点判断什么的。

procedure TForm1.Button1Click(Sender: TObject);
var
  sSource, sDest, sTemp: string;
  i: integer;
begin
  sSource := Edit1.Text + FormatDateTime('YYYYMMDD', date);
  for i := 1 to length(sSource) do
  begin
    if ((i mod 2) = 0) or (i = length(sSource)) then
    begin
      sTemp := sSource[i-1] + sSource[i];
      sDest := sDest + chr(strtoint(stemp));
    end;
  end;
  Edit2.Text := sDest;
end;