Имя: Пароль:
1C
1C 7.7
v7: Бухгалтерия 6.0 для windows 95 - как получить список пользователей ?
0 Ковычки
 
05.07.13
11:24
Уже интересовался, но может у кого есть готовое - как выдрать пользователей, полное имя и каталог из файла ADMIN\1SBW.ADM ?
1 пипец
 
05.07.13
12:00
если мне память не изменяет - утилита гендальфа читала
ЗЫ и зачем те выдирать ?
2 Ковычки
 
05.07.13
13:36
(1) нужно "выдирать" программно, про гендальфа запамятовал, позырю
3 Ковычки
 
06.07.13
21:09
Сделал, частично, пока невкурю значения (делал ксором по известному)

mask=array(11,51,43,4,7,21,72,10,11,2,6,20,24,17,21,19,23,25,18)
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("1sbw.adm")
s=""
do while not f.atendofstream
   x=mid(f.readline,6,ubound(mask)+1)
   for i=0 to ubound(mask)
       s=s & chr(mask(i) xor asc(mid(x,i+1)))
   next
   s=s & vbcrlf
loop
msgbox s
4 Aleksey
 
06.07.13
21:44
а чем 1sbwadm.exe не нравится? Зачем выдирать то?
5 neomarat
 
06.07.13
21:52
Какие вы старые! )))
6 Ковычки
 
06.07.13
22:03
даже так

mask=array(11,51,43,4,7,21,72,10,11,2,6,20,24,17,21,19,23,25,18,22,20,24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,2,6,20,24,17,21,19,23,25,18,22,20,24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,2,6,20,24,17,21,19,23,25,18,22,20,24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,2,6,20,24,17,21,19,23,25,18,22)
7 Ковычки
 
06.07.13
22:03
(4) нужно программно
в (6) и пароли и права частично
8 Ковычки
 
06.07.13
22:04
mask=array(11,51,43,4,7,21,72,10,11,2,6,20,24,17,21,19,23,25,18,22,20,
24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,
2,6,20,24,17,21,19,23,25,18,22,20,24,31,29,30,26,27,18,22,4,
8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,2,6,20,24,17,21,19,23,25,
18,22,20,24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,
14,10,11,2,6,20,24,17,21,19,23,25,18,22)
9 Ковычки
 
06.07.13
22:06
пока несоображу, зависимость ксора
полученный по известным величинам шаблон подходит всегда - проверил
10 Ковычки
 
06.07.13
22:17
шаблон достиг 238 элементов
11 Ковычки
 
06.07.13
22:21
возвращает, что то типа

{Name}{ALEX}{FullName=}{WorkDir=ALEX}{Password=1234567}}{Rights{Adm=1}{RunExcl=1}{JoModList=}{JoModAll=1}{JoNoChange=1}{JoRangeChange=1}{JoOperDel=1}{JoEnterBegDate=2415386}{JoEnterEndDate=2524593}{SkTypesMod=1}{SkModList=}{SkModAll=1}{Co

начало не сначала и похоже немного не верно до второй {
12 Ковычки
 
06.07.13
22:21
А так получаю список с именем, полным именем, рабочим каталогом и паролем
13 Эльниньо
 
08.07.13
09:59
Вспомнилось, как какой-то вирус руками выкусывали из command.com, когда ещё даже aidstest.exe не было.