密码加密

mousimin

想写一个简单的类似qq登陆的界面，如下：

输入用户名、密码，我想让密码隐藏，比如显示为****，该如何实现？
贴出部分代码，请大牛指点。

1. my $mw_load = Win32::GUI::DialogBox->new(
   
2.         -name => 'load',
   
3.         -text    => '邮箱V7.0-账号登陆',
   
4.         -pos  => [300, 300],
   
5.         -size => [350, 250],
   
6. );
   
7. 
   
8. $font1 = Win32::GUI::Font->new(
   
9.         #-name => "Comic Sans MS", #字体样式
   
10.         -name => "Verdana", #字体样式
    
11.         -size => 10, #字体大小
    
12.         -bold => 1, #粗体与否 （值为1则粗体，0则非粗体）
    
13.         -italic => 0, #斜体与否 （值为1则斜体，0则非斜体）
    
14.         -color => "#CCCCFF",
    
15. );
    
16. 
    
17. $mw_load->AddTextfield(
    
18.     -name => 'user',
    
19.     -text => '',
    
20.     -prompt => [ "用户名:", 50 ],
    
21.     -pos => [50,30],
    
22.     -size => [200,20],
    
23.     -align => 'left',
    
24.     -font => $font1,
    
25. );
    
26. 
    
27. $mw_load->AddTextfield(
    
28.     -name => 'password',
    
29.     -text => '',
    
30.     -prompt => [ "密 码:", 50 ],
    
31.     -pos => [50,70],
    
32.     -size => [200,20],
    
33.     -align => 'left',
    
34.     -font => $font1,
    
35. );
    
36. 
    
37. 
    
38. $mw_load->AddButton(
    
39.     -text => "登陆",
    
40.     -left => $mw_load->Width() - 280,
    
41.     -top  => $mw_load->Height() - 90,
    
42.     -size  => [80 , 30],
    
43.     -onClick => \&check,
    
44.     -font => $font1,
    
45. );
    
46. 
    
47. 
    
48. $mw_load->AddButton(
    
49.     -text => "退出",
    
50.     -left => $mw_load->Width() - 150,
    
51.     -top  => $mw_load->Height() - 90,
    
52.     -size  => [80 , 30],
    
53.     -onClick => \&exit,
    
54.     -font => $font1,
    
55. );

复制代码

zhlong8

Win32::GUI::Textfield 的文档中有写吧

  -password      => 0/1 (default 0)
      masks the user input (like password prompts).
  -passwordchar  => CHAR (default '*')
      The specified CHAR that is shown instead of the text with -password => 1

mousimin

回复 2# zhlong8


    谢谢，感激不尽！以后会注意看文档的。

1. $mw_load->AddTextfield(
   
2.     -name => 'password',
   
3.     -text => '',
   
4.     -prompt => [ "密 码:", 50 ],
   
5.     -pos => [50,70],
   
6.     -size => [200,20],
   
7.     -align => 'left',
   
8.     -font => $font1,
   
9.     -password => 1,
   
10.     -passwordchar => CHAR,
    
11. );

复制代码