procedure TForm1.Button1Click(Sender: TObject);
var
    i,j,k:integer;
    s,s1:string;
begin
    s:=edit1.Text;
    s1:='';
    j:=length(s);
    for i:=1 to j  do
    begin
    k:=j*j-i*i+3;
    s1:=s1+inttohex(ord(s[i])-(k mod 256),2);
    end;
    edit2.Text:=s1;
end;
这一小段代码，是要把文本加密，但是在文本不超过6位数字或者7个字母的情况下能正常运行，一旦文本超过这个长度就出错，本人新手，请各位大仙指教啊