水能写出下面的算法？
算法是这样的：取用户名ASCII码累积和为S1（十六进制）S2=（S1+1）*17496（十六）
S3=S2的十进制
希望哪位大大写出来~主要是这些进制的转换弄不明白~
不行啊~我写一点我的~但是是错的~希望哪位帮忙写出正确的
var name:string;
i,s1:integer;
s2:longint;
begin
name:=edit1.Text ;
s1:=1;
for i:=1 to length(name) do
s1:=s1+Ord(name[i]);
s1:=inttohex($s1);
s2:=s1*$17496;
edit2.Text:=inttostr(s2);
end;