Вступ

Мабуть, це питання було задано тут, і воно, на жаль, закрилося. Я подумав, що було б гарною ідеєю спробувати ще раз, але все зроблено правильно.

XKCD розглядає, як ми навчені користуватися "важко запам’ятовуваними паролями", думаючи, що це безпечно, але натомість для роботи комп'ютера знадобиться 3 дні. З іншого боку, запам'ятовування 4-5 слів викликає введення пароля Куана, і легко запам'ятовується. Божевільно, як це працює, так?

Виклик

Завдання сьогодні - створити 5 паролів за допомогою слів. 4 слова на пароль і мінімум 4 букви на слово, але не максимум. Інтропія пароля Куана потрібно буде розраховувати для кожного пароля, але примусовий мінімум не встановлюватиметься.

Що таке Інтропія пароля Куана?

Kuan's Password Intropy - це показник того, наскільки непередбачуваний пароль, згідно Куану. Існує простий розрахунок: Е = увійти ₂ (R) * L . E - це введення пароля Куана, R - діапазон доступних символів і L - довжина пароля.

Діапазон доступних символів сам по собі пояснює. Це діапазон символів, який може мати пароль, у цьому випадку це верхній і нижній регістр. Оскільки в алфавіті є 26 символів, 26 x 2 = 52 символи у всьому діапазоні пароля.

Довжина пароля також пояснюється сама собою. Це загальна довжина пароля після створення.

Обмеження

• Немає даних.
• Слово не може знову з’явитися в одному паролі.
• У паролі не допускаються символи чи цифри.
• 4 слова на пароль, але примусовий мінімум 4 літери на слово.
• Немає пробілів між словами.
• Не можна генерувати один і той же пароль знову і знову.
• Кожне слово має бути використано з великої літери у паролі.
• Вихід повинен бути зрозумілим для людини і повинен бути розташований між собою. Необхідно також включити введення Куана в паролі з використанням пароля, використовуючи вищевказане рівняння введення Куана.
• Словник . Ви повинні використовувати це, завантажити його як текстовий файл та інтегрувати відповідно. Це буде список, з якого ви захоплюєте слова. Ваш код повинен вважати його доступним.
• Це кодовий гольф , найкоротший виграш байтів.

Вихідні дані

TriedScarProgressPopulation 153.9
TryingPastOnesPutting 119.7
YearnGasesDeerGiven 108.3
DoubtFeetSomebodyCreature 142.5
LiquidSureDreamCatch 114.0

Пітон 2, 102 101 97 91 байт

from random import*
exec"x=''.join(x.title()for x in sample(f,4));print(x,57*len(x)/10);"*5

Приймає словник як список з назвою f.

Можна перевірити, зберігаючи файл як dict.txtі викликаючи

f = open('dict.txt').readlines()

PowerShell (3.0+), 77 байт

1..5|%{($p=-join($d|random -c 4|%{culture|% te*|% tot* $_}));57*$p.Length/10}

Спробуйте в Інтернеті!

Використання Jonathan Allan «s 57*len/10трюк.

$dмістить словник як масив слів. Якщо ви граєте вдома і хочете заповнити $d:

$d=-split(irm pastebin.com/raw/eMRSQ4u2)

Використання гольф-версії (Get-Culture).TextInfo.ToTitleCase()великої літери; Я не думаю, що в PowerShell існує коротший спосіб зробити це.

Решта досить просто, я думаю.

Посилання TIO має весь словник; вимкніть кеш-пам'ять і перейдіть на гайки!

Желе , 22 байти

Ẋḣ4ŒtFµL×57÷⁵⁸,K
çЀ5Y

Монадійне посилання зі списком списку символів, розібраним словником (як дозволено в чаті ).

Спробуйте в Інтернеті! (Клацніть "Аргументи", щоб приховати словник і зменшити необхідність прокрутки.)

Як?

Оскільки словник містить лише дійсні слова (лише 4символи чи більше [a-z]), не потрібно перевіряти цю умову.

