字符串移位加密

Question

字符串移位加密？？？
例如：str:=FBKMZ542

Answer 1

字符串移位加密？？？
例如：str:=FBKMZ542,如何使每个字符加3减3

Answer 2

使用如下方法加密，为何产生的密文为乱码？如何把密文再解回成FBKMZ542
    s:='FBKMZ542';
    for   i:=1   to   length(s)   do
    begin
       s[i]:=chr(ord(s[i])xor   250);
    end;

Answer 3

s:='FBKMZ542';
    for   i:=1   to   length(s)   do
    begin
       str:=chr(ord(s[i]));
       s[i]:=chr(ord(s[i])shr 2);
    end;
    如何把s变回来？？？

Answer 4

s:='FBKMZ542';
for   i:=1   to   length(s)   do
begin
  s[i]:=chr(ord(s[i])xor   250);
end;再执行一次就又变回'FBKMZ542'了

Answer 5

s:='FBKMZ542';
    for   i:=1   to   length(s)   do
    begin
       str:=chr(ord(s[i]));
       s[i]:=chr(ord(s[i])shr 2);
    end;这个不明白str在中间做什么，写错了吗？

Answer 6

对写错了不用管str:=chr(ord(s[i]));没用的，我忘删了