Máy chủ tên miền yêu cầu tất cả nhân viên phải có mật khẩu ngẫu nhiên, mạnh mẽ tuân thủ các quy tắc sau:

• Chính xác là 15 ký tự.
• Chỉ các ký tự có thể gõ bàn phím (như được hiển thị trong loại mã bên dưới). Không được phép dạy bán hàng để sử dụng mã ALT + NUMPAD.
• Ít nhất 1 chữ cái viết thường: abcdefghijklmnopqrstuvwxyz
• Ít nhất 1 chữ hoa: ABCDEFGHIJKLMNOPQRSTUVWXYZ
• Ít nhất 1 chữ số: 0123456789
• Ít nhất 1 ký hiệu: `~!@#$%^&*()_+-={}|[]\:";'<>?,./

Vì mục đích này, CNTT đã đưa vào hoạt động và sẽ phân phối Trình tạo mật khẩu ngẫu nhiên cho tất cả nhân viên. Tất cả nhân viên sẽ được yêu cầu sử dụng Trình tạo mật khẩu ngẫu nhiên. Các yêu cầu đối với Trình tạo mật khẩu ngẫu nhiên là, ngoài các hạn chế về mật khẩu ở trên:

• Nó phải có khả năng tạo ra tất cả các hoán vị của tất cả các ký tự được phép.
• Nó phải hiển thị mật khẩu được tạo trên màn hình.
• Mã được yêu cầu phải càng nhỏ càng tốt (tính bằng byte).

Vui lòng gửi giải pháp đề xuất của bạn trong tuần tới.

Toán học (18)

Cho tôi một chút gian lận

= 15char ASCII pwd

&(^F7yP8k:*1P<t

PS không an toàn :)

Ruby, 74 69 byte

Chỉ cần lấy mẫu ngẫu nhiên từ phạm vi ascii 33 - 126 cho đến khi tất cả các lớp ký tự có mặt:

$_=[*?!..?~].sample(15)*''until~/\d/&&~/[a-z]/&&~/[A-Z]/&&~/\W|_/
p$_

Ruby, 39 byte

Sử dụng khám phá thông minh của nai sừng tấm:

p"0123abcdABCD-+/<".chars.sample(15)*''

Lưu ý rằng các quy tắc đã thay đổi sau khi tôi đăng bài này lần đầu tiên. Tại thời điểm cả hai mục trước áp dụng cho các quy tắc. Tôi cũng muốn chỉ ra rằng các quy tắc vẫn chưa được xác định rõ:

(..) tất cả các hoán vị của tất cả các ký tự được phép

"Hoán vị". Không có hoán vị của các ký tự được phép tuân thủ các quy tắc còn lại, bởi vì bất kỳ hoán vị nào của tập hợp các ký tự được phép đều miễn là tập hợp các ký tự được phép (trong khi mật khẩu được cho là dài 15 ký tự). Và không có sự lặp lại trong một hoán vị. Tuy nhiên, mục đầu tiên của tôi vẫn còn "ngẫu nhiên" hơn nhiều câu trả lời được đánh giá cao khác ở đây.

Tuy nhiên, ở đây bạn có nó. Cho phép lặp lại các ký tự và dấu gạch dưới:

Ruby, 77 byte

$_=([*?!..?~]*15).sample(15)*''until~/\d/&&~/[a-z]/&&~/[A-Z]/&&~/\W|_/
puts$_

Tôi cũng đã sử dụng putsthay vì ptrong phần này vì pin ra chuỗi được bao trong "dấu ngoặc kép" và một số ký tự thoát bằng dấu gạch chéo ngược.

Ruby, 70 byte

Như Ventero chỉ ra, ~có thể bỏ qua trước các biểu thức chính quy và printcó thể thay thế puts$_. Nhưng với đầu ra xấu, điều này khiến bạn cũng có thể in tất cả các mật khẩu bị từ chối, ép nó thành một lớp lót:

puts$_=([*?!..?~]*15).sample(15)*''until/\d/&&/[a-z]/&&/[A-Z]/&&/\W|_/

Giải trình

Như yêu cầu. $_là một biến bán ma thuật chứa dòng cuối cùng được đọc từ đầu vào - vì vậy bạn không cần phải luôn lưu trữ nó, như thế này . Tuy nhiên, ở đây chúng tôi sử dụng nó vì một thuộc tính khác, cụ thể là ~toán tử áp dụng regex trực tiếp vào nó, một mẹo đầu tiên tôi học được bằng chron . Tôi đã thay thế cách sử dụng all, nhưng sẽ khá dễ hiểu nếu bạn nhận được phần còn lại ( xem tài liệu ).

Java 8 - 354 329 319 275 267 ký tự

Chỉ để giải trí, sử dụng lambdas với Java 8 - mỗi đầu ra có thể có cùng xác suất được tìm thấy.

Nó sử dụng thực tế là các ký tự được phép có mã ascii liên tiếp, từ 33 đến 126.

class A {
    //flags for, respectively, small caps, large caps, digits, punctuation
    static int a, A, d, p;

    public static void main(String[] x) {
        String s;
        do {
            //Using special String constructor that takes an int[]
            s = new String(new java.util.Random().ints(15, 33, 127)
                                .toArray(),
                           0, 15);
            a = A = d = p = 0;
            s.chars()
                .map(c ->
                      c > 96 & c < 123 ? a = 1
                    : c > 64 & c < 90  ? A = 1
                    : c > 47 & c < 58  ? d = 1
                    : (p = 1))
                .min();
        } while (a + A + d + p < 4);
        System.out.println(s);
    }
}

Đầu ra mẫu:

.*;Tm?svthiEK`3  
o.dzMgtW5|Q?ATo  
FUmVsu<4JF4eB]1

