powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Мемополе-конвертация?
9 сообщений из 9, страница 1 из 1
Мемополе-конвертация?
    #33340631
guest_77654
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть таблица в фокспро с мемо полями, во всех инфа в нормальном виде, а в нужном мемополе в виде:
SR.=;8.)_KGW]LPP%UQJI/")XKGaNDP)1#JJSGCW1#"QJEGR1#EQNQC37?93235:5#5A=;8>6#")%#")%#")%#")%#")%#")%9842<=5:?79")%#")%#")%#")%#")%#")%#"ZOa]]Byzenrh#jmuwv7mh0ls#")%#")%#")%#")%#")%#")%#")%#")%#")%)%#")%#")%#")%#")%#")%#")%#")%#")%#")%#")%#")%#")%#")%#")%#"

Фокпро совсем не знаю, могу только догадываться что это зашифровано-упакованно.

Похоже нашел кусок кода в программе которая читает и отображает в нормальном виде эту инфу.

PROCEDURE DblClick
with thisform
eddp=qyqk1
eddp=hba(eddp)
ed2a=eddp &&substr(eddp,at(da,eddp)+2)
ed2a=substr(ed2a,1,at(da,ed2a)+1)
ed2=TRIM(qymc_e)+da+da+'ADDR: '+ed2a+'POSTCODE: '+substr(eddp,at(da,eddp)+2,8)+da
ed2=ed2+'CONTACT: '+xslxr_e+da+'TEL: '+trim(substr(eddp,at(da,eddp,2)+2,30))+da
ed2=ed2+"FAX: "+trim(substr(eddp,at(da,eddp,3)+2,30))+da
if substr(eddp,at(da,eddp,4)+2,1)>' '
ed2=ed2+"E-MAIL: "+TRIM(substr(eddp,at(da,eddp,4)+2,60))+da
endif
if substr(eddp,at(da,eddp,5)+2,1)>' '
ed2=ed2+"URL: "+TRIM(substr(eddp,at(da,eddp,5)+2,60))+da
endif
ed2=ed2+da+"BUSINESS: "+TRIM(YWFW_E)+da
ed2a="BUSINESS: "+TRIM(YWFW_E)+da
.edit2.refresh
endwith

ENDPROC


Собственно вопрос.
Как можно сохранить данные из такого мемо поля, например в текстовый файл в читаемом виде?
из всех предложенных форматов експорта vfp6 ни один не выдал данных их этого мемополя. :(
Фокпро совсем не знаю.
...
Рейтинг: 0 / 0
Мемополе-конвертация?
    #33340654
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да, на языке тока слова (епер...) и т.д.


посмотри
функцию
hba

(eddp=hba(eddp))

поставь перед with thisform set step on
и посмотри дебагером
переменную qyqk1 (чему равна до даблклика)


и что в переменной eddp после eddp=hba(eddp)


нужно дебагером вначале походить - посмотреть
...
Рейтинг: 0 / 0
Мемополе-конвертация?
    #33340669
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это уже откомпилированный текст исходного кода. Судя по всему, ты открыл файл формы или класса, поле ObjCode. Исходники этого кода лежат в той же записи в поле Methods.

Если в этом поле ничего нет, то чтобы получить исходник нужно воспользоваться специальной программой

Refox.exe

Которая собственно и производит операцию обратную компиляции. Поищи ссылки в этой конфе.
...
Рейтинг: 0 / 0
Мемополе-конвертация?
    #33340671
guest_77654
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
qyqk1 - и есть то самое "хитрое" мемо поле
...
Рейтинг: 0 / 0
Мемополе-конвертация?
    #33340682
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, если надо получить именно листинг, то используй пункт меню FoxPro

Tools - Class Browser - Открываешь нужный файл - В ToolBar жмешь кнопочку View Class Code
...
Рейтинг: 0 / 0
Мемополе-конвертация?
    #33340695
guest_77654
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
процедура из екзешника выдернута.
исходников нет, да и разобраться в них первый раз видя фокспро будет сложновато.

может быть что бы во всем dbf было только одно зашифрованое мемо поле?
...
Рейтинг: 0 / 0
Мемополе-конвертация?
    #33340816
guest_77654
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Tools - Class Browser не помогло. :(

есть екзешник, есть база base.dbf base.ftp

нужные "кракозябки" из мемополя qyqk1 в файле base.ftp
файл base.ftp открыть не могу, base.dbf открывается из 4 мемо полей только в в одном "кракозябки", в остальных нормальный текст.
через BDE база не открывается (ругается на поврежденный индекс)
через фокспро попробывал экспортировать в dbase получил два файла dbf&dbt , bde опять ругается на поврежденный индекс, но это и не важно, т.к. в dbt все равно "кракозябки". :(

разве может быть шифр только на одном поле во всей базе?
...
Рейтинг: 0 / 0
Мемополе-конвертация?
    #33341056
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как такового, встроенного механизма шифрования в FoxPro нет. Поэтому практически любое шифрование - это личное творчество того программиста, кто пишет программу.

Код использования этого поля начинается со строк:

eddp=qyqk1
eddp=hba(eddp)

Т.е. в данном случае вызывается некая функция hba() в которую в качестве параметра передается зашифрованный текст (содержимое мемо-поля).

Вот и ищи, где в программе эта самая функция hba() определена. Скорее всего в каком-либо файле с расширением PRG. Должно начинаться с ключевого слова:

FUNCTION hba

или

PROCEDURE hba

Для FoxPro функция и процедура - это взаимозаменяемые понятия. Что есть что зависит от способа вызова, а не от способа определения.

Также код этой функции может быть в хранимых процедурах контейнера базы данных.
...
Рейтинг: 0 / 0
Мемополе-конвертация?
    #33341119
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
изв, не по теме
во, живой пример защиты кода

расшифровку - в контейнер

клиенту - дбф с компилированными скриптами , да еще повернуть их
на байт+n
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Мемополе-конвертация?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]