算法是这样的：取用户名ASCII码累积和为S1（十六进制）
S2=（S1+1）*17496（十六）
S3=S2的十进制
希望哪位大大写出来~主要是这些进制的转换弄不明白~

轉換用函數就行了，分別要用到ord(), inttohex()十六進制轉化為十進制加$符號就行，自己試吧

[此贴子已经被作者于2007-11-21 11:01:49编辑过]

不行啊~我写一点我的~但是是错的~希望哪位帮忙写出正确的
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;

s1:=inttohex(s1);
s2:=s1*$17496;
看看