[VB.NET] Simple Exe Pumper

[Bastij15]

Hi,
Hier meinen Simple exe pumper
Link :
http://rapidshare.com/files/38657363...umper.rar.html
und die codes

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog
ofd.Filter = "Exe Files|*.exe"
ofd.ShowDialog()
TextBox1.Text = ofd.FileName
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
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
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("Erfolgreich Gepumt !")
If TextBox1.Text = "" Then
End If
End Sub
End Class

MFG
Basti

[J0hn.X3r]

Hier meinen Simple exe pumper

Deiner?

Gibt doch genug Exe Pumper Source Codes..

Visual Basic File Pumper

[VB.NET] Krijo File Pumper - rrjeta.org - Informatika Shqiptare

Sieht vom Source sogar sehr aehnlich aus.

[Bastij15]

Deiner?

Gibt doch genug Exe Pumper Source Codes..

Visual Basic File Pumper

[VB.NET] Krijo File Pumper - rrjeta.org - Informatika Shqiptare

Sieht vom Source sogar sehr aehnlich aus.

oh sorry habe ich nich gesehen^^