Оскільки всі слова у словнику мають довжини, [4-8]можлива довжина пароля є [16,32], і можливі ентропії ніколи не будуть округлюватись по-іншому до одного десяткового знаку, ніж заміною log(52,2)на 5.7. Єдина проблема полягає в тому , що , використовуючи значення з плаваючою точкою 5.7дасть з плаваючою точкою помилок округлення для довжин 18, 26і 31. Однак множення на, 57а потім ділення за 10допомогою ×57÷⁵цього дозволяє уникнути цього (поки байт коротший, ніж друк повного значення точності з плаваючою точкою з використанням ×52l2¤).

çЀ5Y - Main link: list of list of characters (the parsed dictionary)
   5  - literal 5
 Ѐ   - map across the implicit range [1,2,3,4,5]:
ç     -   last link (1) as a dyad
    Y - join with newlines
      - implicit print

Ẋḣ4ŒtFµL×57÷⁵⁸,K - Link 1, get password and entropy: list of lists of characters, number
Ẋ                - shuffle the list of lists (shuffle all the words)
 ḣ4              - head to 4 (the first four words)
   Œt            - title case (make the first letter of each uppercase)
     F           - flatten into one list of characters
      µ          - monadic chain separation, call that p
       L         - length of p
         57      - 57
        ×        - multiply
            ⁵    - 10
           ÷     - divide -> entropy to 1 decimal place
             ⁸   - link's left argument, p
              ,  - pair -> [p, entropy]
               K - join with (a) space(s)

Рубі, 89 83 байти

d.select!{|w|w[3]}
5.times{p w=d.sample(4).map(&:capitalize)*'',5.700439718*w.size}

Передбачає, що паролі зберігаються у змінній d. Ви можете додати цей рядок перед кодом:

d=$<.map(&:chomp)

і зателефонуйте до сценарію, наприклад, такий:

$ ruby generate_passwords.rb < dictionary_file.txt

Вибірка зразка:

"MarginStarvedOnusInsulted"
142.51099295
"KitchenMiseryLurkJoints"
131.110113514
"InducesNotablePitfallsPrecede"
165.312751822
"FarmersAbortFutileWrapper"
142.51099295
"RoutesBishopGlowFaithful"
136.81055323200002

KitchenMiseryLurkJoints ... вау.

-6 байт від Ajedi32

Математика, 178 байт

