C / C++ / MFC

CMainFrame *pMainFrm = ((CMainFrame*)(AfxGetApp()->m_pMainWnd)); 
	CFrameWnd *pFrame = new CFrameWnd;
	RECT rect;
	pFrame->Create(NULL,_T("Solution"), WS_OVERLAPPEDWINDOW ,rect,this);
	pFrame->ModifyStyle(WS_CAPTION + WS_OVERLAPPEDWINDOW , WS_BORDER,SWP_NOMOVE +SWP_NOZORDER );

	pFrame->InitialUpdateFrame(pMainFrm->GetActiveDocument(),TRUE);
	pFrame->SetWindowPos(&CWnd::wndTopMost,100,200,1000,400,SWP_SHOWWINDOW);
	pFrame->ActivateFrame(SW_SHOWNORMAL);

static /*const*/ char alphabet[] =
        "abcdefghijklmnopqrstuvwxyz"
        "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        "0123456789";


static /*const*/ int alphabet_size = sizeof(alphabet) - 1;

CString str_val=_T("");
void brute_impl(char * str, int index, int max_depth)
{
    int i;
    for (i = 0; i < alphabet_size; ++i)
    {
        str[index] = alphabet[i];

        if (index == max_depth - 1)
        {			
			str_val.Format("%s", str);

			//check the password here

        }
        else
        {
            brute_impl(str, index + 1, max_depth);
        }
    }
}

void brute_sequential(int max_len)
{
    char * buf = new char[max_len + 1];

	//buf = malloc(max_len + 1);
	    int i=0;

	while(buf[i] != NULL)
	{
		if(i==max_len+1)
			break;

		buf[i]='\0';

		i++;
	}

	CString str=_T("");
	str.Format("size of array is %d\n", i);


    for (i = 1; i <= max_len; ++i)
    {
        memset(buf, 0, max_len + 1);
        brute_impl(buf, 0, i);
    }

    free(buf);
}

// BCB VCL TCP Message Server
// Chin-Shiuh Shieh
// 2002-04-04
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

//--------------------Abrir el Servidor---------------------------------------//

void __fastcall TForm1::BAbrirClick(TObject *Sender)
{
//Configurar el número de puerto
        ServerSocket1->Port=StrToInt(Npuerto->Text);

//Abrir el servidor
        ServerSocket1->Open();

//Actualizar estado de los botones
        BAbrir->Enabled=false;
        BCerrar->Enabled=true;

//Informar de que se ha abierto el servidor
        BEstado->SimpleText="Servidor Conectado!";

//Indicar el número de conexionoes activas
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);

//Activar el Boton de enviar mensaje
        BEnviar->Enabled = true;
}

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

//---------------------Cerrar el Servidor-------------------------------------//

void __fastcall TForm1::BCerrarClick(TObject *Sender)
{
//Cerrar el Servicio
        ServerSocket1->Close();

//Actualizar estado de los botones
        BAbrir->Enabled=true;
        BCerrar->Enabled=false;

//Informar del cierre del servidor
        BEstado->SimpleText="Servidor Cerrado!";

//Actualizar el campo de nº de conectados
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);

//Desactivar el Boton de enviar mensaje
        BEnviar->Enabled = false;
}

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

//---------------------Cuando se Conecte un Cliente---------------------------//

void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Mostrar aviso en la barra de estado
        BEstado->SimpleText="Conectado desde  "+Socket->RemoteAddress;

//Actualizar el número de conectados
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);
}


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

//---------------------Al Desconectarse un Cliente----------------------------//

void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Actualizar el número de conectados
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections-1);

//Informar de la desconexión
        BEstado->SimpleText="Desconectado de "+Socket->RemoteAddress;
}
//----------------------------------------------------------------------------//

//---------------------Al recibir un Mensaje----------------------------------//

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Espacio para recibir el mensaje
char * buffer;
        int len;
        AnsiString Mensaje;
        int i;

// Recibir mensaje
int *tam;
tam = new int;
*tam = Socket->ReceiveLength();

len=Socket->ReceiveBuf(buffer,*tam);
buffer[len]=0;

//Estructura para mostrar el mensaje correctamente
TTime hora = TTime::CurrentTime();
AnsiString MensajeIn = Socket->RemoteAddress;
        MensajeIn += " A las " + TimeToStr(hora) + " Dice" "----->";

ChatBox->Lines->Add(MensajeIn +StrPas(buffer));
BEstado->SimpleText=IntToStr(len)+"Nuevo mensaje entrante!";

// Repetir el mensaje a los demás
Mensaje = StrPas(buffer);
strcpy(buffer,Mensaje.c_str());
for(i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
    ServerSocket1->Socket->Connections[i]->SendBuf(buffer,strlen(buffer));


delete[] buffer;
}

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

//--------------------Enviar un Mensaje---------------------------------------//
void __fastcall TForm1::BEnviarClick(TObject *Sender)
{
//Espacio para meter el mensaje
 char buffer[256];
 int i;

 //Recoger el Mensaje del campo de entrada
AnsiString Mensaje = CampoMensaje->Text;
strcpy(buffer,Mensaje.c_str());

//Enviarlo a los conectados
for(i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
    ServerSocket1->Socket->Connections[i]->SendBuf(buffer,strlen(buffer));

//Añadirlo al Chatbox
TTime hora = TTime::CurrentTime();
        ChatBox->Lines->Add("Servidor a las " +TimeToStr(hora)
        + " dice----->" + Mensaje);

}
//----------------------------------------------------------------------------//

//---------------------Borrar la Memo-----------------------------------------//
void __fastcall TForm1::LimpiarClick(TObject *Sender)
{
//Borrar
        ChatBox->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CampoMensajeKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == 13)
            TForm1::BEnviarClick(CampoMensaje);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NpuertoKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == 13)
            TForm1::BAbrirClick(Npuerto);         
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TcpServer1Accept(TObject *Sender,
      TCustomIpClient *ClientSocket)
{
//Configurar el número de puerto
        TcpServer1->RemotePort = StrToInt(Npuerto->Text);

//Abrir el servidor
        TcpServer1->Open();

//Actualizar estado de los botones
        BAbrir->Enabled=false;
        BCerrar->Enabled=true;

//Informar de que se ha abierto el servidor
        BEstado->SimpleText="Servidor Conectado!";

//Indicar el número de conexionoes activas
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);

//Activar el Boton de enviar mensaje
        BEnviar->Enabled = true;
        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TcpServer1CreateHandle(TObject *Sender)
{
//Actualizar el número de conectados
        NOnline->Text=IntToStr(TcpServer1->Active-1);

//Informar de la desconexión
        BEstado->SimpleText="Desconectado de "+TcpServer1->LocalHostName();
}
//---------------------------------------------------------------------------