Telnet服务端易语言源码

源码调用了易语言扩展界面支持库，使用易语言服务器组件实现了Telnet服务端应用。

@爱三叶资源网源码

.版本 2
.支持库 iext

.程序集 窗口程序集1
.程序集变量 telnet客户, telnet客户, , "0"

.子程序 _服务器1_客户进入
.局部变量 临时_telnet客户, telnet客户

临时_telnet客户.地址 ＝ 服务器1.取回客户 ()
加入成员 (telnet客户, 临时_telnet客户)
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (编辑框1.内容 ＋ #换行符), )
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“用户名：”), )

.子程序 _服务器1_数据到达
.局部变量 用户组ID, 整数型
.局部变量 来数据客户, 文本型
.局部变量 数据, 字节集
.局部变量 i, 整数型
.局部变量 temp, 整数型
.局部变量 temp2, 整数型
.局部变量 命令, 文本型

来数据客户 ＝ 服务器1.取回客户 ()
数据 ＝ 服务器1.取回数据 ()
.计次循环首 (取数组成员数 (telnet客户), i)
    .如果真 (telnet客户 [i].地址 ＝ 来数据客户)
        用户组ID ＝ i
        跳出循环 ()
    .如果真结束
    ' 三叶资源网(www.sanye.cx)
.计次循环尾 ()
.如果真 (数据 ＝ { 8 })
    返回 ()
.如果真结束
.如果真 (数据 ＝ { 13, 10 })
    .如果真 (telnet客户 [用户组ID].是否验证通过 ＝ 假)
        .判断开始 (telnet客户 [用户组ID].是否输入用户名 ＝ 假)
            列表框1.加入项目 (“得到用户名：” ＋ telnet客户 [用户组ID].命令, )
            temp ＝ 验证用户名 (telnet客户 [用户组ID].命令)
            .如果真 (temp ＝ -1)
                服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“输入用户名错误请重新输入” ＋ #换行符 ＋ “用户名：”), )
                telnet客户 [用户组ID].命令 ＝ “”
                返回 ()
            .如果真结束
            telnet客户 [用户组ID].用户名 ＝ temp
            telnet客户 [用户组ID].是否输入用户名 ＝ 真
            telnet客户 [用户组ID].命令 ＝ “”
            服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“密码：”), )
        .判断 (telnet客户 [用户组ID].是否输入密码 ＝ 假)
            列表框1.加入项目 (“得到密码：” ＋ telnet客户 [用户组ID].命令, )
            .如果 (验证密码 (telnet客户 [用户组ID].用户名, telnet客户 [用户组ID].命令) ＝ 真)
                telnet客户 [用户组ID].是否验证通过 ＝ 真
                telnet客户 [用户组ID].是否输入密码 ＝ 真
                服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“成功登入您的权限是：” ＋ 超级列表框1.取标题 (telnet客户 [用户组ID].用户名, 2) ＋ #换行符), )
                ' 上面这条可以发送以下登入成功后的信息！
                telnet客户 [用户组ID].名称 ＝ 超级列表框1.取标题 (telnet客户 [用户组ID].用户名, 1)
                返回命令 (服务器1.取回客户 (), telnet客户 [用户组ID].名称)
                temp2 ＝ 超级列表框2.插入表项 (, 到文本 (超级列表框2.取表项数 ()), , , , )
                超级列表框2.置标题 (temp2, 1, 服务器1.取回客户 ())
                超级列表框2.置标题 (temp2, 2, 超级列表框1.取标题 (telnet客户 [用户组ID].用户名, 0))
                超级列表框2.置标题 (temp2, 3, 超级列表框1.取标题 (telnet客户 [用户组ID].用户名, 1))
                超级列表框2.置标题 (temp2, 4, 超级列表框1.取标题 (telnet客户 [用户组ID].用户名, 2))
                ' 三叶资源网(www.sanye.cx)
                telnet客户 [用户组ID].命令 ＝ “”
            .否则
                telnet客户 [用户组ID].是否输入用户名 ＝ 假
                telnet客户 [用户组ID].命令 ＝ “”
                服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“输入信息错误请重新输入” ＋ #换行符 ＋ “用户名：”), )
            .如果结束

        .默认

        .判断结束
        返回 ()
    .如果真结束
    命令 ＝ telnet客户 [用户组ID].命令
    列表框1.加入项目 (“得到命令：” ＋ 命令, )
    telnet客户 [用户组ID].命令 ＝ “”
    .如果真 (命令 ＝ “hlep”)  ' 再这个后面接着各种分析自己的命令和参数就可以了！~~~~~~
        服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“         shutdown     关机命令 跟参数 秒” ＋ #换行符), )
    .如果真结束
    返回命令 (服务器1.取回客户 (), telnet客户 [用户组ID].名称)
    返回 ()
.如果真结束
telnet客户 [用户组ID].命令 ＝ telnet客户 [用户组ID].命令 ＋ 到文本 (数据)

.子程序 __启动窗口_创建完毕
.局部变量 temp, 整数型

temp ＝ 超级列表框1.插入表项 (, “user”, , , , )
超级列表框1.置标题 (temp, 1, “user”)
超级列表框1.置标题 (temp, 2, “1”)
temp ＝ 超级列表框1.插入表项 (, “admin”, , , , )
超级列表框1.置标题 (temp, 1, “admin”)
超级列表框1.置标题 (temp, 2, “2”)
temp ＝ 超级列表框1.插入表项 (, “super”, , , , )
超级列表框1.置标题 (temp, 1, “super”)
超级列表框1.置标题 (temp, 2, “3”)
' 三叶资源网(www.sanye.cx)

.子程序 验证用户名, 整数型
.参数 用户名, 文本型
.局部变量 i, 整数型

.计次循环首 (超级列表框1.取表项数 (), i)
    .如果真 (超级列表框1.取标题 (i － 1, 0) ＝ 用户名)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
.如果真 (超级列表框1.取标题 (i － 1, 0) ＝ 用户名)
    返回 (i － 1)
.如果真结束
返回 (-1)

.子程序 验证密码, 逻辑型
.参数 用户名ID, 整数型
.参数 密码, 文本型

.如果真 (超级列表框1.取标题 (用户名ID, 1) ＝ 密码)
    返回 (真)
.如果真结束
返回 (假)

.子程序 验证用户, 逻辑型
.参数 用户名, 文本型
.参数 密码, 文本型

' 三叶资源网(www.sanye.cx)

.子程序 返回命令
.参数 用户, 文本型
.参数 名称, 文本型

服务器1.发送数据 (用户, 到字节集 (名称 ＋ “@：”), )


.子程序 __启动窗口_将被销毁



.子程序 _服务器1_客户离开
.局部变量 i, 整数型

.计次循环首 (取数组成员数 (telnet客户), i)
    .如果真 (telnet客户 [i].地址 ＝ 服务器1.取回客户 ())
        删除成员 (telnet客户, i, )
        跳出循环 ()
    .如果真结束
    ' 三叶资源网(www.sanye.cx)
.计次循环尾 ()
.计次循环首 (超级列表框2.取表项数 (), i)
    .如果真 (超级列表框2.取标题 (i － 1, 1) ＝ 服务器1.取回客户 ())
        超级列表框2.删除表项 (i － 1)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()