>Hello,
>How can I implement the equivalent to sys(2007) in vb.net?
>I do not mean some checksum function, I need to generate the exact same output given the same input.
>
>Thanks in advance.

Oscar,

Here is C# implementation of SYS( 2007) function:

public static ushort Sys2007( string strExpr)
{
	ushort result = 0xFFFF;
	byte[] bytes = System.Text.Encoding.Default.GetBytes( strExpr);
	for( int curPos = 0; curPos < bytes.Length; curPos++)
	{
		result = (ushort)(( result << 8) + (byte)( result >> 8));
		result ^= bytes[curPos];
		result ^= (ushort)(( result >> 4) & 0x0F);
		result ^= (ushort)(((byte)( result & 0xFF) ^ (result << 7)) << 5);
	}
	return result;
}

HTH