1c v8 hasp

HASP для 1С v8

---

Внимание! статья написана для экстренных случаев решения проблемы и не является руководством к взлому!
использование данной статьи не имея реального ключа - несет реальную ответственность по УК РФ.

---

Backend.dll для 1cv8

После установки 1С v8.xx на терминальный сервер 1С ругается на отсутствие ключа. Чтобы не было ругани, патчим следующим образом:

Для версий ниже 8.2.12.xx изменяем файл C:\Program Files\1cv8x\bin\backend.dll.

Для версий выше 8.2.12.xx изменяем файл C:\Program Files\1cv8x\bin\backbas.dll.

1. С помощью HEX редактора находим строчку:

10 00 00 FF D0 85 C0 0F 82 08 F8 FE FF 0F 84 16

2. Заменяем ее на:

10 00 00 FF D0 31 C0 0F 82 08 F8 FE FF 0F 84 16

(т.е. только один байтик с 85 на 31)

или создаем скрипт patch.vbs:

File="backbas.dll"
 arr =split("10 00 00 FF D0 85 C0 0F 82 08 F8 FE FF 0F 84 16"," ")
arr2=split("10 00 00 FF D0 31 C0 0F 82 08 F8 FE FF 0F 84 16"," ")
for each c in arr
r=r & chrb(clng("&H" & c))
next
for each c in arr2
r2=r2 & chrb(clng("&H" & c))
next
set s=createobject("ADODB.Stream")
s.type=2
s.open
s.loadfromfile(File)
ss=s.readtext
s.position=0
s.writetext(replace(ss,r,r2))
s.position=0
s.type=1
s.position=2
ss=s.read
s.close
s.open
s.write(ss)
call s.savetofile(File,2)
'WScript.Echo "Patched succesfully"

Если подключаемся через веб-интерфейс и 1С пишет: "Не найдена лицензия. Не обнаружен ключ защиты программы или полученная программная лицензия!"

Решение найдено: Для веб-клиентов лицензии выдает сервер 1С предприятия. Нужно зайти в консоль Администрирование серверов 1С,<br\> открыть свойства базы, установить "ДА" в поле "Разрешить выдачу лицензий сервером 1С:Предприятия"

статья

• полезное