home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / solaris_finger.vbs38 < prev    next >
Encoding:
Text File  |  2003-10-09  |  772 b   |  36 lines
  1. ' Solaris finger bug '@a b c d e f g h'
  2.  
  3. Function Main
  4.  
  5. Dim request As String
  6. Dim data As String
  7. Dim fdata As String
  8. Dim SocketObject As Object
  9. Dim result As Boolean
  10. Dim fnd As Boolean
  11.     result = false
  12.     ip = getparameter("ComputerIP")
  13.     port = "79"
  14.     cr = Chr(13) +  Chr(10)
  15.     Socket.SetTimeout 5000,5000
  16.     request = "a b c d e f g h"
  17.     Set SocketObject = Socket.OpenTCP (ip,port)
  18.     If Not SocketObject is Nothing Then         
  19.            SocketObject.send(request+cr)
  20.            fdata = ""
  21.            data = "1"
  22.            While Len(data) > 0
  23.                 data = SocketObject.recv(256)
  24.                 fdata = fdata + data
  25.            Wend
  26.            If InStr(1, fdata,"nobody") > 0 Then
  27.                 'echo("-> User list :"+cr)
  28.                 'echo(fdata)
  29.                  result = true
  30.            End If
  31.        SocketObject.close
  32.     End If
  33.     main = result
  34.  
  35. End Function
  36.