Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [tuto]créer un pumper VB.net ::

 
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: Mer 14 Déc - 13:03 (2011)    Sujet du message: [tuto]créer un pumper VB.net Répondre en citant

Voici un tuto pour faire simplement un pumper en Visual Basic.

Pour ce tuto vous aurez simplement besoin de créer une nouvelle application windows form, et d'y 'ajouter

un numericupdown
une textbox
deux radiocheck
deux boutons

mettez la valeur du numéricupdown à 10.



mettez le texte du radiocheck 1 en kilobyte
radiochek2 en megabyte
bouton 1 en pump
bouton 2 parcourir (browse en anglais)

Résultat:



Mettez ce code et voilà ^^





  1. Public Class Form1  
  2.   
  3.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  4.         Dim ofd As New OpenFileDialog  
  5.         ofd.Filter = "Exe Files|*.exe"  
  6.         ofd.ShowDialog()  
  7.         TextBox1.Text = ofd.FileName  
  8.     End Sub  
  9.   
  10.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  11.         Dim sfd As New SaveFileDialog  
  12.         sfd.Filter = "Exe Files|*.exe"  
  13.         sfd.ShowDialog()  
  14.         Dim filesize As Double = Val(NumericUpDown1.Value)  
  15.         IO.File.Copy(TextBox1.Text, sfd.FileName)  
  16.         If RadioButton1.Checked Then  
  17.             filesizefilesize = filesize * 1024  
  18.         End If  
  19.         If RadioButton2.Checked Then  
  20.             filesizefilesize = filesize * 1048576  
  21.         End If  
  22.         Dim filetopump = IO.File.OpenWrite(sfd.FileName)  
  23.         Dim size = filetopump.Seek(0, IO.SeekOrigin.[End])  
  24.         While size < filesize  
  25.             filetopump.WriteByte(0)  
  26.             size += 1  
  27.         End While  
  28.         filetopump.Close()  
  29.         MsgBox("Successfully Pumped!")  
  30.     End Sub  
  31. End Class  






Explication du code:

C'est simple, on crée une variable que le fichier sera ouvert en écriture




  1. Dim filetopump = IO.File.OpenWrite(sfd.FileName)  





Ensuite on crée une boucle qui dit en français,

boucle taille est inférieure (<) à la taille voulue en KB ou MB
ecrire dans le fichier
ecrire un byte(0)
taille = à valeur + 1

la boucle ajoutera un byte tant que taille sera inférieure à taille voulue.



Version 2




Code source de la version 2



  1. Public Class Form1  
  2.   
  3.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  4.         Dim ofd As New OpenFileDialog  
  5.         ofd.Filter = "Exe Files|*.exe"  
  6.         ofd.ShowDialog()  
  7.         TextBox1.Text = ofd.FileName  
  8.     End Sub  
  9.   
  10.     Dim mouse_offset  
  11.     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown  
  12.         mouse_offset = New Point(-e.X, -e.Y)  
  13.     End Sub  
  14.   
  15.     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove  
  16.         If e.Button = Windows.Forms.MouseButtons.Left Then  
  17.             Dim mousePos As Point = Control.MousePosition  
  18.             mousePos.Offset(mouse_offset.X, mouse_offset.Y)  
  19.             Location = mousePos  
  20.         End If  
  21.     End Sub  
  22.   
  23.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  24.         Dim sfd As New SaveFileDialog  
  25.         sfd.Filter = "Exe Files|*.exe"  
  26.         sfd.ShowDialog()  
  27.         Dim filesize As Double = Val(NumericUpDown1.Value)  
  28.         IO.File.Copy(TextBox1.Text, sfd.FileName)  
  29.         If RadioButton1.Checked Then  
  30.             filesizefilesize = filesize * 1024  
  31.         End If  
  32.         If RadioButton2.Checked Then  
  33.             filesizefilesize = filesize * 1048576  
  34.         End If  
  35.         Dim filetopump = IO.File.OpenWrite(sfd.FileName)  
  36.         Dim size = filetopump.Seek(0, IO.SeekOrigin.[End])  
  37.         While size < filesize  
  38.             filetopump.WriteByte(0)  
  39.             size += 1  
  40.         End While  
  41.         filetopump.Close()  
  42.         MsgBox("Successfully Pumped!")  
  43.     End Sub  
  44.   
  45.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  46.         Me.Close()  
  47.     End Sub  
  48. End Class  











Code source de la version 3



  1. Public Class Form1  
  2.     Dim mouse_offset  
  3.   
  4.     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown  
  5.         mouse_offset = New Point(-e.X, -e.Y)  
  6.     End Sub  
  7.   
  8.     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove  
  9.         If e.Button = Windows.Forms.MouseButtons.Left Then  
  10.             Dim mousePos As Point = Control.MousePosition  
  11.             mousePos.Offset(mouse_offset.X, mouse_offset.Y)  
  12.             Location = mousePos  
  13.         End If  
  14.     End Sub  
  15.   
  16.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  17.         Dim ofd As New OpenFileDialog  
  18.         ofd.Filter = "Exe Files|*.exe"  
  19.         ofd.ShowDialog()  
  20.         TextBox1.Text = ofd.FileName  
  21.     End Sub  
  22.   
  23.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  24.         If TextBox1.Text = "" Then  
  25.             MsgBox("Select a file !", MsgBoxStyle.Information, "Error !")  
  26.             Exit Sub  
  27.         End If  
  28.         Dim sfd As New SaveFileDialog  
  29.         sfd.Filter = "Exe Files|*.exe"  
  30.         sfd.ShowDialog()  
  31.         Dim filesize As Double = Val(NumericUpDown1.Value)  
  32.         IO.File.Copy(TextBox1.Text, sfd.FileName)  
  33.         If RadioButton1.Checked Then  
  34.             filesizefilesize = filesize * 1024  
  35.         End If  
  36.         If RadioButton2.Checked Then  
  37.             filesizefilesize = filesize * 1048576  
  38.         End If  
  39.         Dim filetopump = IO.File.OpenWrite(sfd.FileName)  
  40.         Dim size = filetopump.Seek(0, IO.SeekOrigin.[End])  
  41.         While size < filesize  
  42.             filetopump.WriteByte(0)  
  43.             size += 1  
  44.         End While  
  45.         filetopump.Close()  
  46.         MsgBox("Successfully Pumped!")  
  47.     End Sub  
  48.   
  49.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  50.         Me.Close()  
  51.     End Sub  
  52.   
  53.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  
  54.         MsgBox("Alien´s Software 2011")  
  55.     End Sub  
  56. End Class  







Source hackforum


Revenir en haut
Publicité






MessagePosté le: Mer 14 Déc - 13:03 (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