<?php

$Caracter = 'S';
echo $Caracter;
?>

char  Buffer;
 DWORD BytesRead=0;

  const ::HINTERNET sesion = InternetOpen("agent",INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL,0);
  if(sesion!=NULL)
  {

     AnsiString Url = "http://www.MIWEB.ES";
     const ::HINTERNET handle = ::InternetOpenUrl(sesion,Url.c_str(),NULL,0, INTERNET_FLAG_RELOAD, 0);
     if(handle!=NULL)
     {
        while(InternetReadFile(handle,&Buffer,sizeof(Byte),&BytesRead))
        {
          if(BytesRead==0){break;}
        }
    }
    InternetCloseHandle(handle);
  }
  else
  {

  }
  InternetCloseHandle(sesion);

 
main
{
...........
 recursiva(2513169434916L, 0, 1, 14, 2513169509823);
}


void recursiva(long long Z, byte P, byte H, byte X, long long K)
{

 long long int num = 7L << (int)(3 * P);

 for (byte b = P; b < X; b += 1)
  {
   for (short num2 = 1; num2 >= 0; num2 -= 1)
    {
    long long  num3 = (Z & ~num) | 1L << (int)((short)(b * 3) + num2);
    if (P < H)
      {
         recursiva(num3, b + 1, H + 1, X, K);
      }
    }
   num <<= 3;
  }
}	

int []array1 = new int [4];

int []array2 = array1;