Chương trình nén:

class A{static int a,A,d,p;public static void main(String[]x){String s;do{s=new String(new java.util.Random().ints(15,33,127).toArray(),0,15);a=A=d=p=0;s.chars().map(c->c>96&c<123?a=1:c>64&c<90?A=1:c>47&c<58?d=1:(p=1)).min();}while(a+A+d+p<4);System.out.println(s);}}

Python 2.X + 3.X (229 ký tự): Tạo và thay thế

Ý kiến

1. Đầu tiên tạo một danh sách với 15 biểu tượng được phép
2. Thay thế một vị trí ngẫu nhiên rbằng một chữ số ngẫu nhiên
3. Thay thế một vị trí ngẫu nhiên s, bằng s != r, bằng chữ in hoa
4. Tương tự cho chữ thường và ký hiệu như trong 2 và 3.

Mã

from random import randint as r, shuffle as s
a=list(range(15))
p=a[:]
for i in range(15):
    a[i]=chr(r(32,126))
s(p)
a[p.pop()]=chr(r(48,57))
a[p.pop()]=chr(r(65,90))
a[p.pop()]=chr(r(97,122))
a[p.pop()]=chr(r(33,47))
print(a)

Python 2.X + 3.X (194 ký tự): Tạo và kiểm tra

import random
from re import search as s
p=''
while not all([s("\d",p),s("[a-z]",p),s("[A-Z]",p),s("[\W_]",p)]):
 p=str(map(chr,[random.choice(list(range(33,127))) for i in range(15)]))
print(p)

• Cảm ơn MvG đã nói với tôi điều đó \uvà \lkhông tồn tại trong regex Python.
• Cảm ơn grc đã nói với tôi rằngrandom.sample không có sự thay thế, hãy lấy mọi mật khẩu được phép có thể mà chúng tôi cần lấy mẫu với sự thay thế.

Sử dụng lỗ hổng trong mô tả vấn đề

Hiện tại, mô tả vấn đề không yêu cầu mọi ký hiệu / chữ số xuất hiện với cùng một xác suất. Với giải pháp sau đây, bạn không thể đưa ra bất kỳ giả định nào về một ký hiệu và / hoặc vị trí. Nhưng bạn có thể làm điều đó với nhiều người.

Python 2.X + 3.X (62 ký tự)

from random import sample
print(sample("0123abcdABCD-+/<",15))

Cảm ơn daniero cho ý tưởng sử dụng mẫu.

Bash trên * nix (109)

while ! grep -Pq [A-Z].*[a-z].*[0-9].*[\\W_]<<<$a$a$a$a
do a=`tr -dc !-~</dev/urandom|head -c15`
done
echo $a

