0o2tf5s 发表于 2009-8-19 17:35:32

/:L
写得有点乱吧
sTemp2又不知有什么用？
begin
      case i of   //注册码第7,8,9,10,11位依次和字符串PhoXo运算
      1: sTemp1 :=sTemp1+ chr(ord(sName) + ord('P')-$30);
      2: sTemp1:= sTemp1+chr(ord(sName) + ord('h')-$30);
      3: sTemp1 :=sTemp1+ chr(ord(sName) + ord('o')-$30 );
      4: sTemp1 :=sTemp1+ chr($30 - ord(sName) + ord('X'));
      5: sTemp1 :=sTemp1+ chr(ord(sName) + ord('o')-$30 );

此处sName无法使用ord方式吧？
还是由于版本不同，我用的是D7

lindi2008 发表于 2009-10-24 09:23:21

呵呵,看下代码的实现...支持~

ampeter 发表于 2017-6-11 13:12:15

有点意思~~~~~~~~~
页: 1 [2]
查看完整版本: 第一个Delphi算法注册机