zc1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit zc1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  Tzc = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn3: TBitBtn;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  zc: Tzc;

implementation

{$R *.DFM}

function StrToHex(AStr: string): string;
var
  I: Integer;
  Tmp: string;
begin
  Result := '';
  for I := 1 to Length(AStr) do
  begin
    Result := Result + Format('%2u', [Byte(AStr[I])]);
  end;
  I := Pos(' ', Result);
  while I <> 0 do
  begin
    Result[I] := '0';
    I := Pos(' ', Result);
  end;
end;

Function gettext(text1:string):string;
var i, j: integer;
  aaa,bbb: string;
begin
  bbb := '';
  j := 1;
  for i := 2 to length(text1) do
  begin
    try
      j := strtoint(strtohex(copy(text1, i, 1))) + j -i ;
      aaa := char(j mod 26 + 65);
    except
    end;
    bbb:=bbb+aaa;
  end;
    if length(bbb)>10 then bbb:=gettext(bbb);
    Result := bbb;
end;

procedure Tzc.FormCreate(Sender: TObject);
begin
  Edit1.text := gettext(trim(string(Pchar(Ptr($FEC71)))) + 'KISSLXF_QT');
  BitBtn1Click(sender);
end;

procedure Tzc.BitBtn3Click(Sender: TObject);
begin
//showmessage(chr(strtoint(edit2.text)));
  if InputBox('刘晓峰的程序注册码生成器', '请输入密码', '') <> '4234204233420' then
  begin
    application.MessageBox('没有搞错吧,密码没对也想要注册码,你克抢乱走了.', '我靠', MB_OK + MB_ICONERROR);
    exit;
  end;
  BitBtn1Click(sender);
end;

procedure Tzc.BitBtn1Click(Sender: TObject);
var i, j: integer;
  aaa,bbb: string;
begin
  bbb := '';
  j := 1;
  for i := 2 to length(Edit1.text) do
  begin
    try
      j := strtoint(strtohex(copy(Edit1.text, i, 1))) +j ;
      aaa := char(j mod 26 + 65);
    except
    end;
    bbb:=bbb+aaa;
  end;
    edit2.text := bbb;
end;

end.