Create Your Own File Pumper ! - Printable Version

Create Your Own File Pumper ! - Printable Version

+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.li/Forum-Visual-Basic-NET-Framework)
+--- Thread: Create Your Own File Pumper ! (/Thread-Create-Your-Own-File-Pumper)

Pages: 1 2

Create Your Own File Pumper ! - Raiden - 07-08-2011

Hey Guys , today i wanted to share with u the Source Code of my File Pumper made in VB.NET,for those who R a little bit smart and know how to code in VB.NET you can make it pump your mp3,jpg... files Biggrin

. AND I'm Sorry i don't have Visual Basic installed in this computer to show u an example but i'm sure that u can do it Smile

So here we go
first you'll need :
-TextBox1
-NumericUpDown1
-RadioButton1
-RadioButton2
-RadioButton3
-RadioButton4
-RadioButton5
-Button1
-Button2

then you need to change these values :
-NumericUpDown1:
Value = 0
Minimum = 0
-RadioButton1:
Text = KiloByte
-RadioButton2:
Text = MegaByte
-RadioButton3:
Text = GigaByte
-RadioButton4:
Text = TeraByte
-RadioButton5:
Text = PetaByte
-Button1: [process the pumping]
Text = PUMP !
-Button2: [browse the file]
Text = Browse

Now, double click on the Button2 and put this code

Code:
Dim ofd As New OpenFileDialog
        ofd.Filter = "Exe Files|*.exe"
        ofd.ShowDialog()
        TextBox1.Text = ofd.FileName

and put this code for the button1

Code:
Dim sfd As New SaveFileDialog
        sfd.Filter = "Exe Files|*.exe"
        sfd.ShowDialog()
        Dim filesize As Double = Val(NumericUpDown1.Value)
        IO.File.Copy(TextBox1.Text, sfd.FileName) 
        If RadioButton1.Checked Then
            filesize = filesize * 1024
        End If
        If RadioButton2.Checked Then
            filesize = filesize * 1048576
        End If
        If RadioButton3.Checked Then
            filesize = filesize * 1073741824
        End If
        If RadioButton4.Checked Then
            filesize = filesize * 1099511627776
        End If
        If RadioButton5.Checked Then
            filesize = filesize * 1125899906842624
        End If
        Dim filetopump = IO.File.OpenWrite(sfd.FileName)
        Dim size = filetopump.Seek(0, IO.SeekOrigin.[End]) 
        While size < filesize 
            filetopump.WriteByte(0) 
            size += 1
        End While
        filetopump.Close()
        MsgBox("Successfully Pumped!")

ÃƒÂ¢Ã¢â‚¬Â°Ã†â€™Raiden

NOTE : if you compress the file (.ZIP, .RAR, ect) It will shrink back to it's original size. Enjoy it and it's for Educational Purpose Only

RE: Create Your Own File Pumper ! - blowdoof - 07-08-2011

very nice trick indeed Smile

thx for sharing

RE: Create Your Own File Pumper ! - Raiden - 07-08-2011

you're welcome Biggrin

enjoy it ;D !!!

RE: Create Your Own File Pumper ! - 1234hotmaster - 07-08-2011

nice tut raiden i missed this thread :3

RE: Create Your Own File Pumper ! - tomys - 07-08-2011

didnt get what does this do?

RE: Create Your Own File Pumper ! - Raiden - 07-08-2011

(07-08-2011, 07:44 PM)1234hotmaster Wrote: nice tut raiden i missed this thread :3

hahaha thx dude miss u too xDD

(07-08-2011, 07:49 PM)tomys Wrote: didnt get what does this do?

this is the source code of a File Pumper , using this tool you can add bytes to any executable file and grow up his size Biggrin

RE: Create Your Own File Pumper ! - changeusername123 - 07-08-2011

Nice share ,
I needed this Biggrin

RE: Create Your Own File Pumper ! - Raiden - 07-08-2011

(07-08-2011, 10:01 PM)ÃƒÂ¢Ã‹â€ Ã¢â‚¬ËœÃƒÂ¢Ã‹â€ Ã…Â¡Ãƒâ€žÃ‚Â±Ãƒâ€¦Ã‚Â Wrote: Nice share ,
I needed this

Glad that i helped u dude Biggrin

RE: Create Your Own File Pumper ! - White Charisma - 07-10-2011

Reminds me of my program [check my threads]

awesome though dude <3

RE: Create Your Own File Pumper ! - Raiden - 07-10-2011

(07-10-2011, 04:30 PM)Nathan Wrote: Reminds me of my program [check my threads]

awesome though dude <3

yep i saw it , btw nice Soft ;D
and thanks :p