PC Professionell 2006 May/PCpro_2006_05.ISO/files/free_security/languard/languardnss7.exe/anonymous_ftp.vbs6

Text File | 2003-10-09 | 1.3 KB | 46 lines

Function Main

'Anonymous Ftp Guest Account
Dim  strRequest As String
Dim  strResponse As String
Dim SocketObject As Object
Dim result As Boolean


    result = false
    ip = getparameter("ComputerIP")
    port = "21"
    cr = Chr(13) +  Chr(10)
    rem _ip
    Socket.SetTimeout 5000,5000
    Set SocketObject = Socket.OpenTCP (ip,port)
    If Not SocketObject is Nothing Then
         strResponse = SocketObject.recv(1024)
         If Len(strResponse) > 0 Then
              If InStr(1,strResponse,"220") > 0 Then
                     SocketObject.send("user anonymous" + cr)
                      strResponse = SocketObject.recv(1024)
                      If Len(strResponse) > 0 Then
                           If InStr(1,strResponse,"331") > 0 Then
                                  SocketObject.send("pass [e-mail]" + cr)
                                            strResponse = SocketObject.recv(1024)
                                  If Len(strResponse) > 0 Then
                                               If InStr(1,strResponse,"230") > 0 Then
                                            result = True
                                         End If
                                  End If
                           End If
                             End If
                  End If
         End If
     SocketObject.Close
    End If
'    If result = True Then
'        echo "Anonymous Ftp Detected at "+CStr(IP)+" on port: "+CStr(Port) + cr
'    Else
'        echo "Anonymous Ftp Not Detected at "+CStr(IP)+" on port: "+CStr(Port) + cr
'    End If
    main = result


End Function