اشکال در برگردان یک کد از C++ به VB6

[djfalcon2005]

سلام دوستان
این مشکلی که من پیدا کردم شاید به نظر ساده حل شه ولی من 2 روز تمام وفت گداستم نتونستم حلش کنم
اینجا مطرحش می کنم شاید شما دوستان تونستید حلش کنید

اما مشکل:

من می خوام این کد رو از ++C به VB6 تبدیل کنم ولی هر جوری که برناممو می نویسم جواب ذرست بهم نمیده (از بابت سورس ++C کاملا مطمئنم) کد رو پایین براتون می ذارم


کد:

کد:

#include <stdio.h>
void Y2K (unsigned char inbyte);
short Y=0;
void main()
{
unsigned char a[15];
int i;
a[0]=0xAA;
a[1]=0x06;
a[2]=0x00;
a[3]=0x02;
a[4]=0x0C;
a[5]=0x00;
a[6]=0x00;
a[7]=0x00;
a[8]=0x03;
a[9]=0x00;
a[10]=0x00;
a[11]=0x00;
a[12]=0x01;
a[13]=0x01;
a[14]=0x00;
for (i=0;i<=14;i++)
Y2K(a[i]);
printf("\n%04X",Y);
}

void Y2K (unsigned char inbyte)
{
int i =0;
Y = (short)(Y^(unsigned char)inbyte<<8);
int byte1 = 8;
do
{
if((Y & 0x8000) != 0)
{
Y = (short)(Y<<1^0x1021);
if (i==0)continue;
}
Y =(short)(Y<<1);
}while(--byte1>0);
}

با تشکر
فرزاد علیزاده

[djfalcon2005]

یعنی کسی نیست جواب بده ؟؟؟!!!!؟؟؟؟