简单说说注册算法 (1千字)

//code with delphi5
var
  name,machine,code,a,d,e:string;
  len,halflen,i,b,f:integer;
//reg generate
begin                         
  name:=editbox1.text;
  len:=length(name);
  machine:=editbox2.text+editbox2.text;
  i:=1;
  code:='ECD';
  if len<4 then editbox3.text:='用户名至少为4位，且不能为中文。'
  else
      begin                   
        if len/2<>round(len/2) then
            begin           
              while i<=len do
                    begin   
                        a:=int2str(ord(name[i]) xor ord(machine[i+2]));
                        code:=code+a;
                        i:=i+1;
                    end;
              if length(code)>=12 then editbox3.text:=code[1]+code[2]+code[3]+code[4]+code[5]+code[6]+code[7]+code[8]+code[9]+code[10]+code[11]+code[12]
                  else
                      begin
                        e:=''; i:=1;
                        while i<=(length(code)-3) do
                        begin
                            d:=code[i+3];
                            e:=e+d;
                            i:=i+1;
                        end;
                        e:=e+e;
                        e:=e+e;
                        code:='ECD'+e;
                        editbox3.text:=code[1]+code[2]+code[3]+code[4]+code[5]+code[6]+code[7]+code[8]+code[9]+code[10]+code[11]+code[12];
                      end;
            end;
           
            if len/2=round(len/2) then
            begin
            .......//以下省略，抱歉，答应作者的，不能无信   
            end;
end;
end.