Html sniffer --> ie headers

Soyez le premier à donner votre avis sur cette source.

Vue 6 118 fois - Téléchargée 574 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

snifman
Messages postés
10
Date d'inscription
dimanche 9 mars 2008
Statut
Membre
Dernière intervention
11 janvier 2009
-
bonjour,j'ai vue ton codes sources mais j'ai rien compris est ce que vous pouvez m'aider a comprendre soit par des tutoriel soit par des sites
merci@
urgent
Nargzul
Messages postés
438
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
26 juillet 2007
3 -
ca marche pas chez moi... je clic sur ouvrir après avoir fait les manip dans les option, la je recois un truc, du genre: monadresseip essaye de se connecter, etes vous d'accord, bon la ok, la il s'ouvre et se referme directement... ca m'arange pas des masse
cs_aKheNathOn
Messages postés
575
Date d'inscription
dimanche 23 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2012
-
Désolé moi j'écoute aussi bien de l'arsenic que du metal (j'en avais écouté avec une ex qui étais trés douteuse ... et j'aimais bien ... surotut pour lui faire plaisir ... ) Mais je suis tout à fait d'accord avec toi ! VIVE La Bierre ... et aussi le schit ... même si j'ai arréte à cause des mes petits pauvres neurones ... (et oui le schit c'est bien mais ça dépouille trop ... question de qualitée bien-sur ... )
cs_cyrilp
Messages postés
140
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
-
Je teste tout de suite, ça à l'air interessant...
cs_1664
Messages postés
4
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
6 février 2002
-
vraiment instructive ta source. merci akenathon.


mais bon, le rap ca craint, vive le métal et la biere :)

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.