- UID
- 27556
注册时间2007-2-18
阅读权限20
最后登录1970-1-1
以武会友
该用户从未签到
|
发表于 2007-8-5 22:32:49
|
显示全部楼层
procedure TForm1.Button1Click(Sender: TObject);
var
name:string;
sn:integer;
begin
name:=edit1.Text;
if length(name)>=6 then
sn:=(length(name) xor 108624)-3269;
edit2.text:=inttostr(sn);
else
exit;
end;
.版本 2
.局部变量 name, 文本型
.局部变量 len, 整数型
.局部变量 sn, 整数型
name = 编辑框1.内容
len = 取文本长度 (name)
.如果 (len ≥ 6)
sn = 位异或 (len, 108624)
sn = sn - 3269
编辑框2.内容 = 到文本 (sn)
.否则
信息框 (“请输入用户名!”, #错误图标, “温馨提示!”)
看了老大的算法注册机,我就用易语言和Delphi练习了下编程,呵呵
[ 本帖最后由 小子贼野 于 2007-8-5 23:31 编辑 ] |
|