回 帖 发 新 帖 刷新版面

主题:绞尽脑汁想密码而不得的产物

大家觉得自己的密码设定得怎么样 是不是“字母+数字”又不是很有规律就一定好了 答案是否定的 根据社会工程学分析 很多人在各种情况下用的都是同一个密码 这样一来 你的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.

回复列表 (共4个回复)

沙发

uses crt;
这句什么意思?有什么作用?

板凳

我想,大概是使用单元的意思吧

3 楼

怎么楼主有点象是买广告呀?

4 楼

crt是一个单元
readkey是crt里边的函数

我来回复

您尚未登录,请登录后再回复。点此登录或注册