home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / smtp_relay.vbs37 < prev    next >
Encoding:
Text File  |  2003-10-09  |  778 b   |  33 lines
  1. ' Mail relaying - smtp server allows relaying
  2.  
  3. Function Main
  4.  
  5. Dim SocketObject As Object
  6. Dim data As String
  7.  
  8. Dim result As Boolean
  9.  
  10.  
  11.     result = false
  12.     ip = getparameter("ComputerIP")
  13.     port = "25"
  14.     cr = Chr(13) +  Chr(10)
  15.     rem _ip
  16.     Socket.SetTimeout 5000,5000
  17.     Set SocketObject = Socket.OpenTCP (ip,port)
  18.     If Not SocketObject is Nothing Then         
  19.            data = SocketObject.recv(1024)
  20.            SocketObject.send("HELO lans" + cr)
  21.            data = SocketObject.recv(1024)
  22.            SocketObject.send("MAIL FROM:blade@lans" + cr)
  23.            data = SocketObject.recv(1024)
  24.            SocketObject.send("RCPT TO: test@lans" + cr)
  25.            data = SocketObject.recv(1024)
  26.            If InStr(1, data,"250") = 1 Then
  27.                   Result = true
  28.                   'echo("smtp relay allowed !")
  29.            End If
  30.     End If
  31.     main = result
  32. End Function
  33.