Html sniffer --> ie headers

Télécharger le projet
Commenter

Description

Bon je n'ait rien invinté , j'ai juste essayé de faire un petit prog qui fonctionne à peu prés comme un proxy ! ( je dis bien à peu prés ! car en faite il ne passe pas les images ... et il est assez lent ... et parfois même il risque de ne pas pouvoir bien afficher la page à sniffer ... )

L'utilité ... Bréf c'est pas trop de grande utilitée à par si on veut hacker et on veut trouver des failles dans les asp ... cgi et tout ça ...

Bréf ne faites pas n'importe quoi avec ...

Sinon pour le rendre fonctionnel , c'est simple , faut lancer IE --> Outils / Options Internet puis allez dans l'onglet connexions ...
Faut cocher Ne Jamais établir de connexions puis cliquez sur paramétres LAN ...

La décochez si ce n'est pas déjà fait Détecter automatiquement... et Utiliser le script... et aussi Ne pas utiliser... Et cochez Utilisez un server proxy ...

Dans la zone de texte , la premiére inscrivez votre IP et pour le port mettez 8080 dans la seconde zone de texte ...

--CLiquez sur OK--

Voilà , maintenant lancez le prog puis cliquez sur Listen . Là choisisez le site à hacker puis voilà ... naviguez avec l'ie ... sur les liens qui vous intersent et qui vous posent un probléme ...

Source / Exemple : 


'Alors ensuite d'avoir compris la technique d'appell d'un asp par exemple ... vous n'aurez plus qu'à creer un prog qui l'utilise ... Exemple de bombardage de message et autres ... Pour cela c'est simple d'emploi , un winsock , puis le connecter au server web , puis lui envoyer l'headers que vous aurez sniffé !
' Il peut aussi servir à comprendre quelques petites fonctions des cookies , ainsi que leur cryptage ... Bonne prog à tous sinon .

Dim mess As String

Private Sub Command1_Click()
Winsock1.Close
Winsock1.LocalPort = Val(Text1.Text)
Winsock1.Listen
Label3.Caption = "State : Listening ..."
End Sub

Private Sub Command2_Click()
Label3.Caption = "State : R . A . S ."
Winsock1.Close
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Label1.Caption = "Votre IP : " & Winsock1.LocalIP
Winsock1.LocalPort = 8080
End Sub

Private Sub Winsock1_Close()
Label3.Caption = "State : R . A . S ."
Winsock2.Close
Label4.Caption = "Closed..."
Shape1.BackColor = &HFF&
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Label3.Caption = "State : Connection Requested !"
Result = MsgBox("Une connexion est demandée : " & vbCrLf & "IP : " & Winsock1.RemoteHostIP & " ! " & vbCrLf & vbCrLf & "Voulez-vous l'accepter ?", vbYesNo + vbQuestion, "Connexion Demandée !")
If Result = vbYes Then
Winsock1.Close
Winsock1.Accept requestID
Label3.Caption = "State : Connected to " & Winsock1.RemoteHostIP
Label4.Caption = "Closed..."
Shape1.BackColor = &HFF&
Else
Label3.Caption = "State : Listening..."
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData mess
Text2.Text = Text2.Text & vbCrLf & "Paquet IP : " & Winsock1.RemoteHostIP & vbCrLf & mess
' traitement du message ...
' 1 . On enléve le référing ...
deb = InStr(1, mess, "Refere", vbTextCompare)
If Not deb = 0 Then
fin = InStr(deb, mess, vbCrLf, vbBinaryCompare)
mess = Left(mess, deb) & Right(mess, Len(mess) - fin)
End If
' puis on choppe le nom de la page
deb = InStr(1, mess, " ", vbBinaryCompare)
fin = InStr(deb + 1, mess, " ", vbBinaryCompare)
url = Mid(mess, deb + 1, fin - deb)
'--- On à l'url ... ---
deb = InStr(8, url, "/", vbBinaryCompare)
Page = Mid(url, deb, Len(url) - deb)
Server = Mid(url, 8, deb - 8)
Winsock2.Close
Label4.Caption = "Connecting..."
Shape1.BackColor = &H80FF&
Winsock2.Connect Server, 80
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)
Label3.Caption = "State : Error -> " & Description
End Sub

Private Sub Winsock2_Close()
Label4.Caption = "Closed..."
Shape1.BackColor = &HFF&
Winsock1.Close
End Sub

Private Sub Winsock2_Connect()
Label4.Caption = "Connected..."
Shape1.BackColor = &HFF00&
Winsock2.SendData mess & vbCrLf & vbCrLf
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Message1 As String
Winsock2.GetData Message1
Winsock1.SendData Message1
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)
Label4.Caption = "Closed..."
Shape1.BackColor = &HFF&
Winsock1.Close
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (akhenathon)