存档

文章标签 ‘delphi’

随机密码生成器

2011年11月4日 评论已被关闭

以前一直在运维工作中要设置和使用一些密码，但都要求很复杂。
为了服务器的安全，比如你在安装MSsqlserver时要设置sa的密码，那么要设置的密码一般为十几位。乱乱的这样相对会安全点。这样就要每次去哪个文本上去弄，这样如果没有随手删除就会留下些信息了。出于这样的情况，有时间的情况下，我随手就帮自己弄个方便的小工具吧。随机密码生成器就这样来了。哈哈！好吧不多说了。begin！

还是使用delphi很方便！

 

设计思路及要求：
1.我们要使用起来方便。单文件就可以了。
2.我们在使用中要能直接复制到剪贴板里，直接粘贴到密码设置框中。
3.随机生成32位大小写加数字与特殊字符。

代码很少。很容易看明白。不多说！看吧！

?View Code DELPHI
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

procedure TForm1.Button1Click(Sender: TObject);
begin
  begin
   Randomize;
word:='0123456789abcdefghijklmnopqrstuvwxyz'+'ABCDEFGHIJKLMNOPQRSTUVWXYZ'+'~!@#$%^&*()_+-={}[]:"|\;<>?,./';
pass:='';
   for   i:=0   to   32   do
   pass:=pass+copy(word,trunc(length(word)*random+1),1);
   edit1.text:=pass;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  begin
   Randomize;
word:='0123456789abcdefghijklmnopqrstuvwxyz'+'ABCDEFGHIJKLMNOPQRSTUVWXYZ'+'~!@#$%^&*()_+-={}[]:"|\;<>?,./';
pass:='';
   for   i:=0   to   32   do
   pass:=pass+copy(word,trunc(length(word)*random+1),1);
   edit1.text:=pass;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Edit1.text));//复制到剪贴板
end;

随机密码生成器：下载

分类: 编程实践 标签: , ,