扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:论坛整理 来源:ZDNet网络安全 2007年12月19日
关键字: telnet命令 opentelnet linux telnet telnet入侵 telnet telnet端口
前一段做了一个监控程序,触发事件后实现telnet到Sco unix执行命令并取得命令结果,想了几天终于完成,特和大家分享:
一、安装TelnetTool控件(提供下载)
二、VFP代码部分:
LOCAL telnet1
telnet1=CREATEOBJECT("Dart.Telnet.1")
Telnet1.Timeout = 100
Telnet1.TermType = "vt100"
False=.t.
True=.t.
vbCrLf=CHR(13)+CHR(10)
** logfile = "Host" + HostIP + ".log"
** Telnet1.Trace(logfile, False, True, vbCrLf + "---> ", vbCrLf + "<--- ")
thisform.AddLog(Tsys_kind,"正在连接主机 " + HostIP + " ..." + vbCrLf)
ok = Telnet1.Connect(HostIP, 23)
IF ok=""
thisform.AddLog(Tsys_kind,"银联前置["+HostIP+"]连接失败!同银联中心链路无法检查。")
thisform.showinfo("99","错误:银联前置连接失败!")
thisform.warn
thisform.command4.Picture="deng3.gif"
thisform.command4.refresh
telnet1.close
RETURN
ELSE
telnet1.close
Telnet1.Timeout = 10000
Telnet1.Connect(HostIP, 23)
ENDIF
thisform.AddLog(Tsys_kind,"已连接" + vbCrLf)
Data = ""
Telnet1.Search (@Data, "login:")
* thisform.AddLog( Tsys_kind,Data)
Telnet1.Send(User_name + vbCrLf)
Data = ""
Telnet1.Search(@Data, "Password:")
* thisform.AddLog(Tsys_kind,Data)
Telnet1.Send (User_pwd + vbCrLf)
Data = ""
Telnet1.Search(@Data, ">")
* thisform.AddLog(Tsys_kind,Data)
Telnet1.Send ("su" + vbCrLf)
Telnet1.Search (@Data, "Password:")
* thisform.AddLog(Tsys_kind,data)
Telnet1.Send(root_pwd + vbCrLf)
Telnet1.Search(@Data, "#")
* thisform.AddLog(Tsys_kind,Data)
Telnet1.Send(shell_cmd + vbCrLf)
Telnet1.Search(@Data, "#")
* thisform.AddLog(Tsys_kind,data)
***************取出的数据
ok = VAL(STREXTRACT(data,"/","/",3))
IF ok>WP04 &&Warn Point
thisform.showinfo("01","★警告:银联中心网络延时[9.234.12.21]!当前值:"+ALLTRIM(STR(ok,10,2))+"设定值:"+ALLTRIM(STR(WP04,10,2)))
thisform.addlog(Tsys_kind,"★警告:银联中心网络延时[9.234.12.21]!当前值:"+ALLTRIM(STR(ok,10,2))+"设定值:"+ALLTRIM(STR(WP04,10,2)))
......&&触发事件
ENDIF
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者