Генерация хорошего пароля на Icon

Подсунул мне недавно, значит, один человек задачку, которая заключалась в том, что нужно было от балды сгенерировать «хороший» пароль (ну любимая штучка в интернетах). Вот и пришлось мне показать всю силу Icon — и написать несложную программку для такой пустяковой, казалось бы, задачи, самой сложной частью которой была переинициализация генератора случайных чисел.

В итоге получилось это:

procedure main(argv)
local a,i,pass
a:=&letters++&digits
pass:=""
every i:=1 to argv do {
pass||:=a[?(*a)]
}
write(pass)
end

Добавить комментарий