ssa
Ну ты даешь! Назвать получение строки или параметров соединения получением доступа к таблицам! В самой 1С этого за полной ненадобностью нет. Но вот где-то в тырнете видел описания расположения такой информации. Разумеется, доставать ее придется самому.

PaulWist

ssa
Ну ты даешь! Назвать получение строки или параметров соединения получением доступа к таблицам! В самой 1С этого за полной ненадобностью нет. Но вот где-то в тырнете видел описания расположения такой информации. Разумеется, доставать ее придется самому.

1. Вопервых я не знаю есть ли в 1с специфический обьект для доступа к "потрохам" БД, поэтому спросил про доступ к табличкам.

2. Во вторых, как мне видится наиболее просьой способ - это получить указатель соединения или , что мало вероятно строку соединения.

3. Посмотри, мож там не всё "запущено"

Цитата:

16. Как узнать логин и пароль подключения 1С к MS SQL Server
К сожалению автор этой идеи неизвестен.
Эти данные храняться в файле 1Cv7.DBA. Этот файл привязан к файлу usrdef\users.usr (вот поэтому и надо создать хотя бы одного пользователя в конфигураторе), и если вдруг надо будет изменить этот файл (ну например кто то забыл пароль администратора) и это сделать в другой базе, то привязка потеряется, и информацию о параметрах подключения 1С к SQL Server прочесть уже не удастся. Решение этой проблемы как всегда простое - все данные по доступу к SQL Server хранятся в файле 1Cv7.DBA. Они там не в октрытом виде, но и не зашифрованы 128 битным ключом по методу md5. Вся защита основана на простеньком XOR. Если у кого есть желание, можете сами написать метод шифрования, только вот зачем, если есть уже говотовые решения.
Код:

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
    Var SQLKeyCode[36], ConnectCode[200];
    ConnectFile = IBDir() + "1Cv7.DBA";
    If FS.ExistFile(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

if ExclusiveMode()=0 then
        if FS.ExistFile(IbDir()+"1cv7.dds")=1 then
            constr=ConnectionString();
            if ConStr<>0 then
                server=constr.getValue(2);database=constr.getValue(4);uid=constr.getValue(6); pwd=constr.getValue(8);

Рома
А встроенная функция BitXor вместо Function XOR( ParA, ParB) не проходит?

ssa

Рома
А встроенная функция BitXor вместо Function XOR( ParA, ParB) не проходит?

А я ее указывал в своем списке, но некоторые не сочли нужным ее заметить.
И еще Alines() я указывал, которую можно вместо четырех GetWordNum() использовать, но...

PaulWist
Фактически получен доступ к самой БД, теперь хотелось бы получить доступ к табличкам Sql Server-a, как это можно организовать?

Цитата:

RETURN Connect
Return decode(FILETOSTR(ConnectFile), SQLKey)

AleksM

Цитата:

RETURN Connect
Return decode(FILETOSTR(ConnectFile), SQLKey)

Один лишний