IRC AutoIT Console

SUBMITTED BY: Guest

DATE: May 28, 2013, 5:39 p.m.

FORMAT: Text only

SIZE: 5.9 kB

Raw Download

HITS: 1418

Report
  1. #include "TCP.au3"
  3. $hServer = _TCP_Server_Create(6667); A IRC server. Tadaa!
  4. Global $GLOBAL_hSocket, $connected, $motd = False, $username
  5. AdlibRegister("pingpong", 60000)
  6. AdlibRegister("sendmodt", 1000)
  8. _TCP_RegisterEvent($hServer, $TCP_NEWCLIENT, "NewClient")
  9. _TCP_RegisterEvent($hServer, $TCP_DISCONNECT, "Disconnect")
  10. _TCP_RegisterEvent($hServer, $TCP_RECEIVE, "Received")
  12. While 1
  14. WEnd
  16. Func NewClient($hSocket, $iError)
  17. ConsoleWrite("New Client: " & $hSocket & @CRLF)
  18. $connected = True
  19. $motd = True
  20. $GLOBAL_hSocket = $hSocket
  21. EndFunc ;==>NewClient
  23. Func Disconnect($hSocket, $iError)
  24. ConsoleWrite("!Disconnect: " & $hSocket & @CRLF)
  25. $connected = False
  26. $GLOBAL_hSocket = False
  27. EndFunc ;==>Disconnect
  29. Func Received($hSocket, $sReceived, $iError)
  30. Local $msg = StringSplit($sReceived, @LF)
  31. For $i = 0 To UBound($msg) - 1 Step 1
  32. rcv_msg($hSocket, $msg[$i], $iError)
  33. Next
  34. EndFunc ;==>Received
  36. Func rcv_msg($hSocket, $msg, $iError)
  37. ConsoleWrite("+receive:" & $msg & @CRLF)
  38. If StringLeft($msg, 4) = "ping" Then ircsend($hSocket, StringReplace($msg, "ping", "pong") & @CRLF)
  39. If StringLeft($msg, 4) = "NICK" Then $username = StringTrimLeft($msg, 5)
  40. If StringLeft($msg, 17) = "PRIVMSG #autoit :" Then
  41. ircsend($hSocket, ":root!root PRIVMSG #autoit :" & StringTrimLeft($msg, 17) & @CRLF)
  42. commands(StringTrimLeft($msg, 17))
  43. EndIf
  44. EndFunc ;==>rcv_msg
  46. Func pingpong()
  47. If $connected Then ircsend($GLOBAL_hSocket, "PING :" & Random(1000, 9999, 1) & @CRLF)
  48. EndFunc ;==>pingpong
  50. Func sendmodt()
  51. If $motd Then
  52. For $i = 1 To 1
  53. ircsend($GLOBAL_hSocket, ":localhost 001 " & $username & " :Welcome to the AutoIT Internet Relay Chat Network " & $username & "" & @CRLF)
  54. ircsend($GLOBAL_hSocket, ":localhost 002 " & $username & " :Your host is localhost[localhost/6667], running version AutoIT-Console v0.1" & @CRLF)
  55. ircsend($GLOBAL_hSocket, ":localhost 375 " & $username & " :- localhost Message of the Day -" & @CRLF)
  56. ircsend($GLOBAL_hSocket, ":localhost 372 " & $username & " :- Welcome to AutoIT - The Open and Free Management System" & @CRLF)
  57. ircsend($GLOBAL_hSocket, ":localhost 376 " & $username & " :End of /MOTD command." & @CRLF)
  58. ircsend($GLOBAL_hSocket, ":" & $username & "!" & $username & " JOIN :#autoit" & @CRLF)
  59. ircsend($GLOBAL_hSocket, ":localhost 332 " & $username & " #autoit :Welcome to the AutoIT Console v0.1" & @CRLF)
  60. ircsend($GLOBAL_hSocket, ":localhost 353 " & $username & " @ #autoit :root " & $username & "" & @CRLF)
  61. ircsend($GLOBAL_hSocket, "366 " & $username & " #bitlbee :End of /NAMES list." & @CRLF)
  62. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :Hi" & $username & @CRLF)
  63. Next
  64. EndIf
  65. $motd = False
  66. EndFunc ;==>sendmodt
  68. Func ircsend($GLOBAL_hSocket, $msg)
  69. ConsoleWrite("-output :" & $msg)
  70. TCPSend($GLOBAL_hSocket, $msg)
  71. EndFunc ;==>ircsend
  73. Func commands($command)
  74. Switch $command
  75. Case "status"
  76. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :+--------------------------------------------------------------+" & @CRLF)
  77. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :|----------------------------STATUS----------------------------|" & @CRLF)
  78. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :+--------------------------------------------------------------+" & @CRLF)
  79. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :" & padmsg("Computername: " & @ComputerName) & @CRLF)
  80. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :" & padmsg("IPAdress1: " & @IPAddress1) & @CRLF)
  81. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :" & padmsg("Username: " & @UserName) & @CRLF)
  82. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :+--------------------------------------------------------------+" & @CRLF)
  83. Case "help"
  84. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :+--------------------------------------------------------------+" & @CRLF)
  85. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :|-----------------------------HELP-----------------------------|" & @CRLF)
  86. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :+--------------------------------------------------------------+" & @CRLF)
  87. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :" & padmsg("List of commands that can be issued against root") & @CRLF)
  88. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :+--------------------------------------------------------------+" & @CRLF)
  89. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :" & padmsg("help you are looking at it") & @CRLF)
  90. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :" & padmsg("status shows the current status of the server") & @CRLF)
  91. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :+--------------------------------------------------------------+" & @CRLF)
  92. Case Else
  93. ircsend($GLOBAL_hSocket, ":root!root PRIVMSG #autoit :command unknown, try help" & @CRLF)
  94. EndSwitch
  95. EndFunc ;==>commands
  97. Func padmsg($msg)
  98. Local $len = StringLen($msg)
  99. Local $res = "| "
  100. $res &= $msg
  101. For $i = $len To 60
  102. $res &= " "
  103. Next
  104. $res &= "|"
  105. Return $res
  106. EndFunc ;==>padmsg
comments powered by Disqus