packetaarp.cpp

protocol

//---------------------------------------------------------------------------


#pragma hdrstop

#include "PacketAARP.h"
#include "Functions.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
void PacketAARPParser(unsigned char *p_data,int index,Layer layer,Sel *SelInfo,NodeInfo *nodes0,
  NodeInfo *nodes1,NodeInfo *nodes2,TTreeView *tvPacket,unsigned int datalength)
  {
  	TTreeNode *mNodex;
    PACKET_AARP PAarp;

    mNodex = tvPacket->Items->Add(tvPacket->Selected,"AARP ( Address Resolution Protocol )");
    nodes0->Node[layer.layer1] = mNodex;
    SelInfo->Start1[layer.layer1] = index;
    if((index+10)>datalength){
        tvPacket->Items->AddChild(mNodex,"[ Malformed AARP packet. Remaining bytes don't fit an AARP packet. Possibly due to bad decoding ]");
        return;
    }

    PAarp.DataLinkHeader = Get2Bytes(p_data,index,1);
    SelInfo->Start2[layer.layer1][0] = index;
    index += 2;
    SelInfo->End2[layer.layer1][0] = index;
    nodes1->Node[layer.layer2++] = tvPacket->Items->AddChild(mNodex,"Data Link Header              : 0x"+IntToHex(PAarp.DataLinkHeader,4)+" ( "+PAarp.DataLinkHeader+" ) ");

    
    PAarp.HardwareType = Get2Bytes(p_data,index,1);
    SelInfo->Start2[layer.layer1][1] = index;
    index += 2;
    SelInfo->End2[layer.layer1][1] = index;
    nodes1->Node[layer.layer2++] = tvPacket->Items->AddChild(mNodex,"Hardware Type                 : 0x"+IntToHex(PAarp.HardwareType,4)+" ( "+PAarp.HardwareType+" ) ");

    PAarp.ProtocolType = Get2Bytes(p_data,index,1);
    SelInfo->Start2[layer.layer1][2] = index;
    index += 2;
    SelInfo->End2[layer.layer1][2] = index;
    nodes1->Node[layer.layer2++] = tvPacket->Items->AddChild(mNodex,"Protocol Type                 : 0x"+IntToHex(PAarp.ProtocolType,4)+" ( "+PAarp.ProtocolType+" ) ");
    
    PAarp.HALength = *(p_data+index);
    SelInfo->Start2[layer.layer1][3] = index;
    index += 1;
    SelInfo->End2[layer.layer1][3] = index;
    nodes1->Node[layer.layer2++] = tvPacket->Items->AddChild(mNodex,"Hardware Address Length       : 0x"+IntToHex(PAarp.HALength,2)+" ( "+IntToStr(PAarp.HALength)+" ) ");

    PAarp.PALength = *(p_data+index);
    SelInfo->Start2[layer.layer1][4] = index;
    index += 1;
    SelInfo->End2[layer.layer1][4] = index;
    nodes1->Node[layer.layer2++] = tvPacket->Items->AddChild(mNodex,"Protocol Address Length       : 0x"+IntToHex(PAarp.PALength,2)+" ( "+IntToStr(PAarp.PALength)+" ) ");

    PAarp.Function = Get2Bytes(p_data,index,1);
    SelInfo->Start2[layer.layer1][5] = index;
    index += 2;
    SelInfo->End2[layer.layer1][5] = index;
    nodes1->Node[layer.layer2++] = tvPacket->Items->AddChild(mNodex,"Function                      : 0x"+IntToHex(PAarp.Function,4)+" ( "+PAarp.Function+" ) ");

    SelInfo->Start2[layer.layer1][6] = index;
    index = datalength;
    SelInfo->End2[layer.layer1][6] = index;
    nodes1->Node[layer.layer2++] = tvPacket->Items->AddChild(mNodex,"Data");
    
    SelInfo->End1[layer.layer1] = index;    

}