Страница: 1 | 2 |
Вопрос: 2 вопросика
Добавлено: 02.08.05 21:43
Автор вопроса: StrikeR | Web-сайт:
Больше, чем уверен, что ответы на эти вопросы уже имеються на форуме... но... мои поиски по нему ни к чему непревели... и так, прошу Вас о помощи
1. Нужно октрыть фаил в HEX... Прочитать 6 символ слева и изменить его на свой.
2. Как без SETUP упаковать фаил? Т.е. что бы ехешка несла ссобой уже все осх и прочую лабуду.
Заранее, премного благодарен
Ответы
Всего ответов: 16
Номер ответа: 1
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #1
Добавлено: 02.08.05 22:10
1. WinHex (кстати есть руссифицированный) либо в FAR жмешь F3, а затем F4.
Номер ответа: 2
Автор ответа:
StrikeR
ICQ: 151819
Вопросов: 32
Ответов: 110
Web-сайт:
Профиль | | #2
Добавлено: 02.08.05 22:13
нее, несовсем то мне не софт нужен, мне нужно через барсик всё сделать... пардон, что в теме неуказал про него. Т.е. нужно всё ручками накалякать
Номер ответа: 3
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #3
Добавлено: 02.08.05 22:26
Ну так это и есть ручками. Жмёшь F3-F4. Или ты хочешь контрол специальный чтобы он тебе файл в виде хекса показывал?
Номер ответа: 4
Автор ответа:
StrikeR
ICQ: 151819
Вопросов: 32
Ответов: 110
Web-сайт:
Профиль | | #4
Добавлено: 02.08.05 22:53
именно... т.е. я на барсе хочу написать софтину, что бы при открытии файла, она считывала определённый символ в HEX и меняла его.
Номер ответа: 5
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #5
Добавлено: 02.08.05 23:35
см. открытие файла + get/put + Hex() + (Asc() - если считывать будешь в строку а не в байтовый массив)
Номер ответа: 6
Автор ответа:
StrikeR
ICQ: 151819
Вопросов: 32
Ответов: 110
Web-сайт:
Профиль | | #6
Добавлено: 02.08.05 23:48
эмм... честно скажу, за барсом давно не сидел... мало что понял из вышенаписанного... понятное дело, напрягать на готовый код, неимею право... но если можно по даскональней всё объяснить для n00b'а
Номер ответа: 7
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #7
Добавлено: 03.08.05 00:39
Вопрос непонятен. в HEX-редакторе или что?
Адреса файлов тебе не нужно найти? Определись с терминологией сначала.
Номер ответа: 8
Автор ответа:
StrikeR
ICQ: 151819
Вопросов: 32
Ответов: 110
Web-сайт:
Профиль | | #8
Добавлено: 03.08.05 01:05
в hex кодировке надо бы
Номер ответа: 9
Автор ответа:
LamerOnLine
ICQ: 334781088
Вопросов: 108
Ответов: 2822
Профиль | | #9
Добавлено: 03.08.05 11:20
Блин, нифига не понятно. Тебе нужно чтобы программа прочла 6-й байт и заменила его? Или пользователь ручками?
Если вариант 1 - Open for binary, get и put. HEX тебе нафиг не нужен.
Если вариант 2 - читай пост N1 и не парься.
Определись что тебе нужно и внятно объясни другим.
Номер ответа: 10
Автор ответа:
vito
Разработчик Offline Client
Вопросов: 23
Ответов: 879
Web-сайт:
Профиль | | #10
Добавлено: 03.08.05 13:34
Тебе нужно пропатчить прогу? )
Ух ка не хорошо)
Смотри работу с файлами. У VB мощные возможности.
Я писал такую, но давно. Найду исходник выложу.
Номер ответа: 11
Автор ответа:
StrikeR
ICQ: 151819
Вопросов: 32
Ответов: 110
Web-сайт:
Профиль | | #11
Добавлено: 03.08.05 13:52
ну как видишь, нашлись те, кто понял
vito, если быть точнее, то патчить будем флешку длшя изменения её версии. Буду очень признателен, если выложишь тут пример
Номер ответа: 12
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #12
Добавлено: 03.08.05 17:59
А какая же разница? Ну патчить так патчить, НА КОЙ ТЕБЕ HEX, открой как binary, считай, измени то что нужно и перезапиши.
Номер ответа: 13
Автор ответа:
StrikeR
ICQ: 151819
Вопросов: 32
Ответов: 110
Web-сайт:
Профиль | | #13
Добавлено: 03.08.05 18:23
вообщем, от есть картинка (http://www.highlight.ee/lev/4all/swf.JPG), на котороый, как вы видите в HEX расписанно всё... и мне нужно программно считать символ, который находиться в кружочке... ну и соотвтественно, его изменить...
повтроюсь... мне не нужно всё это делать через софт, как на пиктуре, мне нужно всё это сделать через VB
Номер ответа: 14
Автор ответа:
vito
Разработчик Offline Client
Вопросов: 23
Ответов: 879
Web-сайт:
Профиль | | #14
Добавлено: 03.08.05 19:14
Исходники не нашел(там exe) патчится.
Но в твоем случае вообще все просто(хотя я может не до конца тебя понял)
Dim intFH, i As Integer ' объявляем переменные
Dim bin As Byte
intFH = FreeFile 'получаем дескриптор
i = 1
Open "xxx\yyy.xx" For Binary Access Read Write As intFH
' открывем файл в бинарнике
Do Until EOF(intFH) 'читаем до конца файла( в твоем случае сколько нужно)
Get #intFH, i, bin 'читаем байт
If Hex(bin) = "FF" Then 'переводим значение в hex и сравниваем
'Put #intFH, i, "F0" ' если да пишем другое значение
End If
i = i + 1 'перемещаемся на байт
Loop
Close #intFH ' закрываем хендл
End Sub
Если не поможет, то исправим)
Номер ответа: 15
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #15
Добавлено: 04.08.05 21:05
ну можно как vito можно и не делать If Hex(bin) = "FF" Then , а сразу If bin = 255 then Put #intFH, i, 15 смысл один и тот же