Alguien me podria ayudar a transformar este codigo que supongo es de
.net, la verdad no lo se pq nunca he visto .net, a visual 6.0?

Código:

Dim m_uByte as UByte = 0
Dim m_uShort as UShort = 1048

Open m_Path1 For Binary As #2
 Open m_Path2 For Binary As #1
 While Eof(1) = 0
 Get #1, , m_uByte
 Put #2, , Cast(UByte, m_uByte Xor Hibyte(m_uShort))
 m_uShort = 6148 - (m_uByte + m_uShort) * 32703
 Wend
 Close #1
Close #2

supongo q la HiByte deberia ser esto:

Código:

Private Function HiByte(ByVal mINT As Integer) As Byte
 HiByte = (mINT And &HFF00&) \ (&H100)
End Function

pero lo demas no se que podria ser, cualquier ayuda es bienvenida.

Hola, es todo igual menos las variables de arriba y el Cast...te respondi en el otro foro...busca sobre el Cast es para convertir tipos de datos..

saludos.

Seba123Neo???... Leandro????

Encontré a mis Maestros del R.V.B. de argentina?
Saludos.