Как переделать код PHP на VBA?

[Metrologik]

Добрый день! Как переделать код PHP под VBA?

function Signature( $params, $api_key )
{
$params = array(
    'timestamp' => '1501052684',
    'login'     => 'YourLogin',
    'phone'     => '0',
    'sender'    => 'smstest'
    'text'      => 'Long text'
);
 
//сортировка по алфавиту
    ksort( $params );
    reset( $params );
  
//преобразовывание результата сначала в строку, потом в md хеш
    return md5( implode( $params ) . $api_key );
}

[kuklp]

Кросс:
http://www.planetaexcel.ru/forum/ind...-kod-php-v-vba

[p51x]

Учитывая что здесь только задание массива и нет реализации остальных функций, то никак.

[EducatedFool]

Примерно так получится:

Function CreateURL(ByVal URL$, ParamArray params()) As String
    On Error Resume Next
    Dim dic As New Dictionary, i&, j&, tmp$, login$, APIkey$, arr, signature$, LoginAndKey$

    dic.Add "timestamp", GetTimestamp
    dic.Add "return", "xml"

    If Not IsMissing(params) Then
        For i = LBound(params) To UBound(params)
            If params(i) Like "?*=?*" Then dic.Add Split(params(i), "=")(0), Split(params(i), "=", 2)(1)
        Next i
    End If

    ' сначала надо проверить, заданы ли логин и API ключ
    If dic.Exists("LoginAndKey") Then        ' на случай проверки логина-ключа
        login$ = Split(dic.Item("LoginAndKey"), "|")(0)
        APIkey$ = Split(dic.Item("LoginAndKey"), "|", 2)(1)
        dic.Remove "LoginAndKey"
    Else        ' берем ранее сохранённые настройки
        login$ = Trim(SETT.GetText("TextBox_Login"))
        APIkey$ = Trim(SETT.GetText("TextBox_APIkey"))
    End If
    dic.Add "login", login$

    ' сортировка параметров
    arr = dic.Keys
    For i = 0 To UBound(arr)
        For j = 0 To UBound(arr) - 1
            If arr(j) > arr(j + 1) Then tmp$ = arr(j): arr(j) = arr(j + 1): arr(j + 1) = tmp
        Next j
    Next i

    ' формируем строку из значений параметров
    For i = 0 To UBound(arr)
        signature$ = signature$ & dic.Item(CStr(arr(i)))
    Next i
    ' Debug.Print signature$ & APIkey$
    'signature$ = GetHash(signature$ & APIkey$) ' old version - sometimes it doesn't work
    signature$ = Calculate_MD5(signature$ & APIkey$)        ' new version

    ' Debug.Print signature$
    dic.Add "signature", signature$

    Dim key, parameters$, encode As Boolean
    For Each key In dic.Keys
        encode = InStr(1, "login|signature|timestamp|return|phone|sender", key, vbTextCompare) = 0
        parameters$ = parameters$ & IIf(parameters$ = "", "?", "&") & key & "=" & _
                      IIf(encode, URL_EncodeAll(dic.Item(key)), dic.Item(key))
    Next
    CreateURL = PROTOCOL & URL$ & parameters$
    Set dic = Nothing
End Function