Современные решения

для защиты Windows приложений

и восстановления исходного кода

Visual Basic 6.0 - Re[2]: Упаковка в ZIP и CAB


Re[2]: Упаковка в ZIP и CAB

From: "A. Skrobov" <tyomitch [@] r66.ru>


Thu Feb 19 2004 13:33, Максим Кнышов wrote to Dmitriy:

МК> Люди, больше никто никаких архиваторов не знает???

Я писал модуль для работы с unrar.dll, но там есть левая библиотека-переходник
из-за использования оным cdecl-калбаков. Hадо?

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)

On error - странности

From: "A. Skrobov" <tyomitch [@] r66.ru>


Thu Feb 19 2004 00:49, Max Irgiznov wrote to Alexander Asyabrik:

MI> Вобщем глюк присутствует и никак не искореняется. :(

Код-то покажи, а то как гадать?

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)

Re: очередной глупый вопрос про классы...

From: "A. Skrobov" <tyomitch [@] r66.ru>


Tue Feb 17 2004 20:31, A. Skrobov wrote to Dmitriy Kozyrev:

AS>>> Стал разбираться - и действительно, процедуры не генерируются! Я в

AS>>> растерянности.

DK>> Точно не генерируются? Я заюзал TypeLib Information - так он и на

DK>> свойства, и на переменные говорит одно и то же, мол, свойства это, самые

DK>> настоящие. :)

AS> Совершенно точно. Кода под рукой нету, но завтра запощу.

Вот, для интересующихся.

16: Option Explicit
17: Private Declare Sub DebugBreak Lib "kernel32.dll" ()
18:
19: Public Member1 As Long
20: Private mvarMember2 As Long
21:
04A51A00 push ebp
04A51A01 mov ebp,esp
04A51A03 sub esp,0Ch
04A51A06 push offset ___vbaExceptHandler (04a510e6)
04A51A0B mov eax,fs:[00000000]
04A51A11 push eax
04A51A12 mov dword ptr fs:[0],esp
04A51A19 sub esp,8
04A51A1C push ebx
04A51A1D push esi
04A51A1E push edi
04A51A1F mov dword ptr [ebp-0Ch],esp
04A51A22 mov dword ptr [ebp-8],offset __imp___CIexp+34h (04a510c0)
04A51A29 mov dword ptr [ebp-4],0
04A51A30 mov esi,dword ptr [Me]
04A51A33 push esi
04A51A34 mov eax,dword ptr [esi]
04A51A36 call dword ptr [eax+4]
22: Public Property Let Member2(ByVal vData As Long)
04A51A39 mov ecx,dword ptr [vData]
04A51A3C mov dword ptr [esi+38h],ecx
23: mvarMember2 = vData
04A51A3F mov eax,dword ptr [Me]
04A51A42 push eax
04A51A43 mov edx,dword ptr [eax]
04A51A45 call dword ptr [edx+8]
04A51A48 mov eax,dword ptr [ebp-4]
04A51A4B mov ecx,dword ptr [ebp-14h]
04A51A4E pop edi
04A51A4F pop esi
04A51A50 mov dword ptr fs:[0],ecx
04A51A57 pop ebx
04A51A58 mov esp,ebp
04A51A5A pop ebp
04A51A5B ret 8
24: End Property
25:
04A51A60 push ebp
04A51A61 mov ebp,esp
04A51A63 sub esp,0Ch
04A51A66 push offset ___vbaExceptHandler (04a510e6)
04A51A6B mov eax,fs:[00000000]
04A51A71 push eax
04A51A72 mov dword ptr fs:[0],esp
04A51A79 sub esp,0Ch
04A51A7C push ebx
04A51A7D push esi
04A51A7E push edi
04A51A7F mov dword ptr [ebp-0Ch],esp
04A51A82 mov dword ptr [ebp-8],offset __imp___CIexp+3Ch (04a510c8)
04A51A89 xor edi,edi
04A51A8B mov dword ptr [ebp-4],edi
04A51A8E mov esi,dword ptr [Me]
04A51A91 push esi
04A51A92 mov eax,dword ptr [esi]
04A51A94 call dword ptr [eax+4]
26: Public Property Get Member2() As Long
04A51A97 mov ecx,dword ptr [esi+38h]
04A51A9A mov dword ptr [Member2],edi
04A51A9D mov dword ptr [Member2],ecx
27: Member2 = mvarMember2
04A51AA0 mov eax,dword ptr [Me]
04A51AA3 push eax
04A51AA4 mov edx,dword ptr [eax]
04A51AA6 call dword ptr [edx+8]
04A51AA9 mov eax,dword ptr [Member2]
04A51AAC mov ecx,dword ptr [Member2]
04A51AAF mov dword ptr [eax],ecx
04A51AB1 mov eax,dword ptr [ebp-4]
04A51AB4 mov ecx,dword ptr [ebp-14h]
04A51AB7 pop edi
04A51AB8 pop esi
04A51AB9 mov dword ptr fs:[0],ecx
04A51AC0 pop ebx
04A51AC1 mov esp,ebp
04A51AC3 pop ebp
04A51AC4 ret 8
28: End Property
29:
04A51AD0 push ebp
04A51AD1 mov ebp,esp
04A51AD3 sub esp,0Ch
04A51AD6 push offset ___vbaExceptHandler (04a510e6)
04A51ADB mov eax,fs:[00000000]
04A51AE1 push eax
04A51AE2 mov dword ptr fs:[0],esp
04A51AE9 sub esp,8
04A51AEC push ebx
04A51AED push esi
04A51AEE push edi
04A51AEF mov dword ptr [ebp-0Ch],esp
04A51AF2 mov dword ptr [ebp-8],offset __imp___CIexp+44h (04a510d0)
04A51AF9 mov dword ptr [ebp-4],0
04A51B00 mov eax,dword ptr [Me]
04A51B03 push eax
04A51B04 mov ecx,dword ptr [eax]
04A51B06 call dword ptr [ecx+4]
30: Public Sub Break()
04A51B09 call ___vba [@] 0019D2EC (04a515c8)
04A51B0E call dword ptr [__imp____vbaSetSystemError (04a51010)]
31: DebugBreak
04A51B14 mov eax,dword ptr [Me]
04A51B17 push eax
04A51B18 mov edx,dword ptr [eax]
04A51B1A call dword ptr [edx+8]
04A51B1D mov eax,dword ptr [ebp-4]
04A51B20 mov ecx,dword ptr [ebp-14h]
04A51B23 pop edi
04A51B24 pop esi
04A51B25 mov dword ptr fs:[0],ecx
04A51B2C pop ebx
04A51B2D mov esp,ebp
04A51B2F pop ebp
04A51B30 ret 4

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)

