主题:绞尽脑汁想密码而不得的产物
大家觉得自己的密码设定得怎么样 是不是“字母+数字”又不是很有规律就一定好了 答案是否定的 根据社会工程学分析 很多人在各种情况下用的都是同一个密码 这样一来 你的QQ就不是很安全了 别人可以很方便的渗入到一家论坛(比如pfan),读取他所有的用户信息 如果信息中有QQ这一项 那他就可以拿你在论坛注册的密码去套你的QQ 不要小看这种方法 破一个论坛比暴力破QQ快多了 稍有点黑客知识的人就能很轻易的下载到论坛的数据库 相信吧 完美的网页是不存在的 而且破一次就会有大把的收入 为了防止这种情况的发生 我们最好设置不同的密码
最近本人在想密码时实在是绞尽了脑汁 因此下午没事小写了一个密码生成器 现共亨一下 希望亨的东西能对大家有用
program PassWordMaker;
uses crt;
var i,j,n:integer;
o:char;
f:text;
begin
randomize;
assign(f,'Password.txt'); rewrite(f);
write('Press in the long of the password:'); readln(n);
repeat
writeln; for i:=1 to n do write('-'); writeln;
for i:=1 to n do
begin
j:=random(2000);
j:=j mod 35;
if j<=25 then
begin
write(chr(ord('a')+j));
write(f,chr(ord('a')+j));
end
else
begin
write(j-26);
write(f,j-26);
end;
end;
writeln; for i:=1 to n do write('-'); writeln;
writeln; write('Press anykey but Q to continue');
o:=readkey;
writeln; writeln(f);
until (o='q')or(o='Q');
close(f);
end.
最近本人在想密码时实在是绞尽了脑汁 因此下午没事小写了一个密码生成器 现共亨一下 希望亨的东西能对大家有用
program PassWordMaker;
uses crt;
var i,j,n:integer;
o:char;
f:text;
begin
randomize;
assign(f,'Password.txt'); rewrite(f);
write('Press in the long of the password:'); readln(n);
repeat
writeln; for i:=1 to n do write('-'); writeln;
for i:=1 to n do
begin
j:=random(2000);
j:=j mod 35;
if j<=25 then
begin
write(chr(ord('a')+j));
write(f,chr(ord('a')+j));
end
else
begin
write(j-26);
write(f,j-26);
end;
end;
writeln; for i:=1 to n do write('-'); writeln;
writeln; write('Press anykey but Q to continue');
o:=readkey;
writeln; writeln(f);
until (o='q')or(o='Q');
close(f);
end.