科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网网络频道Telnet到Sco unix执行并取得结果

Telnet到Sco unix执行并取得结果

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

前一段做了一个监控程序,触发事件后实现telnet到Sco unix执行命令并取得命令结果,想了几天终于完成,特和大家分享。

作者:论坛整理 来源: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领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章