Jump to content

Increased file size


Joke758
 Share

Recommended Posts

This script add useless bytes to make a file bigger.

;By Joke758
Local $edd

$file = FileOpenDialog ( "Choose a file", @scriptdir, "Any Files (*.*)" )
$ext = StringRight ( $file, 3 )
$add = inputbox ( "Increase the size", "How many bytes to add?", "100000" )
$hex = String(BinaryString(FileRead($file) ) )

    $Form2 = GUICreate("Adding", 237, 74, 302, 218)
    $Progress1 = GUICtrlCreateProgress(16, 40, 209, 17)
    GUICtrlSetColor(-1, 0x316AC5)
    GUICtrlCreateLabel("Adding...", 16, 8, 97, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)

For $i = 1 to $add
    $percent = int($i/$add*100)
    GuiCtrlSetData ( $progress1, $percent )
    $edd = $edd & '00'
Next

$hex &= $edd
$newfile = @scriptdir & '\increased_new.' & $ext
Local $h_Open = FileOpen($newfile, 2)
FileWrite($h_Open, BinaryString($hex))
FileClose($h_Open)
MsgBox ( 64, "Increase a file", "Done!" & @CRLF & $newfile  )

[u]My Programs:[/u]Word Search Creator - Make your own Word SearchShortHand - Hide a secret message in a jpg fileHex Editor - Edit your Binary fileIncrease file size - Increase the size of any filesArt Generator - A program that generate random picture[u]My Functions:[/u]16-Bits Hash - My Hash function similar to MD5Probabilities - My probabilities function (factorial, permuation, combination)_GetDate() - Convert a date to a day of the week_Base(), _Dec() - Convert a number in any base (bin, oct, hex, dec). Create your own!

Link to comment
Share on other sites

This script add useless bytes to make a file bigger.

;By Joke758
Local $edd

$file = FileOpenDialog ( "Choose a file", @scriptdir, "Any Files (*.*)" )
$ext = StringRight ( $file, 3 )
$add = inputbox ( "Increase the size", "How many bytes to add?", "100000" )
$hex = String(BinaryString(FileRead($file) ) )

    $Form2 = GUICreate("Adding", 237, 74, 302, 218)
    $Progress1 = GUICtrlCreateProgress(16, 40, 209, 17)
    GUICtrlSetColor(-1, 0x316AC5)
    GUICtrlCreateLabel("Adding...", 16, 8, 97, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)

For $i = 1 to $add
    $percent = int($i/$add*100)
    GuiCtrlSetData ( $progress1, $percent )
    $edd = $edd & '00'
Next

$hex &= $edd
$newfile = @scriptdir & '\increased_new.' & $ext
Local $h_Open = FileOpen($newfile, 2)
FileWrite($h_Open, BinaryString($hex))
FileClose($h_Open)
MsgBox ( 64, "Increase a file", "Done!" & @CRLF & $newfile  )
nice easy function now i can make my viruses seem bigger lol joking but nice script
[s]Autoit[/s]
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...