DWORD generated_check=(rand()<<16) | rand();
   char gcheck[64];
   sprintf(gcheck, "%x", generated_check);


##</code><code>##

   $gcheck = printf "%x", ((rand() << 16) | rand());


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/