第一个Delphi算法注册机

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

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

dengzf · 发表于 2025-4-2 23:04:37

学习,学习了 ............

jswoo · 发表于 2025-4-11 10:45:03

感谢楼主分享

		自动登录	找回密码
密码			加入我们

[Delphi] 第一个Delphi算法注册机