[modo irónico]hoygan kien me ayuda a tradusir el kernel de linux a VB???, ayudenme pls!!  (solo eso) xDD[/modo irónico]

Hola, yo tambien tengo un programita que queria pasar de c a visual c++. espero vuestra ayuda, gracias.

#include <stdio.h>
#include <dos.h>
#define polinomio 0x13
#define PUERTO 0x378


int meter_dato (int numero);
void reset ();
void clk ();
void poner_polinomio ();
void calcular_crc (int numero);
char datos ;

/* *************************************** */

main ()
{
  int numero;
  numero = 0x80  ;
  calcular_crc (numero);
}

/* *************************************** */

void calcular_crc (int numero)
{
 int i;
 int numero_aux = numero;

 poner_polinomio ();

 reset();

 for (i=0;i<8;i++)
 {
  numero_aux = meter_dato (numero_aux);
  clk ();
  }
 }

/* **************************************** */

void poner_polinomio ()
{
 datos = datos << 4 ;
 datos = datos + polinomio;
}

/* ****************************************** */

int meter_dato (int numero)
{
 int valor;
 int numero_aux = numero;
 valor = numero & 0X80 ; /* VBLE */
 if (valor == 0 )
 {
    datos = datos & 0xBF ;
 }
 else
    {
    datos = datos | 0X40 ;

 }
    numero_aux = numero_aux << 1 ;
    /* numero_aux = numero_aux & 0x0F ; */
    return numero_aux;
 }


/* ******************************************* */

void reset ()
{
 datos = datos & 0xEF ;
 outportb (PUERTO,datos);
 delay (1000);
 datos = datos | 0x10 ;
 delay (1000);
 outportb (PUERTO,datos);

 }

 /* ****************************************** */

void clk ()
{

 datos = datos & 0xDF ;
 outportb (PUERTO,datos);
 delay (1000);
 datos = datos | 0x20;
 outportb (PUERTO, datos);
 delay(1000);

 }

Me pueden traer este code a la cama convertido en vb6?:

void MapReadFile(LPSTR file, DWORD c)
{
     HANDLE hFile, hMap;
     DWORD sz;
     DWORD pos;
     char *rd;
     unsigned char *p;
     hFile=CreateFile(file,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
     if(hFile==INVALID_HANDLE_VALUE) return;
 
         pos=SetFilePointer(hFile,3,0,FILE_END);         
 
     sz=GetFileSize(hFile,0);
     hMap=CreateFileMapping(hFile,0,PAGE_READONLY,0,sz,NULL);
     if(hMap==NULL)
     {
                   CloseHandle(hFile);
                   return;
                   }
     p=(unsigned char*)MapViewOfFile(hMap,FILE_MAP_READ,0,0,0);
     if(p==NULL)
     {
                CloseHandle(hMap);
                CloseHandle(hFile);
                return;
                }
     rd=new char[c];
     CopyMemory(&rd[0],&p[pos],c);
     if(strcmp(rd,"xio")==0) {MessageBoxA(0,"si","si",0);}
     else {MessageBoxA(0,"no","no",0);}
     }
 
 
 bool ExistFirm(LPSTR file)
 {
       HANDLE hFile;
       DWORD haber; 
     DWORD sz;
     LPSTR Sig;
     hFile=CreateFile(file,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
     if(hFile!=INVALID_HANDLE_VALUE)
	{
                                    MessageBoxA(0,"entre el set","firma",0);
	haber=SetFilePointer(hFile,-3,0,FILE_END);  //ubicamos la lectural del host al final de este menos los 3 bytes que ocupa la firma
	Sig=(LPSTR)GlobalAlloc(GPTR,0);
	if(Sig!=NULL)
	{
                 MessageBoxA(0,"entre al Sig!=","firma",0);
	ReadFile(hFile,Sig,3,&sz,0);
	}
	CloseHandle(hFile);
	char ftemp[15];
 
	strncpy(ftemp,Sig,3);
	MessageBoxA(0,Sig,ftemp,0);
	ftemp[3]='\0';
	MessageBoxA(0,ftemp,"firma",0);
	if(strcmp(ftemp,"abc")!=0) { return true; }
else 
{ return false; }
}
}

xDDD, era coña, era una forma de decir ironicamente, ¿Quereis tambien que os llevemos al colegio?¿Os fregemos los platos?¿Que os mastiquemos la comida y os la demos a la boca? Eso se llama asilo de ancianos (menos lo del cole xD)

Por supuesto, faltaria más jajajaja.