<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2716.2200" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Public Declare Sub CopyMemory Lib "kernel32" Alias 
"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As 
Long)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Public Sub ReverseBytesLong(ByRef MyLong As 
Long)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>&nbsp;&nbsp;&nbsp; Dim buf(4) As 
Byte<BR>&nbsp;&nbsp;&nbsp; Dim TempByte As Byte<BR>&nbsp;&nbsp;&nbsp; 
<BR>&nbsp;&nbsp;&nbsp; CopyMemory buf(0), MyLong, 4<BR>&nbsp;&nbsp;&nbsp; 
<BR>&nbsp;&nbsp;&nbsp; TempByte = buf(0)<BR>&nbsp;&nbsp;&nbsp; buf(0) = 
buf(3)<BR>&nbsp;&nbsp;&nbsp; buf(3) = TempByte</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>&nbsp;&nbsp;&nbsp; TempByte = 
buf(1)<BR>&nbsp;&nbsp;&nbsp; buf(1) = buf(2)<BR>&nbsp;&nbsp;&nbsp; buf(2) = 
TempByte</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>&nbsp;&nbsp;&nbsp; CopyMemory MyLong, buf(0), 
4</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>End Sub</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A title=goran.roseen@oopera.se href="mailto:goran.roseen@oopera.se">Göran 
  Roseen</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A title=icq-devel@blipp.com 
  href="mailto:icq-devel@blipp.com">icq-devel@blipp.com</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, June 05, 2002 4:33 
  AM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [icq-devel] vb</DIV>
  <DIV><BR></DIV><BR>It is really simple to code, the problem is that VB does 
  not have any unsigned data types, and so you might have problems with the sign 
  bit ending up where you don't want it.<BR><BR>I don't know how you get your 
  packet data inte the program but my advice is: swap while you still have the 
  data in a char buffer. The unpacking routines would be a simple choice. I.e. 
  use different unpacking routines for the different byte-ordered 
  data.<BR><BR>Another tip is to use larger data types (E.g. Long instead of 
  Integer) when the data has to be unsigned. That way, large numbers will never 
  appear negative.<BR><BR>/Göran<BR><BR><BR>At 04:48 2002-06-05, you wrote:<BR>
  <BLOCKQUOTE class=cite cite="" type="cite"><FONT face=arial size=2>hey guys 
    ,</FONT><BR>&nbsp;<BR><FONT face=arial size=2>i'm Developing a ICQ clone in 
    VB and i'm having some problems with it ,</FONT><BR>&nbsp;<BR><FONT 
    face=arial size=2>does anyone have functions for Reverse Byte Order in VB 
    </FONT><BR><FONT face=arial size=2>( for making Big Endian , Little Endian , 
    etc.. )</FONT><BR>&nbsp;<BR><FONT face=arial size=2>Thanks 
    !!</FONT><BR>&nbsp;<BR><FONT face=arial 
    size=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
    z e l t z m a n.</FONT></BLOCKQUOTE><BR></BLOCKQUOTE></BODY></HTML>