Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Spammeur v1.1 ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 17:53 (2011)    Sujet du message: Spammeur v1.1 Répondre en citant

• Aperçu :




• changelog

v1.1 : modification de spameur en spammer


• Téléchargement :

v1 : http://www.megaupload.com/?d=NRA7KFIK
v1.1 : http://www.megaupload.com/?d=H8UQ3NW1


• Code :


Form1 :



  1. Public Class Form1  
  2.   
  3.     Dim texte_spamer As String  
  4.     Dim compteur As Double  
  5.     Private Delegate Sub EchangeHandler()  
  6.   
  7.     'Bouton Lancer  
  8.     Private Sub BT_Lancer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Lancer.Click  
  9.         If TextBox1.Text = "" Then 'S'il y a aucun texte le programme ne fait rien  
  10.             Exit Sub  
  11.         End If  
  12.         BackgroundWorker1.RunWorkerAsync() 'On lance l'application en arrière plan  
  13.         LB_Etat.Text = "État du spammer : en fonctionnement"  
  14.         texte_spamer = TextBox1.Text  
  15.         Me.BT_Lancer.Enabled = False 'Le bouton lancer ne répond plus au clique de l'utilisateur  
  16.         Me.BT_Reset.Enabled = False 'Le bouton reset ne répond plus au clique de l'utilisateur  
  17.     End Sub  
  18.   
  19.     'Bouton Arrêter  
  20.     Private Sub BT_Arrêter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Arrêter.Click  
  21.         BackgroundWorker1.WorkerSupportsCancellation = True  
  22.         BackgroundWorker1.CancelAsync()  
  23.         LB_Etat.Text = "État du spammer : arrêté"  
  24.         Me.BT_Lancer.Enabled = True 'Le bouton lancer répond au clique de l'utilisateur  
  25.         Me.BT_Reset.Enabled = True 'Le bouton reset répond au clique de l'utilisateur  
  26.     End Sub  
  27.   
  28.     'BackgroundWorker  
  29.     Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork  
  30.   
  31.         Do  
  32.             Dim Spamer As New EchangeHandler(AddressOf FTspamer)  
  33.             Me.Invoke(Spamer)  
  34.             Application.DoEvents()  
  35.         Loop Until Me.BackgroundWorker1.CancellationPending = True  
  36.   
  37.         If Me.BackgroundWorker1.CancellationPending = True Then  
  38.             Timer1.Stop()  
  39.         End If  
  40.   
  41.     End Sub  
  42.   
  43.     'Ce que va faire le BackgroundWorker   
  44.     Private Sub FTspamer()  
  45.         Timer1.Start()  
  46.     End Sub  
  47.   
  48.     'Une fois que le timer est lancer le spameur rentre en jeu  
  49.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  50.         TextBox1TextBox1.Text = TextBox1.Text & "" & vbNewLine & "" & texte_spamer  
  51.     End Sub  
  52.   
  53.     'Modifier la vitesse du timer en récupérant la valeur de la trackbar  
  54.     Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll  
  55.         Timer1.Interval = TrackBar1.Value  
  56.         CypherxLabel1.Text = "Vitesse : " & TrackBar1.Value & " millisecondes"  
  57.     End Sub  
  58.   
  59.     'Bouton reset  
  60.     Private Sub BT_Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Reset.Click  
  61.         TrackBar1.Value = 100  
  62.         TextBox1.Text = ""  
  63.         CypherxLabel1.Text = "Vitesse : " & TrackBar1.Value & " millisecondes"  
  64.     End Sub  
  65.   
  66.     Private Const EM_GETLINECOUNT = &HBA  
  67.     Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long  
  68.   
  69. End Class  






• Mot de passe :

texte -> GILA7 -> BASE-64 -> AER-256

1180678.9111144114, 1078511.1795378574, 1121719.9249700934, 1618039.9368682774, 1267715.8667241563, 1022553.9437307945, 21.48311610049632


• Scan :

http://www.virustotal.com/file-scan/report.html?id=28c2f620ed5bcc57d343df25…

PS : key = Guillaume17


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 17:53 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com