Flash转屏保1.0注册机（delphi版） (1千字)

//Flash转屏保1.0版注册机（delphi版）
//http://xtzy.51.net/soft/flashscr/flashs.zip
//delphi5.0+控件kol&MCK1.01制作
{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
unit Unit1;
interface
{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes,
  Controls, mckCtrls {$ENDIF};
{$ELSE}
{$I uses.inc}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  mirror;
{$ENDIF}
type
  {$IFDEF KOL_MCK}
  {$I MCKfakeClasses.inc}
  PfrmMain = ^TfrmMain;
  TfrmMain = object(TObj)
    Form: PControl;
  {$ELSE not_KOL_MCK}
  TfrmMain = class(TForm)
  {$ENDIF KOL_MCK}
    KOLForm1: TKOLForm;
    KOLProject1: TKOLProject;
    Label1: TKOLLabel;
    Label2: TKOLLabel;
    EditBox1: TKOLEditBox;
    EditBox2: TKOLEditBox;
    Button1: TKOLButton;
    procedure Button1Click(Sender: PObj);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmMain {$IFDEF KOL_MCK} : PfrmMain {$ELSE} : TfrmMain {$ENDIF} ;
{$IFDEF KOL_MCK}
procedure NewfrmMain( var Result: PfrmMain; AParent: PControl );
{$ENDIF}
implementation
{$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}
{$IFDEF KOL_MCK}
{$I Unit1_1.inc}
{$ENDIF}
procedure TfrmMain.Button1Click(Sender: PObj);
var serial,machinecode:integer;
begin
  machinecode:=str2int(editbox1.text);
  serial:=machinecode xor ($111a7b-(machinecode mod $a));
  editbox2.text:=int2str(serial);
end;
end.
//MCK&KOL的作用使得完成的注册机只有30K大小，i like it!.