注册机制

现在，我有时间去关注软件盗版问题，我将描述一下我的注册方法，希望对你有所帮助。

几年以来，我有过许多的方案，有的简单，有的复杂，其目的都是为了防止软件的非法使用。这些方法包括两种：硬件方法和软件方法。
硬件方法一般是使用并口设备（软件狗）或是不标准的软盘（加密盘）。但我还是喜欢软件的方法！

当然，有很多方法提供注册保护，例如购买第三方保护软件，但是我想尝试开发自己的方法，因为我想弄清楚这个问题。

在讨论之前，我略微提一下我以前使用过的方法。

最稳妥和最不安全的办法是提供两种版本：试用版和完整版。当用户注册了你的软件之后，他们就得到一个URL去下载完整版本。完整版
是没有任何限制的，所以软件是否被非法使用就完全依赖于用户的诚实，唯一的约束就是只用注册用户才能得到技术支持。我不使用这
种方法，因为周围有太多的不诚实的用户，会造成注册量太少。

下一个方法是提供用户一个由用户名生成的注册码（公司名可选）。现在软件可以为注册用户使用了。用户可以把软件给其他人使用，
但用户名和公司名是无法修改的。

最后是上一个方法的改良。注册码还是基于版本号，用户可以继续使用老的注册码来进行小的升级，但版本的大改动就需要用户重新注册
了。当然你可以不要用户为版本的升级付费，但这是一个可以选择的方案。

我的办法是在报表上打印和在屏幕上显示最后的用户名和公司名，在证券公司，发票上有程序所打印的公司名，这样即使非法用户有我的
程序，他也无法使用。

现在，问题变成：生成一个基于字符串的唯一值，只要串发生改变，就会引起代码运算出一个不同的值。

解决的办法是使用程序名、用户名、公司名以及版本号作为运算字符串。如果没有输入公司名，就用缺省值代替，这样做的问题是会引起
程序含混。

我是一个电子工程师，在通讯行业里需要一种方法来确定传输的数据是无误的，一般的方法就是CRC。CRC已经使用了20年，我不知道CRC
出现的确切时间，但我知道它一直工作的很好。如果你想知道更多的CRC知识，请参考'A PAINLESS GUIDE TO CRC ERROR DETECTION
ALGORITHMS'，作者：Ross N. Williams，下载地址：http://www.ross.net。

因此我使用32位的CRC算法得出8位的注册码，有个问题：如果用于运算的字符串没有进行任何的加密就太简单了。所以我使用Delphi的加
密过程加密一下字符串，然后用于运算的字符串就足够复杂了。

我没有做完全的测试，只做了局部的测试，但我保证代码是有效的，特别要提醒的是：CRC结构是基于polynomial modulo算法的，不要修
改它。

我可能很苯，但我不傻:)。下面的代码不是我所使用的，但这些代码很好的演示了我的注册方法是如何工作的。

现在，让我们看看代码。

请注意：我使用了前缀（CamelCase(sic)），以下是定义：

c : 字符型
n : 数字
d : 数据
t : 日期/时间
y : 流通
l : 逻辑型

参数范围：
p : 参数
g : 全局变量

其它的都符合以上规则。

所有的函数和过程都以'SSL'为前缀，以避免与其他函数和过程重名。这个前缀已在Delphi Prefix Register注册。

unit Registration;

{------------------------------------------------------------------------------}
interface

uses
  SysUtils;

function Mod95(pnVal : Integer): Integer; forward;

function SSLEncode(pcName: String; pcCompany: String; pcAppTitle: String; pcMajor: String): String; forward;

function SSLGenerateKey(pcName, pcCompany, pcApplication, pcMajor : string) : String; forward;

function SSLCrypt(pcString : PChar; pnSeed : Integer = 0) : String ; forward

function CRCExecute(pcString : String) : String ; forward;

var
  gnKey  : Integer;
  gnSalt : Integer;

{------------------------------------------------------------------------------}
implementation

const
  NULL_STRING  = ';

const CRCTable : array [0..255] of LongWord =(
    $00000000, $77073096, $ee0e612c, $990951ba,
    $076dc419, $706af48f, $e963a535, $9e6495a3,
    $0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988,
    $09b64c2b, $7eb17cbd, $e7b82d07, $90bf1d91,

    $1db71064, $6ab020f2, $f3b97148, $84be41de,
    $1adad47d, $6ddde4eb, $f4d4b551, $83d385c7,
    $136c9856, $646ba8c0, $fd62f97a, $8a65c9ec,
    $14015c4f, $63066cd9, $fa0f3d63, $8d080df5,

    $3b6e20c8, $4c69105e, $d56041e4, $a2677172,
    $3c03e4d1, $4b04d447, $d20d85fd, $a50ab56b,
    $35b5a8fa, $42b2986c, $dbbbc9d6, $acbcf940,
    $32d86ce3, $45df5c75, $dcd60dcf, $abd13d59,

    $26d930ac, $51de003a, $c8d75180, $bfd06116,
    $21b4f4b5, $56b3c423, $cfba9599, $b8bda50f,
    $2802b89e, $5f058808, $c60cd9b2, $b10be924,
    $2f6f7c87, $58684c11, $c1611dab, $b6662d3d,

    $76dc4190, $01db7106, $98d220bc, $efd5102a,
    $71b18589, $06b6b51f, $9fbfe4a5, $e8b8d433,
    $7807c9a2, $0f00f934, $9609a88e, $e10e9818,
    $7f6a0dbb, $086d3d2d, $91646c97, $e6635c01,

    $6b6b51f4, $1c6c6162, $856530d8, $f262004e,
    $6c0695ed, $1b01a57b, $8208f4c1, $f50fc457,
    $65b0d9c6, $12b7e950, $8bbeb8ea, $fcb9887c,
    $62dd1ddf, $15da2d49, $8cd37cf3, $fbd44c65,