summaryrefslogtreecommitdiff
path: root/ics-openvpn-stripped/main/lzo/util/uncompr.pl
diff options
context:
space:
mode:
Diffstat (limited to 'ics-openvpn-stripped/main/lzo/util/uncompr.pl')
-rw-r--r--ics-openvpn-stripped/main/lzo/util/uncompr.pl32
1 files changed, 32 insertions, 0 deletions
diff --git a/ics-openvpn-stripped/main/lzo/util/uncompr.pl b/ics-openvpn-stripped/main/lzo/util/uncompr.pl
new file mode 100644
index 00000000..54ec9e06
--- /dev/null
+++ b/ics-openvpn-stripped/main/lzo/util/uncompr.pl
@@ -0,0 +1,32 @@
+#! /usr/bin/perl
+##
+## vi:ts=4
+##
+##---------------------------------------------------------------------------##
+##
+## Author:
+## Markus F.X.J. Oberhumer <markus@oberhumer.com>
+##
+## Description:
+## Create incompressible files for compression test
+##
+## Copyright (C) 1996-2014 Markus Franz Xaver Johannes Oberhumer
+##
+##---------------------------------------------------------------------------##
+
+$x = ' ' x 65536;
+$i = 0;
+while ($i < 65536) {
+ substr($x,$i,1) = pack('C',rand(256));
+ $i++;
+}
+
+for $i (1,2,4,8,16,32,64) {
+ $name = sprintf("u%04d.dat",$i);
+ open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";
+ binmode(OUTFILE);
+ print OUTFILE substr($x,0,$i*1024);
+ close(OUTFILE);
+}
+
+exit(0);