• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 6 di 6

Discussione: Crea un Proxy!

Cambio titolo
  1. #1
    40k DoW L'avatar di Hiper89
    Registrato il
    03-03
    Località
    Ashenvalle
    Messaggi
    3.050

    Occhiolino Crea un Proxy!

    Con questo codice che ho trovato su internet e un pò modificato potrete creare un proxy in vb che vi permetterà di navigare anonimi per la rete internet:

    Legenda:

    C=controllo P=proprietà V=valore


    Iniziate creando:

    _ C=text1 P=multiline V=True

    _ C=text2 P=maxlength V=4

    _ C=text3

    _ C=command2 P=caption V=chiudi

    _ C=label1 P=caption V=proxy

    _ C=label2 P=caption V=porta

    _ C=label3 P=caption V=sconnesso

    _ C=winsock P=local V=port 8080

    _ C=winsock2

    _ C=richtextbox1

    _ C=timer1 P=interval V=10

    Poi incollate nel codice questo:

    Codice:
     Private Sub Command2_Click()
        'Chiudo prematuramente e forzatamente
        'la connessione
        On Error Resume Next
        Winsock1.Close
        Winsock1.Listen
        Winsock2.Close
        Label1.Caption = "SCONNESSO"
    End Sub
    
    Private Sub Form_Load()
        'Appena apro il programma mi metto in ascolto
        Winsock1.Listen
    End Sub
    
    Private Sub Timer1_Timer()
        'Verifico lo stato della connessione
        'e lo visualizzo
        If Winsock1.State <> sckConnected Then
            Label1.Caption = "SCONNESSO"
        Else
            Label1.Caption = "Connesso"
        End If
    End Sub
    
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
        'Quando giunge una richiesta l'accetto
        If Winsock1.State <> sckClosed Then Winsock1.Close
        Winsock1.Accept (requestID)
        Label1.Caption = "Connesso"
    End Sub
    
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
        'Il browser ha formulato la richiesta: inizia a lavorare
        Dim buffer As String
        Winsock1.GetData buffer, , bytesTotal
        Text1.Text = buffer
        DoEvents
        If Winsock2.State <> sckClosed Then Winsock2.Close
        Winsock2.RemotePort = CDbl(Text2.Text)
        Winsock2.RemoteHost = Text3.Text
        On Error GoTo errore
        Winsock2.Connect
        Exit Sub
    errore:
        MsgBox Err.Description
        Command2_Click
    End Sub
    
    Private Sub Winsock1_Error(ByVal Number As Integer, Description As
    String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As
    String, ByVal HelpContext As Long, CancelDisplay As Boolean)
        'Si commenta da sola.......
        Winsock1.Close
        Winsock1.Listen
        Label1.Caption = "SCONNESSO"
    End Sub
    
    Private Sub Winsock1_SendComplete()
        'Terminata la trasmissione chiudi le connessioni
        On Error Resume Next
        Winsock1.Close
        Winsock1.Listen
        Label1.Caption = "SCONNESSO"
        Winsock2.Close
    End Sub
    
    Private Sub Winsock2_Connect()
        'Quando il server risponde invia la richiesta
        On Error GoTo error3
        Dim buffer3 As String
        buffer3 = Text1.Text
        DoEvents
        Winsock2.SendData (buffer3)
        Exit Sub
    error3:
        MsgBox Err.Description
    End Sub
    
    Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
        'Il server ha risposto: dillo al browser
        On Error GoTo errore2
        Dim buffer2 As String
        Winsock2.GetData buffer2, , bytesTotal
        RichTextBox1.Text = RichTextBox1.Text + buffer2
        DoEvents
        Winsock1.SendData ""
        Winsock1.SendData RichTextBox1.Text
        Exit Sub
    errore2:
        MsgBox Err.Description
        Command2_Click
    End Sub
    
    Private Sub Winsock2_Error(ByVal Number As Integer, Description As
    String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As
    String, ByVal HelpContext As Long, CancelDisplay As Boolean)
        'Problemi? Chiudi il socket!
        Winsock2.Close
    End Sub
    -------------------------------------------

    Ecco finito il nostro proxy sotto licenza Gpl

  2. #2
    gymvideo
    Ospite
    scusa la mia ignoranza ma che cosa è un proxy?

  3. #3
    Utente
    Registrato il
    10-03
    Messaggi
    105
    in poche parole, c'è un comp A che si vuole connettere a B. A però non vuole far vedere a B il suo ip, quindi si connette a C che redirige i dati su B. quindi B vede solo l'ip di C e non di A. C in questo caso è il server proxy.

    il codice credo si riferisca comunque ad un proxy client non ad un proxy server.
    CPU: Intel 386 40 Mhz
    RAM: 8 Mb
    HD: 500 Mb
    Che vuoi di più??

  4. #4
    40k DoW L'avatar di Hiper89
    Registrato il
    03-03
    Località
    Ashenvalle
    Messaggi
    3.050
    Si il mio codice è un proxy client

    Edit

    E' ufficialmente nato il progetto openproxy che sarà un programma opensource...
    Ora sto creando un server ftp dove si potrà scaricare il programma nella versione .exe e il file .txt con il codice sorgente..
    Questa è la 0.1 Beta.
    Segnalatemi i bug o miglioramenti.

    Chi di voi mi può spiegare come essere hostato su Sourceforge.net dopo essermi registarto come normal user?
    Ultima modifica di Hiper89; 5-02-2004 alle 16:58:20

  5. #5
    40k DoW L'avatar di Hiper89
    Registrato il
    03-03
    Località
    Ashenvalle
    Messaggi
    3.050
    Visto che sto capendo come si ottiene un host su Sourceforge.net ecco il sito provvisorio.

  6. #6
    40k DoW L'avatar di Hiper89
    Registrato il
    03-03
    Località
    Ashenvalle
    Messaggi
    3.050
    Ma sto proggetto vi fà proprio così schifo?

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •