最简单的Delphi注册机:

冥界3大法王 · 发表于 2019-8-19 18:23

本帖最后由冥界3大法王于 2019-8-19 18:25 编辑

[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 · 发表于 2019-8-20 10:23

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

terry.zhou · 发表于 2019-8-30 10:22

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

wapj152321 · 发表于 2019-8-19 18:37

沙发，谢谢分享！

plwww · 发表于 2019-8-19 18:57

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

老狗丶 · 发表于 2019-8-19 19:17

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

那你是职业修电脑的吗？

小糊涂虫 · 发表于 2019-8-19 19:51

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

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

wapj152321 · 发表于 2019-8-25 10:54

谢谢分享！

jinyuan · 发表于 2019-8-26 13:22

谢谢你的分享

haokucn · 发表于 2019-10-30 14:51

认真学习一下

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] 最简单的Delphi注册机:

免费评分

点评