routeros api执行工具程序及源码

心想事成

routeros在3.0版以上，新增了一个api功能。通过开启api功能，可以使用一个外部程序直接控制RouterOS。
默认的API 端口是 8728. 默认情况下API功能是关闭的，要使用以下的命令开启：

/ip service enable api

然后再使用api工具就可以直接连到roueros中了。
附件中的程序就是这样的工具，大家可以测试下。

ksw520

支持。。。

seignior

有没有vc或者vb的源码参考....

P.S:官方的没看明白，希望能求个相对完整的代码，例如这个demo的vc、vb版

soft_route

顶

心想事成

有没有vc或者vb的源码参考....

P.S:官方的没看明白，希望能求个相对完整的代码，例如这个demo的vc、vb版
seignior 发表于 2009-5-12 22:13

                               
登录/注册后可看大图

API client realization for Delphi7. It implements execution of parallel queries which are easily handled due to database-like interface

心想事成

我自己用c也写了一个，在linux 下调试通过。

seignior

我已经反复看
http://forum.mikrotik.com/viewtopic.php?f=9&t=31555
http://wiki.mikrotik.com/wiki/API_Delphi
了
但无奈c,basic本身就是半桶水，delphi就更一头雾水~~~~还是求你的c code吧

实际就是不想让基层直接操作ros，倒不是操守上的信任问题，主要是操作技能上的信任不够(那帮小崽子连自己在做什么都不清楚-_-")，想自己写个有限制的client给他们用。

心想事成

VB.NET版本的RouterOS API程式碼如下

1. Imports System.Net.Sockets
   
2. Imports System.IO
   
3. Imports System.Text
   
4. 
   
5. Class MK_ROS
   
6.     Private connection As Stream
   
7.     Private con As TcpClient
   
8. 
   
9.     Public Sub New(ByVal ip As String)
   
10.         con = New TcpClient()
    
11.         con.Connect(ip, 8728)
    
12.         connection = DirectCast(con.GetStream(), Stream)
    
13.     End Sub
    
14.     Public Sub Close()
    
15.         connection.Close()
    
16.         con.Close()
    
17.     End Sub
    
18.     Public Function Login(ByVal username As String, ByVal password As String) As Boolean
    
19.         Send("/login", True)
    
20.         Dim hash As String = Read()(0).Split(New String() {"ret="}, StringSplitOptions.None)(1)
    
21.         Send("/login")
    
22.         Send("=name=" & username)
    
23.         Send("=response=00" & EncodePassword(password, hash), True)
    
24.         If Read()(0) = "!done" Then
    
25.             Return True
    
26.         Else
    
27.             Return False
    
28.         End If
    
29.     End Function
    
30.     Public Sub Send(ByVal co As String)
    
31.         Dim bajty As Byte() = Encoding.ASCII.GetBytes(co.ToCharArray())
    
32.         Dim velikost As Byte() = EncodeLength(bajty.Length)
    
33. 
    
34.         connection.Write(velikost, 0, velikost.Length)
    
35.         connection.Write(bajty, 0, bajty.Length)
    
36.     End Sub
    
37.     Public Sub Send(ByVal co As String, ByVal endsentence As Boolean)
    
38.         Dim bajty As Byte() = Encoding.ASCII.GetBytes(co.ToCharArray())
    
39.         Dim velikost As Byte() = EncodeLength(bajty.Length)
    
40.         connection.Write(velikost, 0, velikost.Length)
    
41.         connection.Write(bajty, 0, bajty.Length)
    
42.         connection.WriteByte(0)
    
43.     End Sub
    
44.     Public Function Read() As List(Of String)
    
45.         Dim output As New List(Of String)()
    
46.         Dim o As String = ""
    
47.         Dim tmp As Byte() = New Byte(3) {}
    
48.         Dim count As Long
    
49.         While True
    
50.             tmp(3) = CByte(connection.ReadByte())
    
51.             'if(tmp[3] == 220) tmp[3] = (byte)connection.ReadByte(); it sometimes happend to me that
    
52.             'mikrotik send 220 as some kind of "bonus" between words, this fixed things, not sure about it though
    
53.             If tmp(3) = 0 Then
    
54.                 output.Add(o)
    
55.                 If o.Substring(0, 5) = "!done" Then
    
56.                     Exit While
    
57.                 Else
    
58.                     o = ""
    
59.                     Continue While
    
60.                 End If
    
61.             Else
    
62.                 If tmp(3) < &H80 Then
    
63.                     count = tmp(3)
    
64.                 Else
    
65.                     If tmp(3) < &HC0 Then
    
66.                         Dim tmpi As Integer = BitConverter.ToInt32(New Byte() {CByte(connection.ReadByte()), tmp(3), 0, 0}, 0)
    
67.                         count = tmpi Xor &H8000
    
68.                     Else
    
69.                         If tmp(3) < &HE0 Then
    
70.                             tmp(2) = CByte(connection.ReadByte())
    
71.                             Dim tmpi As Integer = BitConverter.ToInt32(New Byte() {CByte(connection.ReadByte()), tmp(2), tmp(3), 0}, 0)
    
72.                             count = tmpi Xor &HC00000
    
73.                         Else
    
74.                             If tmp(3) < &HF0 Then
    
75.                                 tmp(2) = CByte(connection.ReadByte())
    
76.                                 tmp(1) = CByte(connection.ReadByte())
    
77.                                 Dim tmpi As Integer = BitConverter.ToInt32(New Byte() {CByte(connection.ReadByte()), tmp(1), tmp(2), tmp(3)}, 0)
    
78.                                 count = tmpi Xor &HE0000000
    
79.                             Else
    
80.                                 If tmp(3) = &HF0 Then
    
81.                                     tmp(3) = CByte(connection.ReadByte())
    
82.                                     tmp(2) = CByte(connection.ReadByte())
    
83.                                     tmp(1) = CByte(connection.ReadByte())
    
84.                                     tmp(0) = CByte(connection.ReadByte())
    
85.                                     count = BitConverter.ToInt32(tmp, 0)
    
86.                                 Else
    
87.                                     'Error in packet reception, unknown length
    
88.                                     Exit While
    
89.                                 End If
    
90.                             End If
    
91.                         End If
    
92.                     End If
    
93.                 End If
    
94.             End If
    
95. 
    
96.             For i As Integer = 0 To count - 1
    
97.                 o += ChrW(connection.ReadByte())
    
98.             Next
    
99.         End While
    
100.         Return output
     
101.     End Function
     
102.     Private Function EncodeLength(ByVal delka As Integer) As Byte()
     
103.         If delka < &H80 Then
     
104.             Dim tmp As Byte() = BitConverter.GetBytes(delka)
     
105.             Return New Byte(0) {tmp(0)}
     
106.         End If
     
107.         If delka < &H4000 Then
     
108.             Dim tmp As Byte() = BitConverter.GetBytes(delka Or &H8000)
     
109.             Return New Byte(1) {tmp(1), tmp(0)}
     
110.         End If
     
111.         If delka < &H200000 Then
     
112.             Dim tmp As Byte() = BitConverter.GetBytes(delka Or &HC00000)
     
113.             Return New Byte(2) {tmp(2), tmp(1), tmp(0)}
     
114.         End If
     
115.         If delka < &H10000000 Then
     
116.             Dim tmp As Byte() = BitConverter.GetBytes(delka Or &HE0000000)
     
117.             Return New Byte(3) {tmp(3), tmp(2), tmp(1), tmp(0)}
     
118.         Else
     
119.             Dim tmp As Byte() = BitConverter.GetBytes(delka)
     
120.             Return New Byte(4) {&HF0, tmp(3), tmp(2), tmp(1), tmp(0)}
     
121.         End If
     
122.     End Function
     
123. 
     
124.     Public Function EncodePassword(ByVal Password As String, ByVal hash As String) As String
     
125.         Dim hash_byte As Byte() = New Byte(hash.Length / 2 - 1) {}
     
126.         For i As Integer = 0 To hash.Length - 2 Step 2
     
127.             hash_byte(i / 2) = [Byte].Parse(hash.Substring(i, 2), System.Globalization.NumberStyles.HexNumber)
     
128.         Next
     
129.         Dim heslo As Byte() = New Byte(1 + Password.Length + (hash_byte.Length - 1)) {}
     
130.         heslo(0) = 0
     
131.         Encoding.ASCII.GetBytes(Password.ToCharArray()).CopyTo(heslo, 1)
     
132.         hash_byte.CopyTo(heslo, 1 + Password.Length)
     
133. 
     
134.         Dim hotovo As Byte()
     
135.         Dim md5 As System.Security.Cryptography.MD5
     
136. 
     
137.         md5 = New System.Security.Cryptography.MD5CryptoServiceProvider()
     
138. 
     
139.         hotovo = md5.ComputeHash(heslo)
     
140. 
     
141.         'Convert encoded bytes back to a 'readable' string
     
142.         Dim navrat As String = ""
     
143.         For Each h As Byte In hotovo
     
144.             navrat += h.ToString("x2")
     
145.         Next
     
146.         Return navrat
     
147.     End Function
     
148. End Class

复制代码

使用方式如下:

1. Dim mikrotik As New MK_ROS("主機位置(可為IP或Domain)")
   
2. If Not mikrotik.Login("帳號", "密碼") Then
   
3.     TextBox1.Text &= ("連線失敗")
   
4.     mikrotik.Close()
   
5.     Return
   
6. End If
   
7. '要下的指令
   
8. mikrotik.Send("/system/identity/print", True)
   
9. For Each h As String In mikrotik.Read()
   
10.     TextBox1.Text &= h
    
11. Next

复制代码

seignior

谢谢，容易理解很多了，但依然在翻书-_-"

winkw

留个记号，慢慢学习！！

专卖精品

先下载了看看

politank

有空研究研究

tpy372

顶啊

木木

几个月前已经通过api连上ros，下一步主要做应用了。

pxyq

有VC的源代码就好了