Để hoạt động chính xác, $akhông được đặt thành mật khẩu hợp lệ nhưng không ngẫu nhiên lên phía trước. Nếu bạn muốn bao gồma= và một dòng chia tay phía trước, đó là ba ký tự nữa nhưng nó cho phép bạn chạy điều đó nhiều lần. Bạn rõ ràng cũng có thể thay thế tất cả các dòng mới bằng ;để bạn có một lớp lót mà bạn có thể thực hiện thường xuyên như bạn muốn.

Hơn nữa, bạn nên đặt LC_ALL=Choặc không đặt bất kỳ biến môi trường cụ thể cục bộ nào ( LANGvàLC_CTYPE cụ thể), vì phạm vi ký tự phụ thuộc vào thứ tự đối chiếu bằng với thứ tự ascii.

/dev/urandomlà nguồn của các byte ngẫu nhiên. !-~là phạm vi của tất cả các ký tự cho phép, như được chỉ định trong câu hỏi. tr -dcxóa tất cả các ký tự không được liệt kê trong đối số tiếp theo của nó. headmất 15 nhân vật còn lại.grepkiểm tra xem mỗi loại yêu cầu có xảy ra ít nhất một lần không. Đầu vào của nó bao gồm bốn bản sao của ứng cử viên, vì vậy thứ tự của các ký hiệu không quan trọng, do đó tất cả các mật khẩu có thể có cơ hội được chọn. Các -qgrep ngăn chặn đầu ra.

Vì lý do không rõ, /dev/randomthay vì /dev/urandommất tuổi. Có vẻ như entropy đã cạn kiệt khá nhanh. Nếu bạn cdvào/dev , bạn có thể tránh thêm một số byte, nhưng điều đó cảm thấy hơi giống như gian lận.

Con trăn 2 (138)

import re,random
a=''
while not re.search('[A-Z].*[a-z].*[0-9].*[\W_]',a*4):
 a=''.join(random.sample(map(chr,range(33,127))*15,15))
print a

Để làm cho mã có thể đọc được, tôi đã thêm một dòng mới và thụt lề sau vòng lặp không cần thiết và tôi không tính.

Đây thực chất là ý tưởng giống như trong phiên bản bash. Nguồn ngẫu nhiên ở đây là random.sample, sẽ không lặp lại các yếu tố. Để chống lại thực tế này, chúng tôi sử dụng 15 bản sao của danh sách các chữ cái được phép. Theo cách đó, mọi sự kết hợp vẫn có thể xảy ra, mặc dù những người có chữ lặp đi lặp lại sẽ ít xảy ra hơn. Nhưng tôi quyết định coi đây là một tính năng, không phải là một lỗi, vì câu hỏi không yêu cầu xác suất như nhau cho tất cả các hoán vị, chỉ có khả năng.

Con trăn 3 (145)

import re,random
a=''
while not re.search('[A-Z].*[a-z].*[0-9].*[\W_]',a*4):
 a=''.join(random.sample(list(map(chr,range(33,127)))*15,15))
print(a)

Một dòng mới và một lần thụt lề một lần nữa không được tính. Ngoài một số cú pháp cụ thể của Python-3, đây là giải pháp tương tự như đối với Python 2.

JavaScript (161)

a=[];for(i=33;i<127;)a.push(s=String.fromCharCode(i++));
while(!/[A-Z].*[a-z].*[0-9].*[\W_]/.test(s+s+s+s))
for(i=0,s="";i<15;++i)s+=a[Math.random()*94|0];alert(s)

Tôi đã thêm các dòng mới để dễ đọc, nhưng không tính chúng.

R (114)

s<-""
while(!grepl("[A-Z].*[a-z].*[0-9].*(\\W|_)",paste(rep(s,4),collapse="")))
 s<-intToUtf8(sample(33:126,15,T))
s

Linebreak và thụt vào bên trong vòng lặp được thêm nhưng không được tính. Nếu bạn cảm thấy thích nó, bạn có thể một lần nữa di chuyển nó sang một ;dòng riêng biệt.

C # ( 123 - 139 103 - 127 ký tự được nén):

Sử dụng một phương pháp khung hoàn toàn đầy đủ trong System.Web.dll:

