Создаем новый документ размером 500х200 пикселей. Создаем новый слой, заливаем его белым цветом (Edit > Fill > White) и применяем Filter > Render > Fibers с настройками по умолчанию. Получаем нечто близкое к этому:

Затем применяем к этому же слою Filter > Pixelate > Mezzotint с параметром Grainy dots. Получаем вот это:

Затем к этому же слою применяем Filter > Blur > Motion blur с параметрами Angel = 90' и Distance = 998 пикселей. Получаем вот такие полосы:

Далее внимательно, иначе выйдет не баркод, а черт знает что. Идем в Image > Adjusments > Curves и настраиваем там всё так, как на скриншоте ниже (внимательно постройте кривую как на рисунке):

В итоге всех манипуляций мы получаем вот это:

Уменьшите и обрежьте слой до размеров бар кода, при этом его четкость потеряется:

Чтобы это исправить, выполните Filter > Sharpen > Sharpen и раз восемь нажмите Ctrl+F чтобы усилить эффект. Получим почти готовый баркод:

Осталось только аккуратно вырезать участки для цифр (я использовал шрифт Microsoft Sans Serif), и баркод готов:

Автор: Aleko