home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / bugbear.vbs7 < prev    next >
Encoding:
Text File  |  2003-10-09  |  1.1 KB  |  43 lines
  1. ' bugbear.b backdoor on port 1080
  2.  
  3. Function Main
  4.  
  5. Dim  ip As String
  6. Dim data1 As String
  7. Dim data2 As String
  8. Dim  SocketObject As Object
  9. Dim result As Boolean
  10.  
  11.  
  12.     result = false
  13.     ip = getparameter("ComputerIP")
  14.     port = "1080"
  15.     cr = Chr(13) +  Chr(10)
  16.     rem _ip
  17.     Socket.SetTimeout 5000,5000
  18.     Set SocketObject = Socket.OpenTCP (ip,port)
  19.     If Not SocketObject is Nothing Then          
  20.               SocketObject.send( "p")
  21.               data1 = SocketObject.recv(308)
  22.               SocketObject.Close
  23.               If Len(data1) > 10 Then
  24.                         Set SocketObject = Socket.OpenTCP (ip,port)
  25.             If Not SocketObject is Nothing Then          
  26.                       SocketObject.send("a")
  27.                               data2 = SocketObject.recv(308)
  28.                               SocketObject.close
  29.                               If Len(data2) < 1 Then
  30.                                      result = true
  31.                               End If
  32.                         End If
  33.               End If
  34.     End If
  35. '    If result = True Then
  36. '        echo "bugbear.b backdoor detected at "+CStr(IP)+" on port: "+CStr(Port) + cr
  37. '    Else
  38. '        echo "bugbear.b backdoor not detected at "+CStr(IP)+" on port: "+CStr(Port) + cr
  39. '    End If
  40.     main = result
  41.  
  42.  
  43. End Function