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个字母的情况下能正常运行，一旦文本超过这个长度就出错，本人新手，请各位大仙指教啊

算法有问题 不严谨

s2:= inttohex(abs(ord(s[i])-(k mod 256)),2);

IntToHex()函数是做什么用的？建议在求s的长度是能够用Trim()去掉左右两边空格。。。新手冬的不多，多指教