Сейчас на форуме: Rio (+5 невидимых)

 eXeL@B —› Вопросы новичков —› Взлом VBA макроса для MSWord
Посл.ответ Сообщение

Ранг: 0.9 (гость)
Активность: 0=0
Статус: Участник

Создано: 02 июля 2007 11:57
· Личное сообщение · #1

Существует такая программа для переводчиков Wordfast (http://www.global-tm.net/zip/wf_551.zip), она накапливает переводы сделанные ранее и в последствии позволяет не переводить одно и то же предложение по 10 раз (описание здесь: www.wordfast.net/lang=ru01. Но без покупки лицензии Wordfast может работать с накопителями переводов объемом примерно до 110 КБ или 500 блоков перевода (TU).

Программа представляет из себя *.dot файл, дополнение к MS Word, как я понимаю просто большой макрос, написана на VBA.
У меня даже есть очень краткая инструкция по взлому защиты: "Берёшь Advanced VBA Password Cracker от Элкомсофта. Снимаешь с AddIn-а пароль за 2 секунды. Находишь строчку 4842 модуля Rosette (это Sub OC), "ремишь" её. Записываешь DOT. Всё."
Но для меня это слишком сжато...
Не могли бы вы объяснить для самых маленьких с самого начала на примере именно этой программы.
1. Чем открыть Wordfast.dot для редактирования?
2. Что это за сторчка 4842 и какой она будет в новой версии, что в ней должно быть?
3. Ремишь - это удаляешь?
4. Записываешь DOT - это просто сохраняешь изменения или нужен какой-то компилятор?
5. Advanced VBA Password Cracker тоже не бесплатен, я нашла похожую программу, но выданный ей пароль не подошел при попытке редактирования шаблона из Ворд.
х. Я очень тщательно искала на форуме и в статьях похожую тему, но безуспешно, макросы никто не ломает.



Ранг: 21.1 (новичок)
Активность: 0.030
Статус: Участник

Создано: 02 июля 2007 13:25
· Личное сообщение · #2

1.файл макросов открывают во встроенном редакторе макросов (меню "инструменты")
2.номера строчек высвечиваются внизу окна редактора макросов
3.ремишь-значит превращаешь команду в комментарий посредством вставки непосредственно перед ней оператора REM
4.сохраняешь изменения, компилятор не нужен
5.на асталависте есть кряк



Ранг: 0.9 (гость)
Активность: 0=0
Статус: Участник

Создано: 02 июля 2007 15:41
· Личное сообщение · #3

Я сняла пароль, открыла с помощью MSVisualBasic, но там нет модуля Rosette! А строка 4842 в модуле М1 выглядит так:
http://keep4u.ru/full/070702/f32b7b4c3f26c4f86f/jpg
Зато, в модуле М0 наткнулась на такие строки:
Sub WfKey()
If Q(227) Then Exit Sub
If InStrB(Z(44), "FirstKeyShift") > 0 Then SendKeys "+"
If InStrB(Z(44), "FirstKeyControl") > 0 Then SendKeys "^"
If InStrB(Z(44), "FirstKeyEsc") > 0 Then SendKeys "{Escape}"
If InStrB(Z(44), "WfCompanion") > 0 Then
Application.Activate
If Windows.Count > 0 Then ActiveDocument.Activate
End If
DoEvents
End Sub

Слово Key натолкнуло меня на мысль, что может это то, что мне нужно.
Помогите пожалуста разобраться, а то кол-во страниц программного кода наводит на меня тоску



Ранг: 79.4 (постоянный)
Активность: 0.090
Статус: Участник

Создано: 02 июля 2007 19:56
· Личное сообщение · #4

в приведённом куске кода идёт проверка на наличие управляющих команд и соответсвенно в зависимости от результата посылаються нажатия необходимых клавиш (SendKeys "")
а строка на скрине вообще никакого отношения к регистрации не имеет...




Ранг: 107.6 (ветеран)
Активность: 0.110
Статус: Участник

Создано: 02 июля 2007 20:32
· Личное сообщение · #5

Afalina
Ну так в чем проблема? Ставь бряк на подозрительную строку и вперед!

-----
программистом не рождаются - им умирают




Ранг: 0.9 (гость)
Активность: 0=0
Статус: Участник

Создано: 02 июля 2007 20:51
· Личное сообщение · #6

Gambit Проблема в том что я попала на этот сайт 2 дня назад, и хоть поначиталась разных статей, но пока еще ничего не понимаю. Если бы вы меня научили (по пунктам) я была бы очень признательна. Вам наверное будет смешно, но я не знаю какая строка подозрительная




Ранг: 107.6 (ветеран)
Активность: 0.110
Статус: Участник

Создано: 02 июля 2007 21:27
· Личное сообщение · #7

В таком случае есть два варианта:
1) Ты хочешь научиться ломать проги - тогда тебе надо начинать с азов - придет время - сломаешь прогу либо сама, либо с нашей помощью (при более конструктивных вопросах)
2) Ты хочешь иметь сломанную прогу - тогда в запросы на взлом


