Crea un Proxy!

[Hiper89]

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:

 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

[gymvideo]

scusa la mia ignoranza ma che cosa è un proxy?

[Mius]

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.

[Hiper89]

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?

[Hiper89]

Visto che sto capendo come si ottiene un host su Sourceforge.net ecco il sito provvisorio.

[Hiper89]

Ma sto proggetto vi fà proprio così schifo?