最简单的Delphi注册机:

冥界3大法王

[Delphi] 纯文本查看 复制代码

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  result:integer;


implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If (Key<>chr(16)) and (Edit1.Text<>'') then
  Begin
    result:=StrToInt(Edit1.Text) Xor 468885152;
    Edit2.Text:=IntToStr(result);
  End;
end;

end.

xinyuguy

我觉得 你这个 str 需要 trim 一下 空格比较好

terry.zhou

没看出什么用途，感觉只是把用户输入的数字异或了一下而已。
对了，result是Delphi的保留字，不建议作为变量，特别是全局变量，不然function里就获取不到这个值了。

wapj152321

沙发，谢谢分享！

plwww

搞电脑20年了，一心跑到硬件上去了，软件都入不了门，你们是怎么成为大神的，教教我们

老狗丶

plwww 发表于 2019-8-19 18:57
搞电脑20年了，一心跑到硬件上去了，软件都入不了门，你们是怎么成为大神的，教教我们

那你是职业修电脑的吗？

小糊涂虫

plwww 发表于 2019-8-19 18:57
搞电脑20年了，一心跑到硬件上去了，软件都入不了门，你们是怎么成为大神的，教教我们

20年了，高手，膜拜。搞硬件维修快10年了，连门都还没入，感觉目前硬件不景气了。

wapj152321

谢谢分享！

jinyuan

谢谢你的分享

haokucn

认真学习一下