|
发表于 2012-2-9 16:42:01
|
显示全部楼层
本帖最后由 「hailmy」 于 2012-2-9 16:43 编辑
----------------------------------------------------------------------
procedure TForm1.Edit1Click(Sender: TObject);
begin
bijiao1:=3;
mima1:='yuc521';
Edit1.Text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mima2:=(Edit1.Text);
bijiao:=(CompareStr(mima1,mima2));
if bijiao=0 Then
(MessageBox (handle,'恭喜你密码正确','提示',MB_OKCANCEL))
Else
MessageBox (handle,'密码错误!请关闭程序','严重提示!!',MB_OKCANCEL);
end;
----------------------------------------------------------------------
正确密码的初始化,放在了 Edit控件的 单击事件当中,变量mima1存放正确密码,mima2存放输入的密码.也是 edit的内容.打开程序,直接按 确定 此时,mima1和mima2的值都是为空,所以才会弹出密码正确,后面的的 bijiao1 = 0 是判断上面CompareStr()函数的返回值。
-----
真码的存放 其实有很多方式,也可以通过假码算出真码等等。不过有点奇怪的是,OD找到按钮事件,里面多次出现 字符串 'DjB' 。这个不知道是什么来的。 |
|