Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Pumper ::

 
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 - 18:06 (2011)    Sujet du message: Pumper Répondre en citant

• Aperçu :



• Téléchargement :

http://www.megaupload.com/?d=8QYFVWVD

• Code :

Form1 :




  1. Imports System.IO  
  2.   
  3. Public Class Form1  
  4.   
  5.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  6.         Dim direc As New OpenFileDialog 'Cherche le fichier  
  7.         direc.Filter = "Executables|*.exe" 'Uniquement des Exe  
  8.         direc.ShowDialog()  
  9.         repertoire.Text = direc.FileName ' Affiche le répértoire du fichier  
  10.     End Sub  
  11.   
  12.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  13.         If repertoire.Text = "" Then  
  14.             MsgBox("Aucun fichier sélectionné")  
  15.             Exit Sub  
  16.         End If  
  17.   
  18.         Dim dirsortie As New SaveFileDialog 'déclare un nouveau SaveFileDialog  
  19.         dirsortie.Filter = "Executables|*.exe" 'filtre pour avoire que des .exe  
  20.         dirsortie.ShowDialog()  
  21.         Dim taille As Double = Val(valeur.Value) 'Préparation da la variable qui contiendra la taille a augmentez  
  22.         IO.File.Copy(repertoire.Text, dirsortie.FileName)  
  23.         If kb.Checked Then  
  24.             tailletaille = taille * 1024 'kb ( 1024 bytes = 1 killobtyes  
  25.         End If 'Vérifie quelles valeurs prendre et utiliser  
  26.         If mb.Checked Then  
  27.             tailletaille = taille * 1048576 'mb ( 1048576 bytes = 1 mega bytes)  
  28.         End If  
  29.         Dim fichier = IO.File.OpenWrite(dirsortie.FileName) 'ajoute le nombre x  
  30.         Dim taille2 = fichier.Seek(0, IO.SeekOrigin.[End])  
  31.         While taille2 < taille  
  32.             fichier.WriteByte(0)  
  33.             taille2 += 1 'finalise action  
  34.         End While  
  35.         fichier.Close() 'ferme l'écriture  
  36.         MsgBox("Pumper avec succes !!") ' affiche une msgbox pour dire que l'actiona reussi  
  37.     End Sub  
  38.   
  39.     Private Sub repertoire_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles repertoire.TextChanged  
  40.         Label1.Text = TailleFichieroKoMoGo(repertoire.Text)  
  41.     End Sub  
  42.   
  43.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click  
  44.         MsgBox("Un pumper permet de modifier la taille d'un executable. Biensur le poids du fichier ne peut être inférieur à celui de l'original.", 4128, "C'est quoi ?")  
  45.     End Sub  
  46.   
  47.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  
  48.         MsgBox("Code : Guillaume17, Panda, tcedi", 4128, "Crédit")  
  49.     End Sub  
  50.   
  51.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  52.         End  
  53.     End Sub  
  54.   
  55.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  56.         Label1.Text = ""  
  57.     End Sub  
  58. End Class  





Module1 :




  1. Module Module1  
  2.     Public Function TailleFichieroKoMoGo(ByVal Chemin As String) As String  
  3.         Dim Taille  
  4.         Dim Valeur  
  5.         Taille = FileLen(Chemin)  
  6.         If Taille >= 1024 Then  
  7.             TailleTaille = Taille / 1024  
  8.             If Taille >= 1024 Then  
  9.                 TailleTaille = Taille / 1024  
  10.                 If Taille >= 1024 Then  
  11.                     TailleTaille = Taille / 1024  
  12.                     If Asc(StrReverse(Left(Taille, 4))) = 44 Then  
  13.                         Valeur = Left(Taille, 3)  
  14.                     Else  
  15.                         Valeur = Left(Taille, 4)  
  16.                     End If  
  17.                     TailleFichieroKoMoGo = Valeur & " Go"  
  18.                 Else  
  19.                     If Asc(StrReverse(Left(Taille, 4))) = 44 Then  
  20.                         Valeur = Left(Taille, 3)  
  21.                     Else  
  22.                         Valeur = Left(Taille, 4)  
  23.                     End If  
  24.                     TailleFichieroKoMoGo = Valeur & " Mo"  
  25.                 End If  
  26.             Else  
  27.                 If Asc(StrReverse(Left(Taille, 4))) = 44 Then  
  28.                     Valeur = Left(Taille, 3)  
  29.                 Else  
  30.                     Valeur = Left(Taille, 4)  
  31.                 End If  
  32.                 TailleFichieroKoMoGo = Valeur & " Ko"  
  33.             End If  
  34.         Else  
  35.             If Taille < 2 Then  
  36.                 Valeur = " octet"  
  37.             Else  
  38.                 Valeur = " octets"  
  39.             End If  
  40.             TailleTailleFichieroKoMoGo = Taille & Valeur  
  41.         End If  
  42.     End Function  
  43. End Module  






• Mot de passe :

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

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

PS : key = Guillaume17


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 18:06 (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