VB & libmcrypt.dll

[JohnK]

Есть библиотечка для шифрования libmcrypt.dll
Как к ней подступиться?
Я так понял нужно сделать TLB, тогда вопрос как?

PS. mktyplib не нашел...

[Хакер]

Э... найти mktypelib или midl, сперва.

[JohnK]

Все же MKTYPLIB.EXE

А чем генерить ODL ? MKTYPLIB.EXE просит ODL файл...

[Хакер]

Блокнотом.

[JohnK]

Ага, понял... Это ж язык такой.

Тогда как мне сие чудо описать?

Код: Выделить всё

string mcrypt_encrypt ( string $cipher , string $key , string $data , string $mode [, string $iv ] )

Нужно найти синтаксис ODL ...

P.S. А как будет лучше работатьс библиотечко. Может так?

Код: Выделить всё

ret = LoadLibrary(App.Path & "\" & LibName)
pa = GetProcAddress(ret, "mcrypt_encrypt")


Вот только вопрос как мне строку эту забрать. Как это делает PHP? Он должен передавать ValByRef, а я должен CopyMemory?

[JohnK]

Странно, довольно распространенная библиотечка. Неужели одному мне понадобилась она?

Кратко по задаче:
Сервер (Apache + PHP) присылает мне ответ закодированный libmcrypt, ключ я знаю. Мне нужно строку раскодировать.

[Хакер]

Найди нормальный прототип.

[JohnK]

Вот нашел:

Код: Выделить всё

   MCRYPT mcrypt_module_open(char *algorithm,
              char *a_directory, char *mode,
              char *m_directory);
   int mcrypt_module_close(MCRYPT td);

   int mcrypt_generic_init(const MCRYPT td, void *key, int lenofkey,
            void *IV);
   int mcrypt_generic_deinit(const MCRYPT td);

   int mdecrypt_generic(MCRYPT td, void *plaintext, int len);
   int mcrypt_generic(MCRYPT td, void *plaintext, int len);



Я не пойму откуда взять uuid ? Можно любой "случайный" написать, или только используя uuidgen.exe?

#define RTCALL _stdcall

[
uuid(C6799410-4431-11d2-A7F1-00A0C91110C3),
lcid (0), version(6.0), helpstring("McryptSupport for VB6")
]

[Хакер]

Я не пойму откуда взять uuid ?

Для чего? Для функций, модулей он не нужен, для библиотеки — сгенерируй случайный (тем же uuidgen-ом).

[JohnK]

А как выглядит скелет obl файла, скажем для одной функции.

У меня mktyplib.exe ругается: fatal error M0006: unable to pre-process input file

[Хакер]

Код: Выделить всё

library
{
     module
     {
          function
     }
}

[JohnK]

Т.е. будет правильно ?

Код: Выделить всё

library
{
   #define LONG int
   #define INTEGER short
   typedef [uuid(C976801A-64E5-4c51-A94D-F4BB74363CD0)] short IntByVal;
   typedef [uuid(68F3A023-A663-4bac-A666-449F16223E5B)] short* IntByRef;
   typedef [uuid(EA1387E8-F516-460f-9E45-97F835426AE1)] int LongByVal;
   typedef [uuid(CA7559FA-0DE6-456d-92C0-8EAB8D59BD87)] int* LongByRef;
   typedef [uuid(3D57696A-BFC4-46f6-9F8C-6BE64F7FA76D)] BSTR StrByVal;
   typedef [uuid(4B44C940-89CD-4960-B7FF-5788E08BEC85)] BSTR* StrByRef;
   typedef [uuid(A10DA8C9-80CA-456b-AAE3-B5ACCA4C29F8)] LPSTR StrAnsiByVal;
   typedef [uuid(14A19CF8-3FC9-4167-AF70-2A2893EDAB02)] LPSTR* StrAnsiByRef;
   typedef [uuid(BBE81479-95BB-4ff5-900F-12DB1A72E03E)] unsigned char BYTE;
   typedef [uuid(20A967B7-DB8C-4d28-8815-ED42DA923967)] void* ANY;
     module
     {
           LONG mcrypt_module_open(StrAnsiByRef algorithm, StrAnsiByRef a_directory, StrAnsiByRef mode, StrAnsiByRef m_directory);
           LONG mcrypt_module_close(LongByVal td);
           LONG mcrypt_generic_init(LongByVal td, StrAnsiByRef key, LongByVal lenofkey);
           LONG mcrypt_generic_deinit(LongByVal td);
           LONG mdecrypt_generic(LongByVal td, StrAnsiByRef plaintext, LongByVal len);
           LONG mcrypt_generic(LongByVal td, StrAnsiByRef plaintext, LongByVal len);
     }
}


[Хакер]

Компилятор ODL и проверка результата даст тебе правильный ответ с большей вероятностью , чем я.

[JohnK]

Сейчас придется Visual Studio полную поставить. Не могу нигде найти cl.exe, из-за котрого ругается mktyplib.exe (fatal error M0006: unable to pre-process input file)

[JohnK]

Выдает

Bad dll calling convention

Откуда VB узнает это? В dll прописывается тип соглашения и как его поменять?
Написал для эксперимента простую функцию сложения dll на VC, попробывал использовать в VB - работает. Ничего не пойму.

[Хакер]

Он проверяет стек. Если стек сломан, кричит. Стек сломан.

[JohnK]

Стек ломается из-за чего? Из-за того что вызвваемая функция "откусывает" больше стека, чем ей передается. Значит я неправильно передаю параметры?

P.S.
Просто уже весь проект сделан на VB, и мне приходится извращатся.

Я уже запутался. Есть у меня функция:

Код: Выделить всё

Private Declare Function mUpperCase Lib "Mydll.DLL" Alias "UpperCase" (ByVal lpStr As String) As Long

Но ничего не происходит..

в TASM работает,я вызываю ее так:

Код: Выделить всё

   call   UpperCase,offset Mystring

В чем прикол?

[Хакер]

Из-за того, что нарушено соглашение насчёт того, кто и как очищает стек. То есть ты передал больше параметров, или передал меньше параметров, или передал столько, сколько надо, но функция их не убрала из стека (потому что cdecl, например, или fastcall).

[JohnK]

Из-за безрезультатных попыток сделать TBL файл, я решил сделать обвертку на TASM и через свою библиотечку обращаться к этой злополучной libmcrypt.dll

[JohnK]

Да.. Тут дело не в конвенции, а в том, что VB делает со строками...

Вверху строка в ASCII формате. Внизу VB преобразовал строку непонятно во что (WIn1251???)

Код: Выделить всё

Option Explicit

Private Declare Function mUpperCase Lib "E:\vb\prog\TASM_VB_test\Mydll.DLL" Alias "UpperCase" (ByVal lpStr As String) As Long

Private Sub Form_Load()
Dim tmpStr As String
tmpStr = "привет"
mUpperCase tmpStr
MsgBox tmpStr '
End
End Sub


[Хакер]

Нет, дело именно в конвенции. И VB делает со строками ровно то, что ты ему скажешь (в зависимости от выбранного типа: LP(C)STR или LP(C)WSTR.

[JohnK]

Т.е. все сводится к TLB? Если там описать как LP(C)STR, произойде долгожданное чудо?

[Хакер]

Если там LPSTR, то будет конвертация Unicode->Ansi, если там LPWSTR, то конвертации не будет.

[JohnK]

Так что получается. Если я даже укажу

Код: Выделить всё

StrConv(tmpStr, vbFromUnicode)

Он все равно перед вызовом переведет в Unicode?

[Хакер]

Он никогда не переводит ничего в юникод. Он либо переводит в A, либо оставляет в W.

Если функция ждёт ANSI-строку, худшее, что можно придумать: объявить параметр как LPWSTR и конвертировать самому. По-первых, это некрасиво, во-вторых, StrConv из vbNullString делает пустую строку, что часто чревато печальными последствиями. Встроенная конвертация vbNullString оставляет как vbNullString.

[JohnK]

В дебагере провел весь день. Наконец-то получилось расшифровать строку используя библиотечку.
НО! Это все получилось в TASM`е. Как же теперь реализовать на VB?
Насколько я понял если функции в библиотеки объявляются как stdcall, в VB с ними нет проблем. Если используется конвенция cdecl, тогда труба. Здесь же и должен помочь TLB.

[JohnK]

C TLB ничего не получилось (да и времени не было) сделал как и планировал. VB прога -> asm.dll ->libmcrypt.dll

P.S. Дествительно VB ничего ужасного не делает со строками.
Спасибо всем за участие!

[Vi]

Недавно попался пример, как вызывать из VB функции cdecl и прочие. Реализация - cls файл. Если интересует, то скажите, где можно запостить. Код не мой, гарантий нет, но идея интересная.

[alibek]

Прям тут, в FAQ перенесем.

[Vi]

Прям тут, в FAQ перенесем.

http://www.rsdn.ru/forum/vb/3523891.1.aspx - исходное сообщение - можно его не смотреть, т.к. тут вся информация изложена ниже.

Вложение с проектом, адаптированном (в пику исходному) к чему-то, я не понял к чему - http://files.rsdn.ru/52947/CallFuncByPtr.rar.

Копирайт - Спионерено отсюда - http://translate.google.com/translate?u ... uage_tools"

Если причесать, то может получиться удобная штука.


vbskb_api vbskb_cdecl vbskb_call vbskb_dll