Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перенос функции с php на VB / 10 сообщений из 10, страница 1 из 1
09.12.2014, 12:34
    #38828820
korshun
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос функции с php на VB
Привет, возникла острая необходимость "повторить" в 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
09.12.2014, 12:36
    #38828824
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос функции с php на VB
давайте на всякий случай уточним - на VB "какой марки", чтобы не сделать лишней работы
...
Рейтинг: 0 / 0
09.12.2014, 12:39
    #38828830
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос функции с php на VB
...
Рейтинг: 0 / 0
09.12.2014, 13:04
    #38828864
korshun
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос функции с php на VB
Shocker.Pro, версия 6.0
...
Рейтинг: 0 / 0
16.12.2014, 10:01
    #38834753
korshun
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос функции с php на VB
up :(
...
Рейтинг: 0 / 0
16.12.2014, 10:12
    #38834767
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос функции с php на VB
korshun,

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

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

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

The_Pristkorshun,

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


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