-----
программистом не рождаются - им умирают




Ранг: 0.9 (гость)
Активность: 0=0
Статус: Участник

Создано: 02 июля 2007 22:06
· Личное сообщение · #8

Gambit
Очень бы хотелось научиться, только боюсь очень долго получится. Но все равно попробую, с вашей помощью, и да прибудет со мной Ассемблер!



Ранг: 495.3 (мудрец)
Активность: 0.30
Статус: Участник

Создано: 03 июля 2007 08:52
· Личное сообщение · #9

Данный случай к Ассемблеру отношения не имеет (если не углубляться).
Тут как раз требуется знание английского языка.
Ключевым выражением в том "описании" является – "Sub OC".
Видимо, так должна выглядеть строка, которую нужно отключить (заремить).
Если не найдёшь до вечера, глянем сами.

-----
Всем привет, я вернулся




Ранг: 0.9 (гость)
Активность: 0=0
Статус: Участник

Создано: 03 июля 2007 12:29
· Личное сообщение · #10

В тексте очень много встречается кода с упоминанием слова license, но не разу Sub OC, например:
Sub Bt2_Enter()
Dim W0 As String, W1 As String, W2 As String
Select Case C(100)
Case 40
W2 = "After entering your 8-figure license number, close and re-open " + Zr + " then REORGANISE your TMs (see Translation memory/TM/Reorganise)"
W1 = Bt2.Text
W0 = InputBox(W2, Zr, W1)
If W0 = "" Then Exit Sub Else W0 = Left(Trim$(W0) + "--------", 8)
Bt2.Text = W0
If Len(W0) = 8 And W1 <> W0 Then
MsgBox W2, , Zr
Z(104) = W0: DC: Q(263) = -1
End If
End Select
End Sub

но в основном перед этим стоит "MsgBox" т.е., как я понимаю это всего лишь текст который выводится в окошке.
Вообще прав конечно Gambit нужно учить теорию, так что почитаю книжки сначала, а с программой Executioner обещал помочь.




Ранг: 107.6 (ветеран)
Активность: 0.110
Статус: Участник

Создано: 03 июля 2007 17:26
· Личное сообщение · #11

Afalina пишет:
почитаю книжки сначала

А также практика, практика и еще раз практика...

-----
программистом не рождаются - им умирают




Ранг: 79.4 (постоянный)
Активность: 0.090
Статус: Участник

Создано: 03 июля 2007 18:01
· Личное сообщение · #12

поиск по строке 500 дал следующий участок кода... проверить в деле возможности нет, так что пробуйте)
скрин в аттаче...

d2be_03.07.2007_CRACKLAB.rU.tgz - fghfgh.rar



Ранг: 0.3 (гость)
Активность: 0=0
Статус: Участник

Создано: 27 июня 2008 14:49
· Личное сообщение · #13

вообще, есть в сети ломалка... тоже макрос



Ранг: 51.5 (постоянный), 16thx
Активность: 0.040.01
Статус: Участник

Создано: 27 июня 2008 16:08
· Личное сообщение · #14

сабжу год, думаю топикстартер уже разобрался(лась)




Ранг: 2014.5 (!!!!), 1278thx
Активность: 1.340.25
Статус: Модератор
retired

Создано: 27 июня 2008 16:50
· Личное сообщение · #15

Подняли, сталкеры, закрыто.


 eXeL@B —› Вопросы новичков —› Взлом VBA макроса для MSWord
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати