C to VB Translation

[apman]

HI everyone!

I have a C function that I need to rewrite in VB, unfortunately I have NO C experience... if anyone can do this for me please, I would be very thankful.

Here is the function I need translated:

void randomize_guid(unsigned char *buf)
{
int digit, dig;
time_t curtime;

*buf++='{';
time(&curtime);
srand(curtime);
for (digit=0; digit <32; digit++)
{
if (digit==8 || digit == 12 || digit == 16 || digit == 20) *buf++='-';

dig = rand()%0xf;
if (dig<10)
*buf++='0'+dig;
else
*buf++='A'+(dig-10);
}
*buf++='}';
*buf++='\0';
}

Thanks,
Alan

[jim mcnamara]

Translation to VB

Sub randomize_guid(ByRef buf as string)
  dim  digit as long, dig as long
  dim curtime as long
  buf = "{" 
' curtime is supposed to be the number of seconds since 1970, Jan 01
' used as a seed for the random number generator
' there is no direct VB equivalent.  You'll have to add up the number of seconds elapsed since then
  randomize(curtime)
  for digit=0 to 31
    
    if digit = 8 or digit = 12 or digit = 16 or digit = 20 then 
         buf = buf &"-"
         goto Bottom
    end if
    dig = rnd() mod 15
    if dig<10 then 
	buf = buf & Cstr(dig)
    else 
	buf = buf & chr(asc("A") + dig - 10
    end if

Bottom:

  next digit

  buf = buf & "}"
  buf = buf & chr(0)

' this is because C strings all end with null char.
End Sub

[apman]

Thanks Jim!

Works perfectly with minor editing...

I appreciate it...

-- Alan

[TadaTensai]

Of course you can always make a DLL.......