class P
{
    static void Main()
    {
        Console.WriteLine(System.Web.Security.Membership.GeneratePassword(15, 1));
    }
}

Nén:

class P{static void Main()
{Console.WriteLine(System.Web.Security.Membership.GeneratePassword(15,1));}}

Thí dụ:

b+m2ae0K:{dz7:A

Hoặc, lấy giá trị của tham số thứ hai ( int numberOfNonAlphanumericCharacters) từ dòng lệnh:

class P
{
    static void Main(string[] a)
    {
        Console.WriteLine(System.Web.Security.Membership.GeneratePassword(15, int.Parse(a[0])));
    }
}

R (301 322 ký tự)

Sửa lỗi quên kiểm tra chữ số.

a='abcdefghijklmnopqrstuvwxyz';
f=as.factor(strsplit(paste(a,toupper(a),
    sep="0123456789`~!@#$%^&*()_+-={}|[]\\:\";'<>?,./"),"")[[1]]);
g=gsub("(.):","\\1",levels(q:q:q:q:q:q:q:q:q:q:q:q:q:q:q));
repeat{p=g[runif(1)*length(g)]; 
    if(grepl("[A-Z]",p)&&grepl("[a-z]",p)&&grepl("[0-9]",p)&&grepl("[^A-Za-z0-9]",p))break;};
print(p);

(khoảng trắng được thêm vào cho rõ ràng).

Tạo tất cả các hoán vị 15 ký tự có thể có của 94 ký tự. Sau đó chọn ngẫu nhiên một cho đến khi nó phù hợp với tiêu chí.

Phép thuật đang q:qhoạt động, tạo ra một kiểu dữ liệu nhân tố mới, đó là sự tương tác của tất cả các yếu tố trong qdanh sách đầu tiên với tất cả các yếu tố trong danh sách thứ hai , với mọi sự kết hợp có thể có của hai danh sách đó được đưa vào danh sách " cấp độ "của yếu tố đó. Tương tác 15 bản sao của danh sách các ký tự được phép và bạn có được (94 ^ 15) mức có thể.

Xin đừng thử điều này ở nhà. Mã mất vài giây để tìm ra tất cả các hoán vị ba ký tự, tôi thực sự không thể tưởng tượng được sẽ mất bao lâu để tìm ra tất cả các hoán vị 15 ký tự, nếu máy tính của bạn không hết bộ nhớ trong trong khi đó Khi tôi chạy tập lệnh đã hoàn thành (mật khẩu ba ký tự) để kiểm tra nó, mật khẩu đầu tiên mà nó nhổ ra là "oO =", tôi nghĩ về tổng hợp phản ứng mà bạn nên có đối với mã này.

Toán học 170

r=RandomSample;f[i_]:=(FromCharacterCode/@Range@@i);
{t,A,a,n}=f/@{{33,126},{65,90},{97,122},{48,57}};
s=Complement[t,A,a,n];
""<>r[Join[RandomChoice/@{A,a,n,s},r[t,11]],15]

Ví dụ

"<]} PG3 / e? 3 + Z ~ Oz"
"X / 8jwe @ f (_x5P: ="
"2wz2VQhtJC? * R7 ^"

Con trăn 2.7 (182)

import random as r,string as s
z=r.sample
j=list(z(s.ascii_lowercase,12)+z(s.ascii_uppercase,1)+z(s.digits,1)+z('`~!@#$%^&*()_+-={}|[]\\:";\'<>?,./',1))
r.shuffle(j)
print ''.join(j)

Golf (60)

Kể từ khi có nghĩa vụ. golfscript bị thiếu và là một noob tôi vẫn cần luyện tập :)

[48 10{rand}:r~+65 26r+97 26r+33 15r+11,{;32 96r+}%~]{r}$''+

Nó chỉ xây dựng một mảng với 4 ký tự ngẫu nhiên cần thiết + 11 và sắp xếp theo thứ tự ngẫu nhiên.

JavaScript 256 240 233 225

