А вот такой код тебе не поможет? Запусти из любой другой базы.
//*******************************************
Функция ИзвлечьЗначение(Стр, Парам)

Начало = Найти(Стр, Парам);
Стр = Прав(Стр, СтрДлина(Стр) - Начало + 1 - СтрДлина(Парам) - 3);
Конец = Найти(Стр, Симв(34));
Значение = Лев(Стр, Конец - 1);
Возврат Значение;

КонецФункции //ИзвлечьЗначение(Стр, Парам)


//********************************************
//
Процедура Подключить()
Перем SQLKeyCode[36], ConnectCode[200];


Файл = КаталогБазыДляКоторойНадоУзнатьПароль + "1Cv7.DBA";
Если ФС.СуществуетФайл(Файл) = 1 Тогда

//Получим параметры подключения к SQL серверу
FSO = СоздатьОбъект("Scripting.FileSystemObject");
F = FSO.OpenTextFile(Файл, 1);
ConnectLen = 0;

Пока F.AtEndOfLine = 0 Цикл
ConnectLen = ConnectLen + 1;
ConnectCode[ConnectLen] = КодСимв(F.Read(1));
КонецЦикла;

F.Close();
FSO = 0;
SQLKey = "19465912879oiuxc ensdfaiuo3i73798kjl";

Для i = 1 По 36 Цикл
SQLKeyCode[i] = КодСимв(Сред(SQLKey, i, 1));
КонецЦикла;

Connect = "";
Для i = 1 По ConnectLen Цикл
Connect = Connect + Симв(XOR(ConnectCode[i], SQLKeyCode[(i - 1) % 36 + 1]));
КонецЦикла;

Сервер = ИзвлечьЗначение(Connect, "Server");
Юзер = ИзвлечьЗначение(Connect, "UID");
Пароль = ИзвлечьЗначение(Connect, "PWD");
Сообщить("Юзер: "+Юзер);
Сообщить("Пароль : "+Пароль );
Сообщить("Сервер : "+Сервер );
КонецЕсли;
КонецПроцедуры

Ещё забыл вот это:

//*******************************************
Функция XOR(Знач ParA, Знач ParB)

Рез = 0;
Коэф = 1;

Для BitNumber = 1 По 8 Цикл
BitA = ParA % 2;
BitB = ParB % 2;
ParA = Int(ParA / 2);
ParB = Int(ParB / 2);
BitC = (BitA + BitB) % 2;
Рез = Рез + BitC * Коэф;
Коэф = Коэф * 2;
КонецЦикла;

Возврат Рез;

КонецФункции //XOR