第一个Delphi算法注册机

0o2tf5s

/: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

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

ampeter

有点意思~~~~~~~~~