Html sniffer --> ie headers

Soyez le premier à donner votre avis sur cette source.

Vue 6 732 fois - Téléchargée 658 fois

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

Ajouter un commentaire Commentaires
snifman Messages postés 10 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 11 janvier 2009
26 mai 2008 à 20:48
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 4
8 juil. 2003 à 07:47
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
22 janv. 2002 à 20:07
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
21 janv. 2002 à 17:18
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
20 janv. 2002 à 22:59
vraiment instructive ta source. merci akenathon.


mais bon, le rap ca craint, vive le métal et la biere :)
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)