首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 看雪峰会 看雪商城 证书查询
  1. 社区
  2. 付费问答
    3. 发新帖
[旧帖] [求助]我想请问一下我做的这个delphi注册机那里出错 0.00雪花
发表于: 2009-10-10 11:11 3206

[旧帖] [求助]我想请问一下我做的这个delphi注册机那里出错 0.00雪花

makeme 活跃值
3
2009-10-10 11:11
3206
软件是一个简单的小软件，我只是拿来学习的。因为刚接触DELPHI。。。

希望大家多多指教。。

那个小软件的用户名算法是:  取全部用户名转换为大写（前提用户名必须是字母）

转换结果与 5678 xor 疑惑//  结果是十进制的。。。

下面是delphi注册机代码：

var
   a,b:string;
   c,d,e:integer;
begin
   c:=0;
   for d:=0 to length(edit1.text)-1 do
   begin
    a:=UPPERCASE(edit1.Text[d]);
    c:= (strtoint(a) xor 5678)
    end;
    edit2.Text:=inttostr(c);

             希望大家能够帮帮小弟。。

[课程]Linux pwn 探索篇！

收藏
免费 ・0
支持
分享
最新回复 (5)
CuteSnail
雪    币： 452
活跃值： (10)
能力值： ( LV6，RANK：90 )
在线值：
发帖
回帖
粉丝
私信
2 楼
for d:=1 to length(edit1.text) do
begin
//
end;
2009-10-10 11:47
0
ahyanglf
雪    币： 223
活跃值： (15)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
3 楼
[QUOTE=CuteSnail;697743]for d:=1 to length(edit1.text) do
begin
//
end;[/QUOTE]

认同这个,
2009-10-10 12:47
0
makeme
雪    币： 154
活跃值： (40)
能力值： ( LV8，RANK：130 )
在线值：
发帖
回帖
粉丝
私信
4 楼
还是出错,挺纳闷的...  不过还是感谢你们...
2009-10-10 14:16
0
wzjok
雪    币： 398
活跃值： (49)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
5 楼
var
   a,b:string;
   c,d,e:integer;
begin
   c:=0;
   for d:=1 to length(edit1.text) do
   begin
      a:=UPPERCASE(edit1.Text[d]);
      c:= (strtoint(a) xor 5678)
   end;
   edit2.Text:=inttostr(c);
end;
2009-10-10 14:19
0
makeme
雪    币： 154
活跃值： (40)
能力值： ( LV8，RANK：130 )
在线值：
发帖
回帖
粉丝
私信
6 楼
[QUOTE=wzjok;697817]var
   a,b:string;
   c,d,e:integer;
begin
   c:=0;
   for d:=1 to length(edit1.text) do
   begin
      a:=UPPERCASE(edit1.Text[d]);
      c:=...[/QUOTE]

谢了 现在没报错了。
2009-10-11 10:44
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//