Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Подбор пароля АТС TEM824

Модерирует : gyra, Maz

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

ck80

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Предыдущий админ уволился, не оставив пароля для Panaconic KX-TEM824.
 
Стандартный 1234 и различные частораспространненые вариации не подходят (0000, 123456 и т.д.). Сбрасывать АТС не хочется, потому что там все настроено и работает, но для дальнейшей настройки нужно знать пароль.
 
Наверняка существует программа или скрипт, которая перебирает пароль и вставляет его в стандартное окошко? А потом нажимают ок и потаймауту снова вводят.
 
Пароль на АТС не сложный должен быть. Ограничения на пароль: от 4 до 6 символов, только цифры.
 
Добавлено:
Вспомнил об AutoIT
 
Набросал скрипт, но что-то он у меня не вставляет пароль в окошко ввода
 
;--- AutoIt Macro Generator V 0.21 beta ---
#include <File.au3>
#include <Array.au3>
Dim $aPasswords
 
_FileReadToArray('c:\pass.txt', $aPasswords)
For $i = 1 To 10000 Step 1
  Opt("WinTitleMatchMode", 4)
  WinWait("Connect to PBX","Enter System Password :")
  ControlClick("Connect to PBX","Enter System Password :","Edit1")
  Send$aPasswords[$i])
  ControlClick("Connect to PBX","Enter System Password :","Button6")
  WinWait("KX-TE Maintenance Console","The system password is wrong.")
  ControlClick("KX-TE Maintenance Console","The system password is wrong.","Button1")
  WinWait("Connect to PBX","Enter System Password :")
  ControlClick("Connect to PBX","Enter System Password :","Edit1")
Next
;--- End ---
 
Добавлено:
Вот этот код сработал. Сидит перебирает.  
 
;--- AutoIt Macro Generator V 0.21 beta ---  
#include <File.au3>  
#include <Array.au3>  
Opt("WinTitleMatchMode", 4)  
 
Dim $aPasswords  
 
_FileReadToArray("c:\1000000.txt", $aPasswords)  
For $i = 1 To $aPasswords[1000000]  
    Opt("WinTitleMatchMode", 4)  
    WinWait("Connect to PBX","Enter System Password :")  
    ControlSend("Connect to PBX","Enter System Password :","Edit1","{BACKSPACE 7}")  
    ControlSend("Connect to PBX","Enter System Password :","Edit1",$aPasswords[$i])  
    ControlClick("Connect to PBX","Enter System Password :","Button6")  
    WinWait("KX-TE Maintenance Console","The system password is wrong.")  
    ControlClick("KX-TE Maintenance Console","The system password is wrong.","Button1")  
Next  
;--- End ---

Всего записей: 247 | Зарегистр. 03-07-2007 | Отправлено: 14:03 23-01-2017 | Исправлено: ck80, 13:31 24-01-2017
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Программы » Подбор пароля АТС TEM824


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru