取cpu号注册软件

Question

对文字加密的时候出错，帮我看看，或者哪位大侠帮我调试下，我发程序过去。。
 protected
     function getsourcecode:string;
     function changesourcetodesign(source:string):string;
     function secretchar(sc:char):char;function tregcode.secretchar(sc: Char):char;
var
 itmep:integer;
begin
  itemp:=ord(sc);
 case itemp  of
  48..57;
   begin
   itemp:=itemp +see[itemp];
   if itemp>57 then
   itemp:=itemp-10; end;
  65..90;
 begin
    itemp:=itemp+see[itemp] ;
    if itemp>90  then
   itemp:=itemp-26;
  end;
   97..122;
 begin
    itemp:=itemp+see[itemp] ;
    if itemp>122  then
    itemp:=itemp-26;
   end;
  result:=char(itemp);
end;
end;

Answer 1

我QQ 号，149263980 加我，帮我调试下好么，现在不是那点问题，那个事吧定义的字母给些错了，itmep:integer; 
begin 
  itemp:=ord(sc);写反了一个字母，现在时别处的问题，