home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / pop3_overflow.vbs31 < prev    next >
Encoding:
Text File  |  2004-10-12  |  1.4 KB  |  76 lines
  1.  
  2. Function Main
  3.  
  4. Dim SocketObject As Object
  5. Dim i As Integer
  6. Dim send As String
  7. Dim recv As Variant
  8. Dim result As Boolean
  9. Dim regexp As Object
  10.  
  11.     result = false
  12.     ip = getparameter("ComputerIP")
  13.     port = "110"
  14.     cr = Chr(13) +  Chr(10)
  15.     rem _ip
  16.     Socket.SetTimeout 7000,5000
  17.     Set regexp = CreateObject("Vbscript.regexp")
  18.     Set SocketObject = Socket.OpenTCP (ip,port)
  19.     If Not SocketObject is Nothing Then 
  20.  
  21.         recv = SocketObject.recv(1024)
  22.                 
  23.         send="AUTH " + makeString(2048, "x") + cr
  24.  
  25.         
  26.         SocketObject.Send(send)
  27.  
  28.         recv = SocketObject.recv(1024)
  29.         
  30.         If VarType(recv)<>8 Then
  31.             main = true
  32.             Exit Function
  33.         End If
  34.                 
  35.         send="USER " + makeString(1024, "x") + cr    
  36.         SocketObject.Send(send)
  37.  
  38.         recv = SocketObject.recv(1024)
  39.         If VarType(recv)<>8 Then
  40.             main = true
  41.             Exit Function
  42.         End If
  43.  
  44.                 
  45.         send="PASS " + makeString(1024, "x") + cr        
  46.         SocketObject.Send(send)
  47.         
  48.         recv = SocketObject.recv(1024)
  49.  
  50.         If VarType(recv)<>8 Then
  51.             main = true
  52.             Exit Function
  53.         End If
  54.     
  55.                                                        
  56.         SocketObject.Close
  57.     End If
  58.  
  59.     main = result
  60.  
  61. End Function
  62.  
  63.  
  64. Function makeString(length As Integer, pattern As String) As String
  65.     Dim tmpString As String
  66.     
  67.     Do While Len(tmpString) < length
  68.         If Len(tmpString+pattern) <= length Then
  69.             tmpstring= tmpString + pattern
  70.         Else
  71.             tmpstring = tmpString + Left(pattern, length - Len(tmpString))
  72.         End If        
  73.     Loop
  74.     
  75.     makeString = tmpString
  76. End Function