BabyGame 注册机源码(1千字)

不太清楚手动脱壳的要求，请解释一下!
BabyGame 注册机源码(太简单了，所以不好意思认为这样的就可以及格)：
BCB 5.0
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int i,l;
        char j;
        AnsiString name,code;
        code="2GMN5DH1T8PW3QC9RJL4KBE6F7VA";  //注册码表 
        if (Edit1->Text=="" )
        {
            Edit1->SetFocus();
            return;
        }
        name=Edit1->Text;  从用户名输入框中读取用户名字符串
        l=Edit1->Text.Length();  计算用户名程度
        for (i=1;i<=l;i++)      逐位转换用户名字符->注册码字符
                {
                  j=name[i] ;
                  if ((j>='A')&(j<='Z'))   
                  {
                            j=j-64;  是大写字母计算查表下标
                            j=code[j];
                  }
                  else if ((j>='a')&(j<='z'))
                  {
                            j=j-96;  是小写字母计算查表下标
                            j=code[j];
                  }
                  else if(j=='&')    是"&"查表下标为27
                      j=code[27];
                  else
                    j=code[28];      数字、汉字等其余字符
                                      下标为28
                                     
                  Edit2->Text=Edit2->Text+  j; 逐位在注册码
                }                            框中显示注码 
}
//------------------------------------------------------------