用Mathematica写了个TUNet登录脚本

TUNet.wl

#!/usr/bin/env wolframscript


(*_*)


(*命令行参数有两个以上时，前两个分别为用户名和密码*)
(*命令行参数只有一个时，退出登录*)
(*没有命令行参数，显示登录状态*)


Print@URLExecute["http://net.tsinghua.edu.cn/do_login.php",
  $ScriptCommandLine /.
   {{_, username_, password_, ___} :>
     {"action" -> "login",
      "username" -> username,
      "password" -> 
       "{MD5_HEX}" <> Hash[password, "MD5", "HexString"],
      "ac_id" -> "1"},
    {_, _} :> {"action" -> "logout"},
    _ :> {"action" -> "check_online"}}]