t=1;l=Length;While[t<6,s=RandomChoice[Import["https://pastebin.com/raw/eMRSQ4u2"],4];c=Capitalize/@s;f=Flatten@Characters[c];Print[StringJoin[c]," ",Log[2,l@Union@f]*l@f//N];t++]

Спробуйте в Інтернеті

скопіюйте та вставте за допомогою ctrl-v і натисніть shift + enter, щоб запустити

Математика, 136 байт

припускаючи, що m - словник, це код

m=ImportString[Import["C:\a.txt"]]

.

t=1;l=Length;While[t<6,s=RandomChoice[m,4];c=Capitalize/@s;f=Flatten@Characters[c];Print[StringJoin[c]," ",Log[2,l@Union@f]*l@f//N];t++]

Bash ,66 65 байт

for w in `shuf -n4 -`;{((l+=${#w}));printf ${w^};};bc<<<$l*5.7004

Спробуйте в Інтернеті!

Словник отримує STDIN. Переміщує всі слова у словнику та виводить перші 4.

Для кожного слова додається його довжина в var l і повторюється слово з великої літери. Врешті-решт закликає bc зробити математику.

Рішення Awk, 112 байт, чотири паролі:

shuf -n16 -|xargs -n4|awk '{for(i=1;i<5;i++)printf toupper(substr($i,1,1))substr($i,2);print(length($0)-3)*5.7}'

(Це адаптація відповіді мармістів, але я не маю відповіді для коментаря)

Пітон, 88 86 байт

g={*f}
exec('x="".join(g.pop().title()for i in "a"*4);print(x,len(x)*5.700439718);'*5)

Використовуючи setнедетерміновану функцію, ви можете уникнути необхідності імпортувати будь-які бібліотеки випадковості.

Japt , 30 байт

5Ç[V=Uö4 ®g u +Zt1ìMm52 *Vl]¸

Спробуйте в Інтернеті!

JavaScript (ES6), 164 байти

d=>{for(i=5;i--;)console.log(p="....".replace(/./g,_=>(w=d.splice(Math.random()*d.length|0,1)[0])[0].toUpperCase()+w.slice(1)),(Math.log2(52)*p.length).toFixed(1))}

Припускає, що словник передається функції як масив.

Тест-фрагмент

Математика, 71 байт

Якщо припустити, що словник уже завантажений у масив, який називається d.

Table[{#,Log[2,52]StringLength[#]}&[""<>Capitalize@d~RandomSample~4],5]

Пояснення:

                                        Capitalize@d                    - Capitalize all the dictionary
                                                    ~RandomSample~4     - make an array with 4 values. By default values can not repeat.
                                    ""<>                                - Concatenate with empty string to turn array into single string.
      {#,Log[2,52]StringLength[#]}&[                               ]    - Put current string next to log(2,52) times length of current string
Table[                                                              ,5] - Repeat this 5 times.

ColdFusion 216 байт

p={};z=arrayLen(c);for(x=0;x<5;x++){pw="";r={};while(structCount(r)<4){n=RandRange(1,z);r.append({"#c[n]#":true});}for(w in structKeyList(r)){pw&=REReplace(w,"\b(\w)","\u\1","All");};p.append({"#pw#":57*len(pw)/10})}

Це працює в ColdFusion 11+ та Lucee 4.5+

Щоб запустити його: https://trycf.com/gist/ff14e2b27d66f28ff69ab90365361b12/acf11?theme=monokai

Посилання TryCF має менше гольфу-іш, але той самий код.

Я насправді не очікував відповіді на змагання з гольфу; Я просто хотів побачити, що знадобиться для завершення цього виклику в ColdFusion. Тим більше, що в цих відповідях мало КФ. :-) Після налаштування це було напрочуд коротше, ніж я очікував.

Моя перша спроба була трохи коротшою, поки я не згадав, що те саме слово не можна вживати більше одного разу. Навіть незважаючи на те, що рандомізатор не один раз обирає той самий індекс, я скидаю індекси в ключі структури, що запобігає дублюванню. Тоді я використовую цей список ключів, щоб побудувати свій остаточний рядок пароля. Я також використав математичний трюк, щоб знайти ентропію.

PHP , 136 129 байт

-7 байт, дякую Йорге

for(shuffle($a);$i++<5;){for($s='',$c=0;$c<4;)strlen($w=$a[$k++])<4?:$s.=ucfirst($w).!++$c;echo$s.' '.log(52, 2)*strlen($s)."
";}

Спробуйте в Інтернеті!

Python 3, 252 байти

Це моя перша в історії коду проблема з гольфом, яку я зробив! Я знаю, що тут є інші відповіді Python (які, мабуть, краще, ніж у мене), але це виглядало весело, і тому я хотів спробувати це в будь-якому випадку. Ось версія для гольфу:

import random, math
with open("d") as f: d=f.read()
l=d.split()
for a in range(5):
 u=[]
 p=""
 for b in range(4):
  w=random.choice([w for w in l if not w in u and len(w)>=4])
  u.append(w)
  w=w.title()
  p+=w
 print("%s %s"%(p,math.log2(52)*len(p)))

Я б опублікував Спробуйте це в Інтернеті! посилання, але це не підтримує кілька файлів. Отож ось посилання на repl.it: https://repl.it/InIl/0

Крім того, ось версія, що не має волі:

import random
import math
with open("d") as f:
    dictionary = f.read() #this is the dictionary text file, simply saved as "d" as to use as few bytes as possible
words = dictionary.split() #here we turn that dictionary string into a list
for a in range(5): #here we iterate through 5 passwords
    used_words = []
    password = ""
    for b in range(4): #here we iterate through the 4 words in each password
        word = ""
        word = random.choice([word for word in words if not word in used_words and len(word) >= 4]) #Thanks to blackadder1337 from #python on freenode IRC for helping me with this.
        used_words.append(word)
        word = word.title()
        password = password + word
    print("%s %s"%(password, math.log2(52) * len(password)))

Як я вже говорив, це мій перший кодовий гофлінг, тому я впевнений, що це можна було б значно покращити.

tcl, 137

Напевно, не переможець, але я думаю, що це може бути трохи більше гольфу.

time {set p "";time {set p [string totitle [lindex $d [expr int(rand()*[llength $d])]]]$p} 4;puts $p\ [expr 5.7004*[string length $p]]} 5

демонстрація - мета рядка 1 - лише ввести вміст словника до змінноїd

Вім, 87 натискань клавіш

qq:r!echo "$RANDOM"l<CR>D:w o|e w<CR>@"ev4bd:w|bp<CR>p0~wX~wX~wX~Y:.!wc -c<CR>A*5.7003<Esc>:.!bc<CR>PJq4@q

Припускає, що словник знаходиться у файлі з назвою w. Завжди використовуватиме 4 слова поспіль

Пояснення:

qq                       Start recording a macro named 'q'
:r!echo "$RANDOM"l<CR>   Append the result of the shell command `echo "$RANDOM"l`
D                        Delete what you just appended
:w o|                    Save the buffer to the file 'o' and ..
e w<CR>                  Open the file 'w'
@"                       Execute the text we deleted as a normal-mode command
                         This will move the cursor a random number of characters
                         to the right
e                        Go to the end of the next word
v4bd                     Delete 4 words backwards
:w|                      Save the file and ..
bp<CR>                   Open the last buffer (the 'o' file)
p                        Paste the 4 words we deleted
0                        Move the cursor to the beginning of the line
~wX~wX~wX~               Remove the spaces between the words and capitalize
Y                        Copy current line
:.!wc -c<CR>             Pipe the current line through 'wc -c'
A*5.7003<Esc>            Append "*5.7003" to the end of the line
:.!bc<CR>                Pipe the current line through 'bc'
P                        Paste the password above the current line
J                        Join with line bellow
q                        Stop recording the 'q' macro
4@q                      Run the 'q' macro 4 times

q / kdb +, 76 74 65 56 байт

Рішення:

{(x;5.70044*(#)x)}(,/)@[;0;upper]each -4?" "vs(*)(0:)`:w

Приклад:

q){(x;5.70044*(#)x)}(,/)@[;0;upper]each -4?" "vs(*)(0:)`:w
"RulingOverheadSaddensPriest"
153.9119

Пояснення:

Прочитайте у списку слів, розділіть їх на "", виберіть із цього списку 4 випадкових слова, прописну першу букву кожного слова, а потім з'єднайте разом. Введіть це у функцію лямбда, яка повертає пароль та обчислену "ентропію":

                                                     `:w / the wordlist is a file called 'w'
                                                 (0:)    / read in the file list (\n separated list)
                                              (*)        / take first (and only) item in the list
                                         " "vs           / split this on " "
                                      -4?                / take 4 random items from this list, neg means 'dont put back'
                      @[; ;     ]                        / apply a function to variable at indices (variable is implicit)
                           upper                         / uppercase (the function being applied)
                         0                               / index 0, the first character
                                 each                    / each of the 4 random items
                  (,/)                                   / 'raze' (flatten lists)
{                }                                       / anonymous lambda function
 (x;            )                                        / a 2-item list, x is first item
            (#)x                                         / count x, return the length of the list
    5.70044*                                             / multiply by 5.70044

Примітки:

Я занурився і використав 5.70044 замість 2 xlog 52 xexp...