R=Math.random;a=b=>b[b.length*R()|0];for(x=[a(l="abcdefghijklmnopqrstuvwxyz"),a(u=l.toUpperCase()),a(n="0123456789"),a(s="`~!@#$%^&*()_+-={}|[]\\:\";'<>?,./")];15>x.length;x.push(a(l+u+n+s)));alert(x.sort(y=>.5-R()).join(""))

Sử dụng quy tắc trong đó:

function(x){return x*x}có thể được viết lại như function(x)x*x. Chỉ dường như làm việc cho các chức năng trả về một giá trị.

Phiên bản kế tiếp, giảm x.sort(function().5-R())tớix.sort(y=>.5-R())

Lặp lại tiếp theo, giảm hơn nữa với ký hiệu mũi tên béo, đáng buồn là chỉ hoạt động cho Firefox 22 trở lên.

JavaScript (nén 269 ký tự)

Để rõ ràng, đây là mã trước khi tôi nén nó xuống JS-Fiddle của nó :

var lowerLetters = "abcdefghijklmnopqrstuvwxyz";
var upperLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
var numbers = "0123456789";
var symbols = "`~!@#$%^&*()_+-={}|[]\\:\";'<>?,./";
var allCharacters = lowerLetters + upperLetters + numbers + symbols;

String.prototype.randomChar = function() {
    return this[Math.floor(this.length * Math.random())];
}

var minLength = 15;
var result = [];

// Start off by picking one random character from each group
result.push(lowerLetters.randomChar());
result.push(upperLetters.randomChar());
result.push(numbers.randomChar());
result.push(symbols.randomChar());
// Next, pick a random character from all groups until the desired length is met
while(result.length < minLength) {
    result.push(allCharacters.randomChar());
}
result.shuffle(); // Finally, shuffle the items (custom function; doesn't actually exist in JavaScript, but is very easy to add) -> http://stackoverflow.com/questions/2450954/how-to-randomize-shuffle-a-javascript-array
result.join("");

Ở đây, nó được nén xuống còn 269 ký tự ( JS-Fiddle của nó ):

l="abcdefghijklmnopqrstuvwxyz";
u=l.toUpperCase();
n="0123456789";
s="`~!@#$%^&*()_+-={}|[]\\:\";'<>?,./";
R=Math.random;

function r(t){
    return t[~~(t.length*R())]
}

for(x=[r(l),r(u),r(n),r(s)];x.length<15;x.push(r(l+u+n+s)));
x.sort(function(){return .5-R()});
alert(x.join(""));

Clojure (63):

(->> (map char (range 33 127)) (shuffle) (take 15) (apply str))

Nhưng cần phải được cải thiện để đảm bảo chứa ít nhất 1 ký tự của mỗi loại (Trên, Dưới, Chữ số, Biểu tượng).

Trong máy chủ sql

declare @a nvarchar(28)
set @a='abcdefghijklmnopqrstuvwxyz'
declare @b nvarchar(max)
set @b='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
declare @c nvarchar(max)
set @c='0123456789'
declare @d nvarchar(max)
set @d='~!@#$%^&*()_+-={}|[]\:";<>?,./'

select left(substring(@a,cast(rand()*10 as int),3)+substring(@b,cast(rand()*10 as int),6)+substring(@c,cast(rand()*10 as int),3)+substring(@d,cast(rand()*10 as int),5),15)

Xem nó trong hành động - 1

xem nó trong hành động - 2

SÀI GÒN (191)

%macro c(p);compress(p,,"&p")ne''%mend;data x;length p$15;do x=1by 1;do t=1to 15;substr(p,t,1)=byte(ranuni(7)*94+33);end;if %c(kd)and %c(kl)and %c(ku)and %c(ad)then do;put p;stop;end;end;run;

*TQP,(f=h10*)S=

Nhận xét / thụt lề:

%macro c(p); /*compress removes or keeps certain classes of characters*/
  compress(p,,"&p")ne''
%mend;
data x;
length p$15;
do x=1by 1;
    do t=1to 15;
        substr(p,t,1)=byte(ranuni(7)*94+33); /*give it a 33-126, byte discards the noninteger portion rounding down*/
    end;
    if %c(kd)and %c(kl)and %c(ku)and %c(ad)then do; /*k=keep d=digit l/u=lower/upper ad=remove digits and alphas*/
        put p;
        stop;  /*met our requirement, head home*/
    end;
end;
run;

PowerShell: 119

Mã số

for(;!($x-cmatch'.*(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[!-/:-@[-`{-~]).*')){$x='';1..15|%{$x+=[char](33..126|random)}}$x

Không chơi gôn và nhận xét

# Start for loop definition.
for(
    # Skip variable initialization, start definition of run condition.
    ;
    # Loop runs if $x does not meet complexity requirements.
    # Length requirement is not tested here because it is enforced by the generator later.
    # Much thanks to @VasiliSyrakis for the RegEx help.
    !($x-cmatch'.*(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[!-/:-@[-`{-~]).*')
)
{
    # Reset $x in case the script block has already run.
    $x='';
    # Use ForEach-Object, via the % alias, to run a loop 15 times.
    1..15|%{
        # Append a random ASCII character from 33-126 to $x.
        # Note: Use get-random instead of random for faster performance.
        $x+=[char](33..126|random)
    }
}
# Display $x.
$x
# Variable cleanup - not included in golfed code.
rv x

Con trăn 2.7 (149)

from random import*
''.join(map(lambda x:chr(randint(*(x[1]or(32,126)))),sorted(map(None,sample(range(15),15),((48,57),(65,90),(97,122),(33,47))))))

Viết ra một cách dễ đọc hơn (và không thể thực thi);

from random import *
''.join(                                          # Concatenate characters to string
  map(                                            # Map all characters using below lambda
    lambda x:chr(randint(*(x[1] or (32, 126)))),  # Map a single range to a random character
                                                  # within a specific range if supplied,
                                                  # otherwise the default "all" range.
    sorted(                                       # After distributing ranges, sort
      map(None,                                   # zip_longest alternative, distributes the
                                                  # required ranges over 4 random positions
        sample(range(15), 15),                    # 0-14 in random order
        ((48, 57), (65, 90), (97, 122), (33, 47)) # The 4 required ranges
      )
    )
  )
)

Khá thẳng về phía trước và đáng ngạc nhiên là không lâu hơn một phiên bản "tạo, thử lại trên trận đấu thất bại".

PSQL (189)

Cảm giác như PSQL hơi dài dòng ... :)

SELECT ARRAY_TO_STRING(ARRAY_AGG(CHR((TRUNC((b-a)*RANDOM()+a))::int)ORDER BY RANDOM()),'')FROM(SELECT 32 a,127 b FROM generate_series(1,11)UNION ALL VALUES(48,58),(65,91),(97,123),(33,48))a

Bản demo SQLfiddle .

PHP, 235 225

Kịch bản lệnh này xáo trộn các ký tự xung quanh và sau đó được kiểm tra qua RegEx để đảm bảo mật khẩu mạnh (hoặc được tạo lại).

<?php
while(!preg_match('/^(?=.*[A-Z])(?=.*[^A-Za-z])(?=.*[0-9])(?=.*[a-z]).{15}$/',$p)){ $p = substr(str_shuffle('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789`~!@#$%^&*()_+-={}|[]\:";\'<>?,./'),0,15); }
echo $p;

Javascript (209)

r=Math.random;function t(x,y){return String.fromCharCode(Math.floor(y*r()+x))};x=[t(33,14),t(48,10),t(65,26),t(97,26)];for(i=0;i<11;i++)x.push(t(32,95));console.log(x.sort(function(){return r()-0.5}).join(''))

Bán vô chủ;

// Return a character in the range [x,x+y)
function t(x,y) { return String.fromCharCode(Math.floor(y*Math.random()+x)) }
// Prefill required ranges
x=[ t(33,14), t(48,10), t(65,26), t(97,26)]
// Push 11 totally random (valid) characters
for(i=0; i<11; i++)
  x.push(t(32,95))
// Shuffle and output as string
console.log(x.sort(function(){return Math.random()-0.5})
             .join(''))

Perl, 92

Không ngắn gọn như câu trả lời của Ruby, nhưng tôi chắc chắn rằng một trình hướng dẫn Perl có thể làm cho nó ngắn hơn nữa ... Tôi không quá hài lòng với tất cả các m//s ở cuối, nhưng dường như hoạt động và sẽ đáp ứng các điều kiện để cuối cùng tạo ra mọi hoán vị.

