use v5.10;

use Inline 'C';

say "At least we have compiled a bit of C code!";

my $ret= "HD3";
my $output = enctypex_msname("HD2", undef);

say "Output from enctypex_msname() call: '$output', \$ret is '$ret'";

__END__
__C__
unsigned char *enctypex_msname(unsigned char *name, unsigned char *retname) {
    static unsigned char    msname[256];
    unsigned    i,
                c,
                server_num;

    if(!name) return(NULL);

    server_num = 0;
    for(i = 0; name[i]; i++) {
        c = tolower(name[i]);
        server_num = c - (server_num * 0x63306ce7);
    }
    server_num %= 20;

    if(retname) {
        snprintf(retname, 256, "%s.ms%d.host.com", name, server_num);
        return(retname);
    }
    snprintf(msname, sizeof(msname), "%s.ms%d.host.com", name, server_num);
    return(msname);
}