求助，这段代码用VB如何实现

#include <stdio.h>
typedef unsigned long u32 ;

int main()//
{
const static u32 a1 = 0x3CA44FB3;
for ( u32 z = 0; z < 0xFFFFFFFF; ++z )
{
u32 s =~z;

s*= z;

u32 a = s + (z & 0x0346A231);

__int64 b = (__int64)0x05003555 * (__int64) z;

u32 c = (u32)(b >> 32);
c >>= 3;

if ( a1 == a + c )
{
printf("%08x", z );
return 0;
}
}

return 0;//返回
}

---

vb.net

---

用delphi该如何实现呢

---

哇塞，这是什么代码，眼花~