home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / imap_buffer_overflow.vbs15 < prev    next >
Encoding:
Text File  |  2004-10-12  |  830 b   |  37 lines
  1. Function Main
  2.  
  3. Dim SocketObject As Object
  4. Dim i As Integer
  5. Dim data As String
  6. Dim result As Boolean
  7. Dim regexp As Object
  8.  
  9.     result = false
  10.     ip = getparameter("ComputerIP")
  11.     port = "143"
  12.     cr = Chr(13) +  Chr(10)
  13.     rem _ip
  14.     Socket.SetTimeout 5000,5000
  15.     Set regexp = CreateObject("Vbscript.regexp")
  16.     Set SocketObject = Socket.OpenTCP (ip,port)
  17.     If Not SocketObject is Nothing Then 
  18.         data = SocketObject.recv(1024)
  19.                 regexp.ignorecase = true
  20.                  regexp.pattern = ".*IMAP4REV1.*"
  21.             If regexp.test(data) Then
  22.                 SocketObject.Send("x capability" + cr)
  23.             data = SocketObject.recv(4096)
  24.                      regexp.pattern = ".*CAPABILITY IMAP4 .*"
  25.                 If regexp.test(data) Then                    
  26.                 result=true
  27.                 'echo data
  28.             End If
  29.                    End  If 
  30.         
  31.         SocketObject.Close    
  32.     End If
  33.  
  34.     main = result
  35.  
  36. End Function
  37.