#!/usr/bin/perl

@list = (0..9, a..z, A..Z,'!','@','#');
#@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
$range = 71;

for ( 1..10 )
{
    $pass .= $list[int(rand($range))];
}

print "$pass\n";
最後修改日期: 2017 年 08 月 19 日
Related posts 相關文章
不要在瀏覽器上自動儲存自己的密碼,已有人被駭
More...
2020 年迎來了 PHP 8 與 Perl 7
More...
Apache htaccess 限制某頁面要輸入密碼 Password
More...
當 git clone 或 git pull 時就儲存帳密在當下不用再二次輸入
More...

作者

留言

撰寫回覆或留言

發佈留言必須填寫的電子郵件地址不會公開。

5 × = 10