powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перенос функции с php на VB
10 сообщений из 10, страница 1 из 1
Перенос функции с php на VB
    #38828820
korshun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет, возникла острая необходимость "повторить" в VB функцию, которая уже реализована на PHP.
Может кто-нибудь помочь в этом, ибо сам VB только издали видел :(

Код: php
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
    protected function encrypt($str, $key){
        $str = serialize($str);
        $iv = mcrypt_create_iv(mcrypt_get_iv_size(MCRYPT_RIJNDAEL_256, MCRYPT_MODE_CBC), MCRYPT_DEV_URANDOM);
        $key = pack('H*', $key);
        $mac = hash_hmac('sha256', $str, substr(bin2hex($key), -32));
        $passcrypt = mcrypt_encrypt(MCRYPT_RIJNDAEL_256, $key, $str.$mac, MCRYPT_MODE_CBC, $iv);
        $encrypted = base64_encode($passcrypt).'|'.base64_encode($iv);
        return $encrypted;
    }

    protected function decrypt($str, $key){
        $str = explode('|', $str.'|');
        $decoded = base64_decode($str[0]);
        $iv = base64_decode($str[1]);
        if(strlen($iv)!==mcrypt_get_iv_size(MCRYPT_RIJNDAEL_256, MCRYPT_MODE_CBC)){ return false; }
        $key = pack('H*', $key);
        $decrypted = trim(mcrypt_decrypt(MCRYPT_RIJNDAEL_256, $key, $decoded, MCRYPT_MODE_CBC, $iv));
        $mac = substr($decrypted, -64);
        $decrypted = substr($decrypted, 0, -64);
        $calcmac = hash_hmac('sha256', $decrypted, substr(bin2hex($key), -32));
        if($calcmac!==$mac){ return false; }
        $decrypted = unserialize($decrypted);
        return $decrypted;
    }
...
Рейтинг: 0 / 0
Перенос функции с php на VB
    #38828824
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
давайте на всякий случай уточним - на VB "какой марки", чтобы не сделать лишней работы
...
Рейтинг: 0 / 0
Перенос функции с php на VB
    #38828830
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Перенос функции с php на VB
    #38828864
korshun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, версия 6.0
...
Рейтинг: 0 / 0
Перенос функции с php на VB
    #38834753
korshun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
up :(
...
Рейтинг: 0 / 0
Перенос функции с php на VB
    #38834767
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
korshun,

А чем вас ссылка Константина не устроила?
...
Рейтинг: 0 / 0
Перенос функции с php на VB
    #38834838
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
korshun,

По факту не только этот приведенный кусочек кода надо переводить, но и остальные функции, которые используются. Что не так просто.
base64_decode - функция декодирования, зашитая в PHP
serialize - тоже зашитая функция, которая сохраняет переменную для использования в дальнейшем без потери типов и структуры
Да и почти все остальные функции надо так же переводить на VB, чтобы перевести этот маленький кусочек. Какими-то можно пожертвовать. А на выходе получите все равно то, что выше привел Konst_One . Там как раз реализация кодирования информации. Поэтому вопрос: какова цель перевода именно этого кода PHP на VB?
...
Рейтинг: 0 / 0
Перенос функции с php на VB
    #38834855
korshun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Prokorshun,

А чем вас ссылка Константина не устроила?
При переходе по ссылкам вылазит ошибка - An error occurred (mOutputGenericError), я даже посмотреть не могу, что там предлагается.

The_Pristkorshun,

По факту не только этот приведенный кусочек кода надо переводить, но и остальные функции, которые используются. Что не так просто.
base64_decode - функция декодирования, зашитая в PHP
serialize - тоже зашитая функция, которая сохраняет переменную для использования в дальнейшем без потери типов и структуры
Да и почти все остальные функции надо так же переводить на VB, чтобы перевести этот маленький кусочек. Какими-то можно пожертвовать. А на выходе получите все равно то, что выше привел Konst_One . Там как раз реализация кодирования информации. Поэтому вопрос: какова цель перевода именно этого кода PHP на VB?
Я это все понимаю :(
Суть такая, что есть БД, в которой данные хранятся в зашифрованном виде именно с помощью вышеуказанных php'шных функций.
Теперь встала задача сделать утилитку, что бы дергать данные из access'а и заносить в эту БД. Соответственно встал вопрос написания этих функций для VB, т.к. программист делает эту утилитку на VB.
...
Рейтинг: 0 / 0
Перенос функции с php на VB
    #38834863
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
там что-то у них на сайте случилось
можете пока вот это глянуть : http://www.freevbcode.com/ShowCode.asp?ID=2389
...
Рейтинг: 0 / 0
Перенос функции с php на VB
    #38835192
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
korshunт.к. программист делает эту утилитку на VBНу так пусть он и переводит :-)
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перенос функции с php на VB
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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