Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 13 lines (9 sloc) 225 Bytes
#!/usr/bin/perl
use strict;
use warnings;
my $padsize = (4096 - ((-s $ARGV[0]) % 4096)) - 4;
open(EXE, '>>', $ARGV[0]);
for (my $i = 0; $i < $padsize; $i++) {
syswrite EXE, "\0", 1;
}
print EXE pack("H*", "efbeadde");
Something went wrong with that request. Please try again.