VPF::Перенести код с VB на PHP - Форум программистов

Stigmat

Дата 5.10.2012, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 19.8.2006

Репутация: нет
Всего: нет

Добрый день, товарищи.

Возможно кто-то подскажет.

Перед мной стоит задача перенести код с VB на PHP

Код - функция декодирования
VB-code

Код


Friend Shared Function DecriptaRSA(ByVal Source As String, ByVal vKey As String) As String
       Dim des As New TripleDESCryptoServiceProvider()
       Dim hashmd5 As New MD5CryptoServiceProvider()
       des.Key = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(vKey))
       des.Mode = CipherMode.ECB
       Dim desdencrypt As System.Security.Cryptography.ICryptoTransform
       desdencrypt = des.CreateDecryptor()
       Dim buff() As Byte = Convert.FromBase64String(Source)
       Return ASCIIEncoding.ASCII.GetString(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))
   End Function

.

Мой код на PHP

Код


function __decode($text, $key){        
     $td = mcrypt_module_open ('tripledes', '', MCRYPT_MODE_ECB, '');
    $ks = mcrypt_enc_get_key_size ($td);
        $iv = mcrypt_create_iv (mcrypt_enc_get_iv_size ($td), MCRYPT_RAND);     
    $key = substr(md5 ($key), 0, $ks);

    if (mcrypt_generic_init ($td, $key, $iv) > -1) {

                $decode_text = mdecrypt_generic ($td, base64_decode($text));
                mcrypt_generic_deinit ($td);
                mcrypt_module_close ($td);
                return $decode_text;
        }
}

К сожалению декодировать данные не получается.
Возможно, кто-то видит явное различие.
Т.к. я с трудом понимаю код VB.

Я был бы очень признателен если бы кто-то из специалистов по VB мог бы прокомментировать каждую строчку кода, чтоб потом возможно было еще раз переосмыслить и дописать PHP код.

Это сообщение отредактировал(а) Stigmat - 8.10.2012, 11:16

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »