Кто знает PHP?

[jangle]

Помогите перевести код на VB

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

function tripcode($plain)
{
    $salt = substr($plain."H.",1,2);
    $salt = ereg_replace("[^\.-z]",".",$salt);
    $salt = strtr($salt,":;<=>?@[\\]^_`","ABCDEFGabcdef"); 
    return substr(crypt($plain,$salt),-10);
}

crypt - это функция шифрования DES?

[FireFenix]

http://www.php.net/manual/en/function.crypt.php

[Хакер]

В VB строки юкниодные, а в PHP — ансишные. Давай на Си переведу.

[jangle]

http://www.php.net/manual/en/function.crypt.php

Элементарно, Ватсон!

Спасибо FireFenix, буду разбираться!

В VB строки юкниодные, а в PHP — ансишные. Давай на Си переведу.

Ну если не трудно, переведи. Про ансишные строки в PHP не знал

[jangle]

Мне не непонятно это место

$salt = substr($plain."H.",1,2);

Почему текстовая переменная записана черех точку со строкой "H." ?

[Хакер]

Точка — оператор конкатенации. И там должно быть "H..", иначе получится неправильный трипкод.

[Хакер]

Получилось длинно и магик-кодингово:

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

inline char clean_salt_char(char c)
{
    if(c < '.' || c > 'z')
    {
        return '.';
    }
    else if(c < ':' || c > '`')
    {
        return c;
    }
    else
    {
         return c + (c < '[' ? 'A' - ':' : 'a' - '[');
    }
}

char* tripcode(const char* plain)
{
    char salt[3];
    switch(strlen(plain))
    {
    case 0:
        salt[0] = salt[1] = '.';
        break;
    case 1:
         salt[0] = 'H';
         salt[1] = '.';
    case 2:
         salt[0] = clean_salt_char(plain[1]);
         salt[1] = 'H'
         break;
    default:
         salt[0] = clean_salt_char(plain[1]);     
         salt[1] = clean_salt_char(plain[2]);
    }       
    char* ptr_to_buffer_with_result_allocated_inside_crypt_function;
    size_t size_of_buffer_with_result_allocated_inside_crypt_function;
    crypt(plain,
                salt,
                &ptr_to_buffer_with_result_allocated_inside_crypt_function,
                &size_of_buffer_with_result_allocated_inside_crypt_function);
     char* result = (char*)malloc(11);
     memcpy(result, ptr_to_buffer_with_result_allocated_inside_crypt_function + size_of_buffer_with_result_allocated_inside_crypt_function - 11, 11);
     function_that_should_free_buffer_allocated_in_crypt_function(ptr_to_buffer_with_result_allocated_inside_crypt_function);
     return result;
);

}

function tripcode($plain)
{
    $salt = substr($plain."H.",1,2);
    $salt = ereg_replace("[^\.-z]",".",$salt);
    $salt = strtr($salt,":;<=>?@[\\]^_`","ABCDEFGabcdef");
    return substr(crypt($plain,$salt),-10);
}


[jangle]

Точка — оператор конкатенации. И там должно быть "H..", иначе получится неправильный трипкод.

Тоесть в PHP коде была ошибка?

Получилось длинно и магик-кодингово:

А код правильно работает? Например при входном параметре "tripcode" какой у него трипкод получается?

[FireFenix]

Мне не непонятно это место
$salt = substr($plain."H.",1,2);
Почему текстовая переменная записана черех точку со строкой "H." ?

По дефолту crypt даёт DES c 2х байтной солью...

"H." добавляется только чтобы, если длина $plain < 2, то сгенерилось на основе "H."

Но т.к. используется выборка не substr($plain . 'H', 0, 2) то $plan должно содержать хотябы 1 символ

[Хакер]

Правильнее вообще-то "H."

Правильно — H... Читай описание алгоритма генерации трипкода, что-ли. Потому что берётся второй и третий символ, и при пустой строке "H." не хватит, чтобы взять третий символ.

[Хакер]

Правильнее вообще-то "H."

Правильно — H... Читай описание алгоритма генерации трипкода, что-ли. Потому что берётся второй и третий символ, и при пустой строке "H." не хватит, чтобы взять третий символ.

А код правильно работает? Например при входном параметре "tripcode" какой у него трипкод получается?

Без понятия, писал в форме ответа. Наверное правильно.

[FireFenix]

Правильнее вообще-то "H."

Правильно — H... Читай описание алгоритма генерации трипкода, что-ли. Потому что берётся второй и третий символ, и при пустой строке "H." не хватит, чтобы взять третий символ.

Беда, я забыл что substr в php отсчитывает с 0, а не как VB c 1

[Хакер]

Стоило ли исправлять меня?