网站 › 『编程语言区』 › 最简单的Delphi注册机:

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

最简单的Delphi注册机:

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


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年了，一心跑到硬件上去了，软件都入不了门，你们是怎么成为大神的，教教我们

那你是职业修电脑的吗？{:1_918:}{:1_918:}

小糊涂虫 发表于 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

认真学习一下

查看完整版本: 最简单的Delphi注册机: