Server domain mengharuskan semua karyawan memiliki kata sandi acak yang kuat dan sesuai dengan aturan berikut:

• Panjangnya tepat 15 karakter.
• Hanya karakter tipe keyboard (seperti yang ditunjukkan pada tipe kode di bawah). Mengajarkan penjualan untuk menggunakan kode ALT + NUMPAD tidak diizinkan.
• Setidaknya 1 huruf kecil: abcdefghijklmnopqrstuvwxyz
• Setidaknya 1 huruf besar: ABCDEFGHIJKLMNOPQRSTUVWXYZ
• Setidaknya 1 digit angka: 0123456789
• Setidaknya 1 simbol: `~!@#$%^&*()_+-={}|[]\:";'<>?,./

Untuk tujuan ini, TI telah menugaskan dan akan mendistribusikan Generator Kata Sandi Acak kepada semua karyawan. Semua karyawan akan diminta untuk menggunakan Penghasil Kata Sandi Acak. Persyaratan untuk Pembuat Kata Sandi Acak adalah, di samping pembatasan kata sandi di atas:

• Itu harus dapat menghasilkan semua permutasi dari semua karakter yang diijinkan.
• Itu harus menampilkan kata sandi yang dihasilkan di layar.
• Kode ini harus sekecil mungkin (dalam byte).

Silakan kirimkan solusi yang Anda usulkan dalam minggu depan.

Mathematica (18)

Biarkan saya sedikit curang

= 15char ASCII pwd

&(^F7yP8k:*1P<t

PS tidak aman :)

Ruby, 74 69 byte

Contoh saja secara acak dari rentang ascii 33 - 126 sampai semua kelas karakter hadir:

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

Ruby, 39 byte

Menggunakan penemuan pintar moose:

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

Perhatikan bahwa aturan berubah setelah saya pertama kali memposting ini. Pada saat itu kedua entri sebelumnya diterapkan pada aturan. Saya juga ingin menunjukkan bahwa aturannya masih belum didefinisikan dengan baik:

(..) semua permutasi dari semua karakter yang diizinkan

"Permutasi". Tidak ada permutasi dari karakter yang diperbolehkan yang sesuai dengan aturan lainnya, karena permutasi dari set karakter yang diijinkan adalah sepanjang set karakter yang diijinkan itu sendiri (sementara password seharusnya sepanjang 15 karakter). Dan tidak ada pengulangan dalam permutasi. Namun entri pertama saya masih lebih "acak" daripada banyak jawaban baik lainnya yang telah di-upgrade-kan di sini.

Namun demikian, di sini Anda memilikinya. Mengizinkan pengulangan karakter dan garis bawah:

Ruby, 77 byte

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

Saya juga menggunakan putsbukannya yang pini karena pmencetak string yang terlampir dalam "tanda kutip" dan beberapa karakter lolos dengan backslash.

Ruby, 70 byte

Seperti yang ditunjukkan Ventero, ~dapat dilewati di depan regex, dan printdapat menggantikannya puts$_. Tetapi dengan output yang jelek ini menyebabkan Anda mungkin juga mencetak semua kata sandi yang ditolak, meremasnya menjadi satu-liner:

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

Penjelasan

Seperti yang diminta. $_adalah variabel semi-magis yang berisi baris terakhir yang dibaca dari input - jadi Anda tidak selalu perlu menyimpannya, seperti ini . Namun di sini kita menggunakannya karena properti lain, yaitu bahwa ~operator menerapkan regex langsung ke sana, trik yang pertama kali saya pelajari dengan chron . Saya mengganti penggunaan all, tetapi seharusnya cukup mudah dimengerti jika Anda mendapatkan sisanya ( lihat dokumen ).

Java 8 - 354 329 319 275 267 karakter

Hanya untuk bersenang-senang, menggunakan lambdas dengan Java 8 - setiap output yang mungkin memiliki probabilitas yang sama ditemukan.

Ini menggunakan fakta bahwa karakter yang diizinkan memiliki kode ascii berturut-turut, dari 33 hingga 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);
    }
}

Output sampel:

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

Program terkompresi:

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 karakter): Hasilkan dan ganti

Ide

1. Pertama buat daftar dengan 15 simbol yang diizinkan
2. Ganti posisi acak rdengan angka acak
3. Ganti posisi acak s, dengan s != r, dengan huruf besar
4. Sama untuk huruf kecil dan simbol seperti pada 2 dan 3.

Kode

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 karakter): Hasilkan dan centang

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)

• Terima kasih kepada MvG yang memberi tahu saya itu \udan \ltidak ada di Python regex.
• Terima kasih kepada grc yang mengatakan kepada saya bahwa random.sampletanpa penggantian, berarti untuk mendapatkan setiap kata sandi yang dimungkinkan kami perlu pengambilan sampel dengan penggantian.

Menggunakan cacat dalam deskripsi masalah

Saat ini, deskripsi masalah tidak menuntut setiap simbol / digit muncul dengan probabilitas yang sama. Dengan solusi berikut, Anda tidak dapat membuat asumsi tentang simbol dan / atau posisi tunggal. Tetapi Anda dapat melakukannya dengan banyak hal.

Python 2.X + 3.X (62 karakter)

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

Terima kasih kepada daniero untuk ide menggunakan sampel.

Bash on * 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

Agar berfungsi dengan benar, $atidak harus diatur ke kata sandi yang valid tetapi tidak acak di muka. Jika Anda ingin memasukkan a=dan garis memecah di depan, itu tiga karakter lagi tetapi memungkinkan Anda untuk menjalankannya berulang kali. Anda jelas dapat juga mengganti semua baris baru dengan ;sehingga Anda memiliki satu-baris yang dapat Anda jalankan sesering mungkin.

Selain itu, Anda harus menetapkan LC_ALL=Catau tidak menyetel variabel lingkungan spesifik-lokal apa pun ( LANGdan LC_CTYPEkhususnya), karena rentang karakter bergantung pada urutan kolasi yang sama dengan urutan ascii.

/dev/urandomadalah sumber byte acak. !-~adalah rentang semua karakter yang diizinkan, sebagaimana ditentukan dalam pertanyaan. tr -dcmenghapus semua karakter yang tidak tercantum dalam argumen berikutnya. headmengambil 15 dari karakter yang tersisa. grepmemeriksa apakah masing-masing jenis yang diperlukan memang terjadi setidaknya satu kali. Inputnya terdiri dari empat salinan kandidat, sehingga urutan simbol tidak menjadi masalah, karenanya semua kata sandi yang memungkinkan berpeluang terpilih. Untuk -qgrep menekan output.

Untuk alasan yang tidak diketahui, /dev/randomalih-alih /dev/urandommembutuhkan waktu lama. Sepertinya entropi cepat habis. Jika Anda cdke dalam /dev, Anda dapat menghindari beberapa byte lagi, tapi yang terasa agak seperti kecurangan.

Python 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

Untuk membuat kode dapat dibaca, saya menambahkan baris baru dan lekukan setelah loop yang tidak perlu dan yang saya tidak hitung.

Ini pada dasarnya ide yang sama seperti di versi bash. Sumber acak di sini adalah random.sample, yang tidak akan mengulangi elemen. Untuk mengatasi fakta ini, kami menggunakan 15 salinan dari daftar surat yang diizinkan. Dengan begitu, setiap kombinasi masih dapat terjadi, meskipun yang dengan huruf berulang akan lebih jarang terjadi. Tapi saya memutuskan untuk mempertimbangkan ini sebagai fitur, bukan bug, karena pertanyaannya tidak memerlukan probabilitas yang sama untuk semua permutasi, hanya kemungkinan.

Python 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)

Satu baris baru dan satu indentasi lagi tidak dihitung. Terlepas dari beberapa sintaksis Python-3 khusus ini adalah solusi yang sama seperti untuk 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)

Saya menambahkan baris baru untuk keterbacaan, tetapi tidak menghitungnya.

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 dan lekukan di dalam loop ditambahkan tetapi tidak dihitung. Jika Anda menginginkannya, Anda dapat memindahkan ini lagi ke satu ;baris terpisah.

C # ( 123 - 139 103 - 127 karakter dipadatkan):

Menggunakan metode kerangka kerja yang memadai di System.Web.dll:

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

Kompak:

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

Contoh:

b+m2ae0K:{dz7:A

Atau, ambil nilai parameter kedua ( int numberOfNonAlphanumericCharacters) dari baris perintah:

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

R (301 322 karakter)

Koreksi lupa memeriksa digit.

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);

(spasi ditambahkan hanya untuk kejelasan).

Menghasilkan semua kemungkinan permutasi 15 karakter dari 94 karakter. Kemudian secara acak memilih satu sampai cocok dengan kriteria.

Keajaiban ada dalam q:qoperasi, yang menghasilkan tipe data faktor baru yaitu interaksi dari semua faktor dalam qdaftar pertama dengan semua faktor dalam daftar kedua , dengan setiap kemungkinan kombinasi dari kedua daftar tersebut dimasukkan dalam daftar " tingkat "faktor itu. Berinteraksi 15 salinan daftar karakter yang diizinkan, dan Anda mendapatkan (94 ^ 15) tingkat yang mungkin.

Tolong jangan coba ini di rumah. Kode membutuhkan beberapa detik untuk mengetahui semua permutasi tiga karakter, saya benar-benar tidak bisa membayangkan berapa lama untuk mengetahui semua permutasi 15 karakter, jika komputer Anda tidak hanya kehabisan memori di sementara itu. Ketika saya menjalankan skrip (kata sandi tiga karakter) yang sudah selesai untuk memeriksanya, kata sandi pertama yang dilontarkannya adalah "oO =", yang saya pikirkan tentang jumlah reaksi yang harus Anda lakukan terhadap kode ini.

Mathematica 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]

Contohnya

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

Python 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)

Golfscript (60)

Karena obl. golfscript hilang dan sebagai noob saya tetap membutuhkan latihan :)

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

Itu hanya membangun sebuah array dengan 4 diperlukan + 11 karakter acak dan mengurutkan dalam urutan acak.

JavaScript 258 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(""))

Menggunakan aturan di mana:

function(x){return x*x}dapat ditulis ulang sebagai function(x)x*x. Tampaknya hanya berfungsi untuk fungsi yang mengembalikan nilai.

Iterasi berikutnya, dikurangi x.sort(function().5-R())menjadix.sort(y=>.5-R())

Iterasi berikutnya, dikurangi lebih lanjut dengan notasi panah gemuk, yang sayangnya hanya berfungsi untuk Firefox 22 dan di atasnya.

JavaScript (269 karakter dipadatkan)

Untuk lebih jelasnya, ini adalah kode sebelum saya memadatkannya ke JS-Fiddle :

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("");

Ini dia dipadatkan menjadi 269 karakter ( JS-Fiddle ):

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))

Tetapi perlu ditingkatkan untuk memastikan bahwa mengandung setidaknya 1 karakter dari setiap kategori (Atas, Bawah, Digit, Simbol).

Di sql-server

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)

Lihat dalam aksi - 1

melihatnya dalam Aksi - 2

SAS (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=

Berkomentar / indentasi:

%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

Kode Gofled

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

Tidak bermain golf dan Berkomentar

# 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

Python 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))))))

Ditulis dengan cara yang lebih mudah dibaca (dan tidak dapat dieksekusi);

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
      )
    )
  )
)

Cukup lurus ke depan dan secara mengejutkan tidak lebih lama dari versi "menghasilkan, coba lagi pada pertandingan gagal".

PSQL (189)

Terasa seperti PSQL agak verbose ... :)

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

Demo SQLfiddle .

PHP, 235 225

Script ini mengacak karakter di sekitar dan kemudian diperiksa melalui RegEx untuk memastikan kata sandi kuat (atau dibuat ulang).

<?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(''))

Semi-ungolfed;

// 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

Tidak sesingkat jawaban Ruby, tapi saya yakin seorang penyihir Perl dapat membuat ini lebih pendek ... Saya tidak terlalu senang dengan semua m//s pada akhirnya, tetapi tampaknya bekerja dan harus memenuhi persyaratan untuk akhirnya menghasilkan semua permutasi.

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

Penggunaan sampel:

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

Diedit untuk memperbaiki validasi dan berubah [[:punct:]]menjadi [\W_]setelah komentar MvG.

Java 7 ( 270 234 karakter)

Premisnya sama dengan yang digunakan oleh @assylias dengan java 8 (menghasilkan kata sandi acak hingga kata sandi yang valid). Namun, alih-alih menggunakan lambdas, kata sandi dihasilkan oleh iterasi array char dan divalidasi dengan mencocokkan regex.

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);
  }
}

Kode Minimum:

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);}}

Powershell

Versi One Liner (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

Versi mini (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

Versi yang dapat dibaca (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
}

Kredit ke Iszi untuk berbagai tips untuk mempersingkat kode.

Faktor, 196 karakter

Algoritma yang sama seperti MvG dan moose. Ini bukan yang terpendek tetapi harus memenuhi semua kriteria (saat ini) dalam pertanyaan:

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 karakter

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);}

Bagaimana saya membenci srand()? Biarkan saya menghitung cara.

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

String yang dicetak memiliki tanda kutip di sekitarnya dan lolos dari garis miring terbalik dan karakter kutipan; jika itu tidak printdapat diterima, dapat diganti dengan putStrLnuntuk 3 byte lebih. Ini versi yang lebih mudah dibaca:

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']
    , "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~"
    ]

Ini cukup mudah, hanya menciptakan infinite / daftar malas karakter ASCII acak dalam kisaran '!'untuk '~', kemudian melemparkan keluar elemen pertama sampai 15 pertama karakter memiliki setidaknya satu karakter dari masing-masing string karakter yang dibutuhkan.

Excel VBA, 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

Secara acak menghasilkan 15 karakter ASCII sehingga semua kemungkinan kombinasi dimungkinkan. Kemudian gunakan pola ekspresi reguler untuk memeriksa apakah mengandung setidaknya satu dari setiap kriteria.

Jika ya maka kata sandi ditampilkan, jika tidak "redo" ditampilkan.

Kredit ke Bart Kiers untuk pola Ekspresi Reguler: https://stackoverflow.com/questions/1559751/regex-to-make-sure-that-the-string-contains-at-least-one-lower-case-char- atas

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
}

Menggunakan - Cukup jalankan skrip

Python (121 karakter)

Manfaatkan fakta bahwa Anda dapat mengalikan daftar dengan Python [1,2,3] * 2 memberi [1,2,3,1,2,3]. Impor acak. Angka dalam daftar dikalikan dengan tiga adalah batas antara rentang dalam tabel ascii untuk karakter yang diperlukan, misalnya peta [65, 90] ke huruf besar.

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)));

Atau dalam satu baris (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)));