пароль в XNC

Ответить
Аватара пользователя
Igor336
Сообщения: 45
Зарегистрирован: 15 сен 2016 11:17

пароль в XNC

#1

Сообщение Igor336 »

Проверено на ROVER 336 XNC 1.1
генерация паролей для роверов - точнее не генерация даже, а "зашифровка" в цифорки, которые указаны в файле в общем файлик и датимак на скрине, https://yadi.sk/i/0h4Hfa-I3EveVS
так вот файлик генерирующий эти цифирьки эта програмуля. называется "хрень" :nez-nayu: ну как сразу назвал так и осталась -ссылка - https://yadi.sk/d/hZwoRIb93Ew2B6 (если интересен алгоритм шифрования - спрашивайте выложу), иногда же бывает нужным "вспомнить-установить" пароль какого нибудь низкого уровня, того же 5 к примеру, что бы оператор и мог менять что то, но не все, пароль 16 уровня знать далеко не каждому оператору же можно - убедился на собственном опыте в этом я. к стати, по-моему можно где то было вводить новый пароль ниже того уровня на котором вошел, но что то найти не могу...
Аватара пользователя
demonlibra
Администратор
Сообщения: 7307
Зарегистрирован: 11 сен 2008 08:20
Благодарил (а): 21 раз
Поблагодарили: 94 раза

Re: пароль в XNC

#2

Сообщение demonlibra »

интересен алгоритм шифрования - спрашивайте выложу
Конечно выкладывайте
Не бойся поломать. Бойся не починить ))
Изображение
Аватара пользователя
Igor336
Сообщения: 45
Зарегистрирован: 15 сен 2016 11:17

Re: пароль в XNC

#3

Сообщение Igor336 »

w1 = "СИМВОЛЫ ПАРОЛЯ"
Q = 4 ' константа коррекции первого знака пароля
Q1 = 2 ' вторая константа коррекции первого знака пароля
k1(1) = 1 '
K(1) = 1
For a = 2 To 64 ' я ограничился длинной пароля в 64 символа
' правильнее было бы тут не 64 а Len(w1)
' в цикле заданы константы коррекций каждого знака пароля
K(a) = K(a - 1) + Q
k1(a) = k1(a - 1) + Q1
Q1 = Q1 + CByte(1)
Q = Q + CByte(3)
Next a
a = Len(w1)
For Q = 1 To CByte(a) 'перевод символов пароля в коды
z(Q) = Asc(Mid(w1, Q, 1))
Next Q
X = 0
For Q = 1 To CByte(a) 'cуммирование кодов символов пароля с учетом
'констант в зависимости от знакоместа
X = X + (z(Q) * (z(Q) * Q + K(Q)))
Next Q
k2 = 0
If a = 1 Then GoTo V1
For Q = 1 To CByte(a - 1) 'нахождение корректирующего коэффициента
' опять же от длинны пароля
k2 = k2 + (a - Q) * k1(Q) * (z(Q + 1) - z(Q))
Next Q
V1:
a = X - k2 '- это как раз число которое надо

комментарии написаны криво, легче код написать, чем объяснить что он делает, по мне так главное что бы я понял что я делаю, а Вам - ну берите как есть :ne_vi_del: поверьте на слово, главное что оно работает
для чего так заморочено шифрование, вопрос можете задать на Biesse, я не мудрил с шифровкой а только дешифрировал.
Ответить

Вернуться в «XNC»