寻人帮看一下这个源码包,SSH2源码,登录和执行命令都在一起,请把执行命令代码分离出来

易王

我这里有一个易语言登录SSH2的源码,登录正常,也能执行shell命令和取回返回结果,
唯一的缺点就是,登录和执行shell命令都在一个子程序内,
每次执行命令都要登录一次,我看不懂源码,又分离不出来.
请高手帮阅读一下源码,
把执行shell命令的部分给分离出来,就是不要每次执行命令都登录一次.


源码在这:


易语言调用SSH2演示源码.zip (614.79 KB, 下载次数: 575)

2017-2-23 16:57 上传

点击文件名下载附件




补充内容 (2017-2-23 17:04):
分离好,测试成功,打赏10元红包,

易王

  

子程序名	返回值类型	公开	备 注
_按钮_登录测试_被单击

变量名	类 型	静态	数组	备 注
wsaData	WSADATA
version	整数型
ret	整数型
hostname	文本型
commandline	文本型
username	文本型
password	文本型
nh	整数型
rc	整数型
hostaddr	整数型
m_addr	sockaddr_in
sock	整数型
session	整数型
fingerprint	文本型
len	整数型
type	整数型
channel	整数型
start	逻辑型
buffer	文本型

version ＝ 合并整数 (2, 0)
ret ＝ WSAStartup (version, wsaData)
' 本源码来自易语言资源网(www.5A5X.com)
hostname ＝ “192.168.10.115”  ' ip
commandline ＝ 编辑框1.内容
username ＝ “root”  ' 用户名
password ＝ “xxxxx”  ' 密码
rc ＝ libssh2_init (0)
输出调试文本 (rc)
hostaddr ＝ inet_addr (hostname)
sock ＝ socket ( #AF_INET, #SOCK_STREAM, 0)
m_addr.sin_family ＝ #AF_INET
m_addr.sin_addr ＝ hostaddr
m_addr.sin_port ＝ htons (22)  ' 改变端口号的数据格式
ret ＝ connect (sock, m_addr, 16)
如果真 (ret ＝ #SOCKET_ERROR )
输出调试文本 (“connect error”)
session ＝ libssh2_session_init_ex (0, 0, 0, 0)
如果真 (session ＝ 0)
输出调试文本 (“session init error”)
返回 ()  ' 本源码来自易语言资源网(www.5A5X.com)
libssh2_session_set_blocking (session, 0)
rc ＝ libssh2_session_handshake (session, sock)
判断循环首 (rc ＝ -37)
rc ＝ libssh2_session_handshake (session, sock)
判断循环尾 ()
. ' 如果 (rc ≠ 0)
' nh ＝ libssh2_knownhost_init (session)

. ' 如果 (nh ＝ 0)
' libssh2_knownhost_readfile (nh, “known_hosts”, #LIBSSH2_KNOWNHOST_FILE_OPENSSH)
' libssh2_knownhost_writefile (nh, “dumpfile”, #LIBSSH2_KNOWNHOST_FILE_OPENSSH)
' fingerprint ＝ libssh2_session_hostkey (session, len, type)
' libssh2_knownhost_free (nh)
如果真 (取文本长度 (password) ≠ 0)
rc ＝ libssh2_userauth_password (session, username, password)
判断循环首 (rc ＝ #LIBSSH2_ERROR_EAGAIN )
rc ＝ libssh2_userauth_password (session, username, password)
判断循环尾 ()
如果真 (rc ≠ 0)
输出调试文本 (“Authentication by password failed.”)

' libssh2_trace (session, 位取反 (0))
channel ＝ libssh2_channel_open_session (session)
rc ＝ libssh2_session_last_error (session, “”, 0, 0)
判断循环首 (channel ＝ 0 且 rc ＝ #LIBSSH2_ERROR_EAGAIN )
channel ＝ libssh2_channel_open_session (session)
rc ＝ libssh2_session_last_error (session, “”, 0, 0)
判断循环尾 ()
如果真 (channel ＝ 0)
输出调试文本 (“Channel Open Session Error”)

rc ＝ libssh2_channel_exec (channel, commandline)
判断循环首 (rc ＝ #LIBSSH2_ERROR_EAGAIN )
rc ＝ libssh2_channel_exec (channel, commandline)
判断循环尾 ()
如果真 (rc ≠ 0)
输出调试文本 (“Channel Exec Error”)
start ＝ 真
判断循环首 (start)
buffer ＝ 取空白文本 (16384)
rc ＝ libssh2_channel_read (channel, buffer, 取文本长度 (buffer))
如果 (rc ＞ 0)
' 写到文件 (“C:\Users\XzErO\Desktop\新建文件夹 (2)\迅雷水晶檢測\ssh\1.bin”, 到字节集 (buffer))
编辑框2.加入文本 (子文本替换 (取文本左边 (buffer, rc), 字符 (10), 字符 (13) ＋ 字符 (10), , , 真) ＋ #换行符 )
跳出循环 ()
如果 (rc ＝ #LIBSSH2_ERROR_EAGAIN )

跳出循环 ()


判断循环尾 ()
libssh2_channel_free (channel)
libssh2_session_disconnect (session, “Normal Shutdown, Thank you for playing”)
libssh2_session_free (session)
closesocket (sock)
libssh2_exit ()

.版本 2<br /> <br /> .子程序 _按钮_登录测试_被单击<br /> .局部变量 wsaData, WSADATA<br /> .局部变量 version, 整数型<br /> .局部变量 ret, 整数型<br /> .局部变量 hostname, 文本型<br /> .局部变量 commandline, 文本型<br /> .局部变量 username, 文本型<br /> .局部变量 password, 文本型<br /> .局部变量 nh, 整数型<br /> .局部变量 rc, 整数型<br /> .局部变量 hostaddr, 整数型<br /> .局部变量 m_addr, sockaddr_in<br /> .局部变量 sock, 整数型<br /> .局部变量 session, 整数型<br /> .局部变量 fingerprint, 文本型<br /> .局部变量 len, 整数型<br /> .局部变量 type, 整数型<br /> .局部变量 channel, 整数型<br /> .局部变量 start, 逻辑型<br /> .局部变量 buffer, 文本型<br /> <br /> version ＝ 合并整数 (2, 0)<br /> ret ＝ WSAStartup (version, wsaData)<br /> ' 本源码来自易语言资源网(www.5A5X.com)<br /> hostname ＝ “192.168.10.115”  ' ip<br /> commandline ＝ 编辑框1.内容<br /> username ＝ “root”  ' 用户名<br /> password ＝ “xxxxx”  ' 密码<br /> rc ＝ libssh2_init (0)<br /> 输出调试文本 (rc)<br /> hostaddr ＝ inet_addr (hostname)<br /> sock ＝ socket (#AF_INET, #SOCK_STREAM, 0)<br /> m_addr.sin_family ＝ #AF_INET<br /> m_addr.sin_addr ＝ hostaddr<br /> m_addr.sin_port ＝ htons (22)  ' 改变端口号的数据格式<br /> ret ＝ connect (sock, m_addr, 16)<br /> .如果真 (ret ＝ #SOCKET_ERROR)<br />     输出调试文本 (“connect error”)<br /> .如果真结束<br /> session ＝ libssh2_session_init_ex (0, 0, 0, 0)<br /> .如果真 (session ＝ 0)<br />     输出调试文本 (“session init error”)<br />     返回 ()  ' 本源码来自易语言资源网(www.5A5X.com)<br /> .如果真结束<br /> libssh2_session_set_blocking (session, 0)<br /> rc ＝ libssh2_session_handshake (session, sock)<br /> .判断循环首 (rc ＝ -37)<br />     rc ＝ libssh2_session_handshake (session, sock)<br /> .判断循环尾 ()<br /> .' 如果 (rc ≠ 0)<br /> <br /> .否则<br />     ' nh ＝ libssh2_knownhost_init (session)<br /> <br /> .如果结束<br /> <br /> .' 如果 (nh ＝ 0)<br /> <br /> .否则<br />     ' libssh2_knownhost_readfile (nh, “known_hosts”, #LIBSSH2_KNOWNHOST_FILE_OPENSSH)<br />     ' libssh2_knownhost_writefile (nh, “dumpfile”, #LIBSSH2_KNOWNHOST_FILE_OPENSSH)<br />     ' fingerprint ＝ libssh2_session_hostkey (session, len, type)<br /> <br /> .如果结束<br /> ' libssh2_knownhost_free (nh)<br /> <br /> .如果真 (取文本长度 (password) ≠ 0)<br />     rc ＝ libssh2_userauth_password (session, username, password)<br />     .判断循环首 (rc ＝ #LIBSSH2_ERROR_EAGAIN)<br />         rc ＝ libssh2_userauth_password (session, username, password)<br />     .判断循环尾 ()<br />     .如果真 (rc ≠ 0)<br />         输出调试文本 (“Authentication by password failed.”)<br />     .如果真结束<br /> <br /> .如果真结束<br /> ' libssh2_trace (session, 位取反 (0))<br /> channel ＝ libssh2_channel_open_session (session)<br /> rc ＝ libssh2_session_last_error (session, “”, 0, 0)<br /> .判断循环首 (channel ＝ 0 且 rc ＝ #LIBSSH2_ERROR_EAGAIN)<br />     channel ＝ libssh2_channel_open_session (session)<br />     rc ＝ libssh2_session_last_error (session, “”, 0, 0)<br /> .判断循环尾 ()<br /> .如果真 (channel ＝ 0)<br />     输出调试文本 (“Channel Open Session Error”)<br /> .如果真结束<br /> <br /> rc ＝ libssh2_channel_exec (channel, commandline)<br /> .判断循环首 (rc ＝ #LIBSSH2_ERROR_EAGAIN)<br />     rc ＝ libssh2_channel_exec (channel, commandline)<br /> .判断循环尾 ()<br /> .如果真 (rc ≠ 0)<br />     输出调试文本 (“Channel Exec Error”)<br /> <br /> .如果真结束<br /> start ＝ 真<br /> .判断循环首 (start)<br />     buffer ＝ 取空白文本 (16384)<br /> <br />     rc ＝ libssh2_channel_read (channel, buffer, 取文本长度 (buffer))<br />     .如果 (rc ＞ 0)<br />         ' 写到文件 (“C:\Users\XzErO\Desktop\新建文件夹 (2)\迅雷水晶檢測\ssh\1.bin”, 到字节集 (buffer))<br /> <br /> <br />         编辑框2.加入文本 (子文本替换 (取文本左边 (buffer, rc), 字符 (10), 字符 (13) ＋ 字符 (10), , , 真) ＋ #换行符)<br />         跳出循环 ()<br />     .否则<br />         .如果 (rc ＝ #LIBSSH2_ERROR_EAGAIN)<br /> <br />         .否则<br />             跳出循环 ()<br /> <br />         .如果结束<br /> <br /> <br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> <br /> libssh2_channel_free (channel)<br /> libssh2_session_disconnect (session, “Normal Shutdown, Thank you for playing”)<br /> libssh2_session_free (session)<br /> closesocket (sock)<br /> libssh2_exit ()

易王

求帮助啊飒飒阿萨

sanwenjing

我写的类模块,已分离出执行.模块下载:htt删p://dow删n.51cto.com/data删/2444889
帖子地址:http://bbs.eyuyan.com/read.php?tid=406552  可以参考一下调用过程

补充内容 (2018-4-4 18:09):
如果有帮助的话,请发个红包支付宝:sanwenjing@163.com

danxiao1

为什么我的老是提示    无法找到指定DLL库文件“libssh2.dll”中的输出命令“libssh2_init”

追忆帝

易王 发表于 2017-2-23 17:03
[e=2].版本 2

.子程序 _按钮_登录测试_被单击

表示完全看不懂啊

lhdok

求帮助啊飒飒阿萨

wangkaitao6666

6666666666666666666