请哪位大侠帮我把下面的代码转换成Delphi的.(100)

  • 主题发起人 主题发起人 SP229
  • 开始时间 开始时间
S

SP229

Unregistered / Unconfirmed
GUEST, unregistred user!
function(mc){fixstr="yxb_200@"for(i=0;i<len(mc);i++) newmc=mc xor fixstr[i+1];mcc=mid(str(int(mid(mc,1,6))+int(mid(mc,7,6))),1,6);nn=GetStringAscSum(newmc)%0xFF;sum=0;for(i=0;i<len(mcc);i++){ nn+=mcc if(nn>0xFF)nn-=0xFF; nn^=newmc; sum<<8; sum+=nn;}sn=wsprintf("%d",sum);sn=mid(sn,1,4)+"-"+mid(sn,5,4)+"-"+mid(sn,9,4)+"-"+mid(sn,13,3)+"0"return sn;}
 
搞懂这个程序是干什么的吧,不要刻意的去转代码啊。转了你也不明白这个是干什么用的,有什么用啊?
 
应该是注册码有关的
 
后退
顶部