Re[3]: Упаковка в ZIP и CAB

From: Максим Кнышов <knyshow [@] mail.dsip.net>


Привет A.!

МК>> Люди, больше никто никаких архиваторов не знает???

AS> Я писал модуль для работы с unrar.dll, но там есть левая библиотека-переходник

unrar же только распаковывает архивы, а мне нужна именно упаковка...
--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•





* Origin: КПКП "Транс Агентство" (2:5020/400)

Re[4]: Райт-клик на текстовом поле

From: Максим Кнышов <knyshow [@] mail.dsip.net>


Привет Sergey!

SM> Это простейший вид сабклассинга, множественные экземпляры формы не поддерживаются.

Пасиба, работает прекрасно! Подходит.

Топик можно ЗАКРЫТЬ!

--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•





* Origin: КПКП "Транс Агентство" (2:5020/400)

Re[4]: Упаковка в ZIP и CAB

From: Максим Кнышов <knyshow [@] mail.dsip.net>


Привет Nikolay!

NV> Используй компонент XceedZip c www.xceedsoft.com . Он умеет делать с ZIPом

NV> практически все. Кряк найдешь в Инете.

Интересный набор компонентов, но кряка в нете я не нашел...

И еще вопрос, если с тачки-на тачку гонять по одной ихней библиотеке - на каждой машине
нужно будет регистрировать библиотеку?


--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•





* Origin: КПКП "Транс Агентство" (2:5020/400)

Re[3]: Упаковка в ZIP и CAB

From: Максим Кнышов <knyshow [@] mail.dsip.net>


Привет Максим!

МК> Эту библиотеку я когда-то видел... Классная вешь.


Дима, свяжись со мной, плиз. Аська: 7737308

--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•





* Origin: КПКП "Транс Агентство" (2:5020/400)

Re: консоль и ANSII

Добpый день\утpо\вечеp\ночь, достопочтимый A. Skrobov!

20 февpаля 04 A. Skrobov (2:5020/400) => Dmitry Sergunin


DS>> 1. а без пеpекодиpовки никак нельзя, т.е. чтобы заставить

DS>> консоль ANSII-кодиpовку сходу отобpажать ?

AS> Так ASCII или ANSI? :-)

AS> Консоль афаик нельзя.

[... малость поскипано ...]

:-))) pука дpогнула --> лишнее I (по-пpивычке) получилось,

конечно ж, ANSI ...
было пеpед вызовом консольной пpоги (напpимеp, в батнике)
задать MODE CON: CP SELECT=1251, а затем и фонт использовать
типа Lucida Console, котоpый эту 1251 поддеpживает,
а по дефолту идут точечные шpифты (оне, оказца, без 1251)
запуск пpоги этот SELECT не pаспpостpаняет ...

вобщем, щас pаботает, а посему вопpос снят --> СПАСИБО


С бестами и pегаpдами
Dmitry ds [@] u-kon.ru
* Origin: Hичто не слишком! (2:5015/23.70)

Re: интимная связь VB и C

Мы где-то виделись, Alexander?

20 Feb 04 09:01:39 в RU.VISUAL.BASIC Alexander Trishin -> Dmitry Sergunin:


>> PS а, коль ты так хоpошо Си знаешь, можно к тебе с несколькими

>> вопpосами нетмылом или e-mail что-ли дай ?

AT> Хедеры читать умеешь? Козырев вон тоже Си знает ;)


А я еще крестиком вышивать умею (с)

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: Упаковка в ZIP и CAB

Мы где-то виделись, Максим?

19 Feb 04 13:33:25 в RU.VISUAL.BASIC Максим Кнышов -> Dmitriy:


МК> Люди, больше никто никаких архиваторов не знает???


А нафига? Для галочки? Смысла не вижу. Rar, Cab и Zip лидируют с огромным
отрывом по всем параметрам - и распространенность (Rar и Zip перенесены
практически подо все платформы, а разархиватор для Cab есть в каждой винде), и
степень сжатия (хотя, с одной стороны, у зипа последнее сильно хромает, а с
другой, существуют новые архиваторы, обгоняющие даже Rar - например, PPMd и
основанный на нем PPMonstr).

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)