do{$_=join"",map{(map{chr}33..127)[rand 94]}0..14}while!(/[A-Z]/&/[a-z]/&/\d/&/[\W_]/);print

Sử dụng mẫu:

perl -e 'do{$_=join"",map{(map{chr}33..127)[rand 94]}0..14}while!(/[A-Z]/&/[a-z]/&/\d/&/[\W_]/);print'

Chỉnh sửa để xác nhận sửa chữa và thay đổi [[:punct:]]để [\W_]sau MvGs ý kiến.

Java 7 ( 270 234 ký tự)

Tiền đề được sử dụng tương tự bởi @assylias với java 8 (tạo mật khẩu ngẫu nhiên cho đến khi mật khẩu hợp lệ). Tuy nhiên, thay vì sử dụng lambdas, mật khẩu được tạo bằng cách lặp lại một mảng char và được xác thực bằng cách khớp với biểu thức chính quy.

class A {
  public static void main(String [] a) {
    byte[] b = new byte[15];
    String s;
    do {
      new java.util.Random().nextBytes(b);
      s = new String(b);
    } while(!s.matches("(?=.*?[a-z])(?=.*?[A-Z])(?=.*?\\d)(?=.*?[!-/:-@\\[-`]).*"));
    System.out.println(s);
  }
}

Mã rút gọn:

class A {public static void main(String[] a){byte[] b=new byte[15];String s;do{new java.util.Random().nextBytes(b);s=new String(b);}while(!s.matches("(?=.*?[a-z])(?=.*?[A-Z])(?=.*?\\d)(?=.*?[!-/:-@\\[-`]).*"));System.out.println(s);}}

Quyền hạn

Một phiên bản lót (143 byte)

sal g random;1..11|%{$P+=[char](33..126|g)};(65..90|g),(97..122|g),(48..57|g),(33..47+58..64+123..126|g)|%{$P=$P.insert((1..11|g),[char]$_)};$P

Phiên bản nhỏ (146 byte)

sal g random
1..11|%{$P+=[char](33..126|g)}
(65..90|g),(97..122|g),(48..57|g),(33..47+58..64+123..126|g)|%{$P=$P.insert((1..11|g),[char]$_)}
$P

Phiên bản có thể đọc được (860 byte)

function pwgen {

    # Fulfill Upper,Lower,Digit,Symbol requirement by predefining ASCII ranges for each
    # These will be added into the string beginning at line 24

    [array[]]$symbolrange = (33..47),(58..64),(123..126)

    [char]$upper = (get-random (65..90))
    [char]$lower = (get-random (97..122))
    [char]$digit = (get-random (48..57))
    [char]$symbol = $symbolrange | get-random

    [char[]]$requirement = $upper + $lower + $digit + $symbol

    # Create the first 11 characters using any ASCII character between 32 - 126

    foreach ($number in (1..11)) {
        [string]$pass += [char](get-random (33..126))
    }

    # Insert each requirement character at a random position in the string

    foreach ($char in $requirement) {
        [string]$pass = $pass.insert((Get-Random (1..11)),$char)
    }

    return $pass
}

Tín dụng cho Iszi cho các mẹo khác nhau để rút ngắn mã.

Yếu tố, 196 ký tự

Thuật toán tương tự như MvG và moose's. Nó không phải là ngắn nhất nhưng phải đáp ứng tất cả các tiêu chí (hiện tại) trong câu hỏi:

USING: io kernel math pcre random sequences sequences.repeating ;
[ 15 94 random-integers [ 33 + ] "" map-as dup 60 cycle
"[A-Z].*[a-z].*[0-9].*[\\W_]" findall { } = not ] [ drop ] until print

C - 154 ký tự

char p[16],c,f,w;main(){srand(time());while(f^15){c=p[15]=f=0;while(c^15){w=33+rand()%94;f|=w
>96&&w<123?1:w>47&&w<59?2:w>64&&w<91?4:8;p[c++]=w;}}puts(p);}

Làm thế nào để tôi ghét srand()? Hãy để tôi tính cách.

Haskell, 192

