Код

Перем КаталогВнБазы;
Перем глOleDB, глOleCmd;
// ======================================
Function XOR(Val ParA, Val ParB)
	Res = 0;
	Koef = 1;
	For BitNumber = 1 To 8 Do
		BitA = ParA % 2;
		BitB = ParB % 2;
		ParA = Int(ParA / 2);
		ParB = Int(ParB / 2);
		BitC = (BitA + BitB) % 2;
		Res = Res + BitC * Koef;
		Koef = Koef * 2;
	EndDo;
	Return Res;
EndFunction
// ======================================
// индексы значений с списке
// server = 2, db = 4, uid = 6, pwd = 8, checksum = 10
Function ConnectionString()  export
	Перем SQLKeyCode[36], ConnectCode[200];
	КаталогБазы = КаталогВнБазы;
	ConnectFile = КаталогБазы + "1Cv7.DBA";
	If ФС.СуществуетФайл(ConnectFile) = 0 Then
		Message("Это не SQL - база!", "!");
		Return (0);
	EndIF;
	FSO = CreateObject("Scripting.FileSystemObject");
	F = FSO.OpenTextFile(ConnectFile, 1);
	ConnectLen = 0;
	While F.AtEndOfStream = 0 Do
		ConnectLen = ConnectLen + 1;
		ConnectCode[ConnectLen] = Asc(F.Read(1));
	EndDo;
	F.Close();
	FSO = 0;
	SQLKey = "19465912879oiuxc ensdfaiuo3i73798kjl";
	For i = 1 To 36 Do
		SQLKeyCode[i] = Asc(Сред(SQLKey, i, 1));
	EndDo;
	Connect = "";
	For i = 1 To ConnectLen Do
		Connect = Connect + Chr(XOR(ConnectCode[i], SQLKeyCode[(i - 1) % 36 + 1]));
	EndDo;
	vl=createobject("ValueList");
	Connect=StrReplace(Connect,"{","");
	Connect=StrReplace(Connect,"}","");
	vl.fromSeparatedString(Connect);
	return (vl);
EndFunction
// ======================================
Функция ПолучитьДопПарам(Парам)
	СпрПарам = СоздатьОбъект("Справочник.n_ДопПараметры");
	СпрПарам.ПорядокНаименований();
	Если СпрПарам.НайтиПоНаименованию(Парам) = 0 Тогда
		Сообщить("Не найден в справочнике ""+Доп. параметры+"" параметр "+Парам);
		Возврат(0);
	КонецЕсли;
	Возврат(СокрЛП(СпрПарам.Парам));
КонецФункции
// ======================================
Функция гл_Connect(флОтладка=0)
	КаталогВнБазы = ПолучитьДопПарам("КаталогЦБ");
	Если КаталогВнБазы = 0 Тогда
		КаталогВнБазы = КаталогИБ();
	КонецЕсли;
	Если ФС.СуществуетФайл(КаталогВнБазы+"1cv7.dds")=1 Тогда
		constr=ConnectionString();
		Если ConStr<>0 Тогда
			server   = constr.getValue(2);
			database = constr.getValue(4);
			uid		 = constr.getValue(6);
			pwd		 = constr.getValue(8);
			Попытка
				глOleDB = СоздатьОбъект("OLEDBData");
			Исключение
				Сообщить("Не загружена ВК 1С++");
				Возврат(0);
			КонецПопытки;
			Попытка
				глOleDB.Connect("provider=SQLOLEDB;data "+""+СокрЛП(pwd));
			Исключение
				Сообщить("Нет доступа к базе "+СокрЛП(database));
				Сообщить(ОписаниеОшибки());
				Возврат(0);
			КонецПопытки;
			глOleCmd = глOleDB.CreateCommand();
			глMDW = СоздатьОбъект("MetaDataWork");
			Если флОтладка = 1 Тогда
				глOleCmd.Debug(1);
			КонецЕсли;

			Возврат(1);

		КонецЕсли;
	КонецЕсли;
	Возврат(0);
КонецФункции
// ======================================
Функция гл_Disconnect()
	глOleCmd.Close();
	глOleDB.Close();
	Возврат 1;
КонецФункции

// ======================================
Процедура Сформировать()
	Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"1CPP.DLL") = 0 Тогда
		Сообщить("Не загружена компонента 1С++");
		Возврат;
	КонецЕсли;
	Если гл_Connect() = 0 Тогда
		Возврат;
	КонецЕсли;
	ТЗ = СоздатьОбъект("ТаблицаЗначений");
	ТЗ = глOleCmd.ExecuteStatement("SELECT @@VERSION AS VER");
	ТЗ.ВыбратьСтроку();
	гл_Disconnect();
КонецПроцедуры