WFP. ClassifyFn и BSOD

void _stdcall OnClassify(
    __in    FWPS_INCOMING_VALUES0 const           * pInFixedValues,
    __in    FWPS_INCOMING_METADATA_VALUES0 const  * pInMetaValues,
    __out   VOID                                  * pLayerData,
    __in    FWPS_FILTER0 const                    * pFilter,
    __in    UINT64                                  FlowContext,
    __out   FWPS_CLASSIFY_OUT0                    * pClassifyOut)
{
    NTSTATUS status = STATUS_SUCCESS;
 
    NET_BUFFER_LIST* netBufferList,
        *clonedNetBufferList;
    FWPS_PACKET_INJECTION_STATE injectionState;
    FWPS_TRANSPORT_SEND_PARAMS0* tlSendArgs;
    NET_BUFFER* buf;
    int sizeOfPackage,
        j, where;
    char strr[14];
 
    status = STATUS_SUCCESS;
    netBufferList = (NET_BUFFER_LIST*)pLayerData;
    clonedNetBufferList = NULL;
    tlSendArgs = NULL;
    sizeOfPackage = 0;
    j = 0;
 
    /* Проверям, не был ли пакет встроен в стек TCP/IP заранее */
    injectionState = FwpsQueryPacketInjectionState0(
        inject,
        netBufferList,
        NULL);
 
    if (injectionState == FWPS_PACKET_INJECTED_BY_SELF ||
        injectionState == FWPS_PACKET_PREVIOUSLY_INJECTED_BY_SELF)
    {
        pClassifyOut->actionType = FWP_ACTION_PERMIT;
        pClassifyOut->rights &= ~FWPS_RIGHT_ACTION_WRITE;
        return;
    }
 
    pClassifyOut->rights &= FWPS_RIGHT_ACTION_WRITE;
 
    /* Находим размер всего пакета */
    for (buf = NET_BUFFER_LIST_FIRST_NB(netBufferList); buf != 0;
    buf = NET_BUFFER_NEXT_NB(buf))
        sizeOfPackage += NET_BUFFER_DATA_LENGTH(NET_BUFFER_LIST_FIRST_NB(netBufferList));
 
    if (sizeOfPackage < 170)
    {
        pClassifyOut->actionType = FWP_ACTION_PERMIT;
        goto Exit;
    }
 
    /* Создем клона netBufferList */
    status = FwpsAllocateCloneNetBufferList0(netBufferList, 0, 0,
        0, &clonedNetBufferList);
 
    /* Этот цикл просматривает все NET_BUFFER на наличие интересной информации */
    for (buf = NET_BUFFER_LIST_FIRST_NB(clonedNetBufferList); buf != 0;
    buf = NET_BUFFER_NEXT_NB(buf))
    {
        int sizeOfBlock;
        char* data, curr[4];
        int i;
 
        /* Размер блока */
        sizeOfBlock = NET_BUFFER_DATA_LENGTH(buf) - 1;
 
        /*!!! Получаем информацию с NET_BUFFER */
        data = (char*)NdisGetDataBuffer((PNET_BUFFER)buf, sizeOfBlock, 0, 1, 0);
 
        for (i = sizeOfBlock; i >= 0; --i)
        {
            if (data[i] == '@')
            {
                int k, curDigits, digitCount;
 
                while (i < sizeOfBlock && tolowerD((int)data[i]) != 'v') 
                    strr[j++] = data[i++];
                
                /* Если интересующая нас информация располагается в нескольких 
                   NET_BUFFER — ну ее к черту, уходим. */
 
                
                if (i == sizeOfBlock && data[i - 1] != 'v')
                    goto Exit;
 
                parse(strr, &curDigits, curr);
 
                /* digitCount — число, определяющее, сколько байтов нужно добавить в пакет */
                if ((digitCount = strlen(curr) - curDigits) < 0)
                    goto Exit;
 
                /* Смещаем все байты до на digitCount (за счет NonUsedBlock, вроде) */
                for (k = 0; k <= where; ++k)
                    *(data - digitCount + k) = *(data + k);
 
                /* Смещаем смещение и длину данных в buf*/
                NET_BUFFER_DATA_OFFSET(buf) -= digitCount;
                NET_BUFFER_DATA_LENGTH(buf) += digitCount;
 
                /* Записываем данные */
                for (k = 0; k < strlen(curr); ++k)
                    data[where++] = curr[k];
 
                /* Корректируем MDL (мы ведь изменили Offset и Data_Length) */
                NdisAdjustNetBufferCurrentMdl(buf);
 
                /* Инжектим клона в стек */
                status = FwpsInjectTransportSendAsync(inject, 0, pInMetaValues->transportEndpointHandle,
                    0, 0, AF_INET, UNSPECIFIED_COMPARTMENT_ID, clonedNetBufferList, InjectionCompletionFn, 0);
 
                if (NT_SUCCESS(status))
                    pClassifyOut->flags |= FWPS_CLASSIFY_OUT_FLAG_ABSORB;
                else
                    goto Exit;
 
                clonedNetBufferList = 0;
 
                goto Exit;
            }
        }
    }
Exit:
    if (clonedNetBufferList)
        FwpsFreeCloneNetBufferList(clonedNetBufferList, 0);
 
    pClassifyOut->actionType = FWP_ACTION_BLOCK;
    pClassifyOut->rights &= ~FWPS_RIGHT_ACTION_WRITE;
}