字符串加密老话重提,但是.....

Question

加密法，就是思想，思想越混乱，加密效果越好，试举一例（不可逆）：
 将每个字符的ASCII码*54564-6543...然后相加得到的数转换成字符；
 

Answer 1

老兄实在忒懒了，早上闲来无事，瞎写了一段，见笑了。function  jiami(s:string):string;
var m:string;
    i,j,t:integer;
begin
  m:='kingsong'; //种子串
  j:=1;
  for i:=1 to length(s) do
  begin
    s[i]:=chr((ord(s[i])*ord(m[j])) mod 256 ); //加密串依次乘种子串，并取模256
     // 这里你可以有更好的加密法，例如利用前一次的结果 ，*s[i-1]
    if not (s[i] in ['0'..'9','A'..'Z','a'..'z']) then
    //  判断 是否是可显示字符
    begin
      //  若不是，映射成可显示字符,你也可以有更好的映射方法
      t:=ord(s[i]) mod 62;
      case t of
      0..9:s[i]:=chr(48+t);  // 数字
      10..35:s[i]:=chr(65+t-10);   //大写字母
      36..61:s[i]:=chr(97+t-36);   //小写字母
      end;
    end;
    inc(j);
    if j>length(m) then j:=1;
  end;
  result:=s;
end;