Перевести код из Visual Basic на С++ builder

Attribute VB_Name = "Module1"
Public st, ser As String
Public loginstat As String
 
Type WorldInfo
srvname As String
dbname As String
End Type
 
Type servinfo
numworlds As Byte
UserDBN As String
UserDBIP As String
World(1 To 16) As WorldInfo
End Type
 
Public srvinfo As servinfo
 
Function getstrbyhexstr(hexstr As String) As String
Dim s As String
For i = 1 To Len(hexstr) / 2
s = s + Chr("&H" & Left(hexstr, 2))
hexstr = Right(hexstr, Len(hexstr) - 2)
Next i
getstrbyhexstr = s
End Function
Function getonline(str As String) As String
Dim s As String
Dim q As String
 
q = Right(str, 6)
q = Left(q, 2)
 
If Left(q, 1) = Chr(1) Then
st = "On"
Else
st = "Off"
End If
 
If Right(q, 1) = Chr(1) Then
ser = "On"
If Form2.Check1.Value = 1 Then Form1.w.SendData getstrbyhexstr("150032070000FFFFFFFF00070025746F74616C0000")
Else
ser = "Off"
End If
 
s = Right(str, 4)
s = Left(s, 2)
getonline = "State " & st & Chr(13) & " Service " & ser & Chr(13) & " Online " & to2b(s)
End Function
Function to2b(s As String) As Long
Dim a, b As String
a = Asc(Left(s, 1))
b = Asc(Right(s, 1)) + 1
to2b = b * a
End Function
 
Sub onoff()
If ser = "On" And Form1.w.State = 7 Then Form1.w.SendData getstrbyhexstr("0C0032050000FFFFFFFF0000")
If ser = "Off" And Form1.w.State = 7 Then Form1.w.SendData getstrbyhexstr("0C0032050000FFFFFFFF0001")
End Sub
 
Sub kick()
If ser = "Off" And Form1.w.State = 7 Then
Form1.w.SendData getstrbyhexstr("0B0032060000FFFFFFFF00")
Else
If ser = "On" Then MsgBox "----"
If Form1.w.State <> 7 Then MsgBox "Сначало подключитесь к серверу"
End If
End Sub
 
Function loginq(pack As String) As String
If pack = getstrbyhexstr("0700320C010000") Then loginq = "Enabled"
If pack = getstrbyhexstr("0700320C020000") Then loginq = "Disabled"
End Function
 
Sub toinfo(pack As String)
Dim u, s, d, f As String, i, j As Integer
d = pack
f = Left(d, 7)
s = Right(d, Len(d) - 7)
u = Left(s, 32)
i = InStrRev(u, Chr(0))
u = Left(u, i)
srvinfo.UserDBN = u
u = Left(s, 64)
u = Right(u, 32)
i = InStrRev(u, Chr(0))
u = Left(u, i)
srvinfo.UserDBIP = u
u = Left(s, 96)
u = Right(u, 32)
i = InStrRev(u, Chr(0))
u = Left(u, i)
srvinfo.World(1).srvname = u
Form1.Caption = "Start Controler. Server " & u
 
u = Left(s, 129)
u = Right(u, 32)
i = InStrRev(u, Chr(0))
u = Left(u, i)
srvinfo.World(1).dbname = u
'MsgBox (u)
End Sub
 
Sub sendchat(str As String)
Dim send As String
If 1 < Len(str) < 201 Then
send = getstrbyhexstr("0032070000FFFFFFFF00")
send = send + Chr(Len(str))
send = send + getstrbyhexstr("00")
send = send + str
send = send + getstrbyhexstr("0000")
send = getstrbyhexstr(Hex(Len(send) + 1)) + send
If Form1.w.State = 7 Then Form1.w.SendData send
End If
End Sub
 
Sub errmsg(str As String)
MsgBox Right(str, Len(str) - 10), vbCritical, "Error"
 
End Sub