keygen.dpr

专业的Keygen Delphi源代码

{=========================================================================}
{ BCG Keygen Template 1.0                                                }
{ code by xIkUg[BCG][DFCG][OCN][DCM][CZG]                                 }
{                                                                         }
{ http://www.xp-program.com                                               }
{ http://bbs.xp-program.com                                               }
{ http://www.chinadbcg.org                                               }
{ Email: [e-mail]                                                    }
{ CreateDate: 2004-09-07                                                  }
{=========================================================================}

{=========================================================================}
{ 接口说明：Generate函数为生成注册码算法的函数，注册码的生成便可在此进行  }
{=========================================================================}
program Keygen;

uses
  windows,
  messages,
  MiniFMOD;

{$R keygen.res}

function generate(name: string): string;
var
  x                 : integer;
begin
  result := '';
  for x := 1 to length(name) do
    result := result + chr(ord(name[x]) xor x);
end;

function dialog(handle, Msg, wParam, lParam: integer): integer; stdcall;
var
  name              : array[0..255] of char;
  serial            : string;
begin

  result := 1;
  if wParam = sc_close then enddialog(handle, 1);
  case msg of

    WM_INITDIALOG:
      begin
        SetWindowText(handle, 'BCG Keygen template by xIkUg[BCG]');
        SetDlgItemText(handle, 999, 'BCG Keygen template by xIkUg[BCG]');
        XMPlayFromRes('XM', 'MUSIC');
      end;
    WM_COMMAND:
      begin
        case wparam of

          1002: begin
              getdlgitemtext(handle, 1000, name, 30);
              serial := generate(string(name));
              setdlgitemtext(handle, 1001, pchar(serial));
            end;

          1003: enddialog(handle, 0);

        end;
      end;
  else result := 0;
  end;
end;

begin
  dialogbox(hInstance, 'RC', 0, @Dialog);
end.