import System.Random
main=getStdGen>>= \g->(print.(take 15))$until((\x->all(any(`elem`x))[['a'..'z'],['A'..'Z'],['0'..'9'],['!'..'/']++":;<=>?@[\\]^_`{|}~"]).(take 15))tail$randomRs('"','~')g

Chuỗi in có các trích dẫn xung quanh nó và thoát khỏi dấu gạch chéo ngược và ký tự trích dẫn; nếu điều đó không được chấp nhận, printcó thể được thay thế bằngputStrLn 3 byte nữa. Đây là một phiên bản dễ đọc hơn:

import System.Random

main = do
    g <- getStdGen
    let chars = randomRs ('"', '~') g
    let password = take 15 $ until (hasChars.(take 15)) tail chars
    print password

hasChars :: String -> Bool
hasChars x = all (any (`elem` x)) $
    [ ['a'..'z']
    , ['A'..'Z']
    , ['0'..'9']
    , "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~"
    ]

Nó khá đơn giản, nó chỉ tạo ra một vô hạn / danh sách lười biếng của các ký tự ASCII ngẫu nhiên trong phạm vi '!'đến '~', sau đó tung ra phần tử đầu tiên cho đến khi 15 ký tự đầu tiên có ít nhất một nhân vật từ mỗi chuỗi ký tự cần thiết.

VBA Excel, 209 byte

For i = 1 To 15
x = x + Chr(Int(90 * Rnd + 33))
Next
p = "^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*(_|[^\w])).+$"
With New RegExp
.Pattern = p
Set m = .Execute(x)
If m.Count = 0 Then
MsgBox "redo"
Else
MsgBox x
End If
End With

Tạo ngẫu nhiên 15 ký tự ASCII để tất cả các kết hợp có thể có thể. Sau đó, sử dụng một mẫu biểu thức chính quy để kiểm tra xem nó có chứa ít nhất một trong mỗi tiêu chí không.

Nếu có thì mật khẩu sẽ được hiển thị, nếu không "làm lại" sẽ được hiển thị.

Tín dụng cho Bart Kiers cho mẫu Biểu thức thông thường: https://stackoverflow.com/questions/1559751/regex-to-make-sure-that-the-opes-contains-at-least-one-lower-case-char- phía trên

AutoHotkey 352

global o:={}
loop 4
o[c()]:=o(A_index-1)
loop 11
o[c()]:=o(m(r(),4))
loop 15
s.=o[A_index-1]
msgbox % s
r(){
Random,z
return z
}
m(z,r){
return mod(z,r)
}
c(){
while o[t:=m(r(),15)]!=""
j++
return t
}
o(f){
r0:=48,l0:=10,r1:=97,l1:=l2:=26,r2:=65
r := chr(r%f%+m(r(),l%f%))
if f=3
r:=Substr("``~!@#$%^&*()_+-={}|[]\:"";'<>?,./",m(r(),32)+1,1)
return r
}

Sử dụng - Chỉ cần chạy tập lệnh

Con trăn (121 ký tự)

Sử dụng thực tế là bạn có thể nhân các danh sách trong Python [1,2,3] * 2 cho [1,2,3,1,2,3]. Nhập khẩu ngẫu nhiên. Các số trong danh sách nhân với ba là biên giữa các phạm vi trong bảng ascii cho các ký tự cần thiết, ví dụ: ánh xạ [65, 90] thành chữ in hoa.

print "".join([random.choice([chr(i) for i in range(z[0],z[1])]) for z in [[33,48],[48,58],[58,65],[65,90],[90,123]]* 3])

PHP 5.5 (230 byte)

echo preg_replace_callback('/./', function ($a)
{
  return chr([rand(33, 126), rand(48, 57), rand(65, 90), rand(97, 122), ord(str_shuffle('`~!@#$%^&*()_+-={}|[]\:";\'<>?,./')[0])][$a[0]]);
}
, str_shuffle(str_pad('1234', 15, 0)));

Hoặc trên một dòng (211 byte)

echo preg_replace_callback('/./',function($a){return chr([rand(33,126),rand(48,57),rand(65,90),rand(97,122),ord(str_shuffle('`~!@#$%^&*()_+-={}|[]\:";\'<>?,./')[0])][$a[0]]);},str_shuffle(str_pad('1234',15,0)));