[Страдалецъ]

Принцип очень простой. Используется рекурсия, т.е. вызов процедуры самой-себя. Для анализа работы рекомендую задать для CharSet значение '01' и вызвать процедуру так:
PassGen('00', 1);
и в режиме отладки пошагово посмотреть что происходит.