各位大侠好，本人最近写了个双色球软件，好久没在网上看到注册机。
可能有点意思吧。
能不能帮测试一下。
声明：可以做注册机和暴破版。
下载地址：
2efK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6i4y4C8P5h3y4F1i4K6u0W2j5$3!0E0i4K6u0r3M7$3!0X3N6q4)9J5c8U0t1J5y4U0l9J5i4K6u0W2K9s2c8E0L8l9`.`.
上次那个VB程序没几天就被fly大侠破了，真不好意思。。。

为了证明程序是本人所写，现给出加解密部分函数(delphi)。

//加密字符串
function EnCryptStr(aStr: string; aKey: string): string;
var
  ReadBuf : TBlock;
  WriteBuf: TBlock;
  Key     : TBlock;
  Count   : Integer;
  Offset  : Integer;
  I   : Integer;
  S   : string;
begin
  result := '';
  Key := StrToKey(aKey);
  Des_Init(Key, True);
  Offset := 1;
  Count  := Length(aStr);
  repeat
    S := Copy(aStr, Offset, 8);
    FillChar(ReadBuf, 8, 0);
    Move(S[1], ReadBuf, Length(S));
    Des_Code(ReadBuf, WriteBuf);
    for I := 0 to 7 do
      begin
        result := result + IntToHex(WriteBuf[I], 2);
      end;
    Offset := Offset + 8;
  until Offset > ((Count+7) div 8) * 8;
end;

//解密字符串
function DeCryptStr(aStr: string; aKey: string): string;
var
  ReadBuf,
  WriteBuf : TBlock;
  Key      : TBlock;
  Offset  : Integer;
  Count   : Integer;
  I        : Integer;
  S        : string;
begin
  try
    Key := StrToKey(aKey);
    Des_Init(Key, False);
    S := '';
    I := 1;
    repeat
      S := S + Chr(StrToInt('$'+Copy(aStr, I, 2)));
      Inc(I, 2);
    until I > Length(aStr);
    Offset := 1;
    Count  := Length(S);
    while Offset < ((Count+7) div 8 * 8) do
      begin
      FillChar(ReadBuf, 8, 0);
      Move(S[Offset], ReadBuf, 8);
      Des_Code(ReadBuf, WriteBuf);

      for I := 0 to 7 do
        begin
        result := result + Chr(WriteBuf[I]);
        end;

      Offset := Offset + 8;
      end;
    result := StrPas(PChar(result));
  except
    result := '';
  end;
end;

[培训]传播安全知识、拓宽行业人脉——看雪讲师团队等你加入！