From b34aafe0c32f2c613f6c4205be45cc4b68525fe2 Mon Sep 17 00:00:00 2001
From: spjspj <spjspj4@gmail.com>
Date: Sun, 23 Feb 2025 22:49:18 +1100
Subject: [PATCH] Delete modify_pdf.pl

Apologies.
---
 modify_pdf.pl | 156 --------------------------------------------------
 1 file changed, 156 deletions(-)
 delete mode 100644 modify_pdf.pl

diff --git a/modify_pdf.pl b/modify_pdf.pl
deleted file mode 100644
index 978fb2b0449..00000000000
--- a/modify_pdf.pl
+++ /dev/null
@@ -1,156 +0,0 @@
-#!/usr/bin/perl
-
-use 5.010;
-use Compress::Raw::Zlib;
-use Digest::MD5 qw(md5 md5_hex md5_base64);
-use File::Copy;
-use LWP::Simple;
-use MIME::Base64 qw(encode_base64url decode_base64url);
-use POSIX qw(strftime);
-use Socket;
-use bytes;
-use strict;
-use warnings;
-
-my ($infile, $outfile) = @ARGV;
-die "Usage: $0 INFILE OUTFILE\n" if not $outfile;
- 
-open my $in, '<', $infile or die;
-binmode $in;
- 
-my $cont = '';
- 
-while (1)
-{
-    my $success = read $in, $cont, 100, length ($cont);
-    die $! if not defined $success;
-    last if not $success;
-}
-close $in;
- 
-open my $out, '>', $outfile or die;
-binmode $out;
-print $out $cont;
-close $out;
-
-# Decode the Tj components of the streams
-sub hex_val
-{
-    my $v = $_ [0];
-    
-    if ($v =~ m/\d/) { return $v; }
-    if ($v eq "a") { return 10; }
-    if ($v eq "b") { return 11; }
-    if ($v eq "c") { return 12; }
-    if ($v eq "d") { return 13; }
-    if ($v eq "e") { return 14; }
-    if ($v eq "f") { return 15; }
-    return $v;
-}
-
-my $overall_text;
-my $tj;
-my $this_tj;
-sub print_str
-{
-    my $str = $_ [0];
-    my $orig_str = $str;
-    my $this_s;
-
-    while ($str =~ s/(.)(.)//)
-    {
-        my $a = hex_val ($1) * 16;
-        my $b = hex_val ($2);
-        #print ($a+$b, " ");
-        $this_s .= chr ($a+$b);
-    }
-
-    if ($this_s =~ m/ +[A-Z]/)
-    {
-        $this_s .= "   $this_tj$orig_str<<\n";
-        $this_tj = "   >> TJ=";
-    }
-    else
-    {
-        $this_tj .= "\n    str:($this_s) $orig_str :";
-    }
-    return $this_s; 
-}
-
-sub get_pdf_text
-{
-    my $text = $_ [0];
-    # hh hh hh hh hh << hex based on two 
-    while ($text =~ s/^(.*)\n//im)
-    {
-        my $line = $1;
-        if ($line =~ m/<([0-9a-f]+)>.*?Tj/)
-        {
-            my $str = $1;
-            my $this_s = print_str ($str);
-            $overall_text .= $this_s;
-        }
-    }
-}
-# Done - Decode the Tj components of the streams
-
-# Write out the chunks of stream??
-my $keep = 1;
-my $cont2 = $cont;
-my $keep_cont2 = $cont2;
-
-my $stream_r = qr/^.*?FlateDecode.*?[^d]stream/s;
-my $endstream_after_r = qr/endstream.*/s;
-my $endstream_before_r = qr/^.*?endstream/s;
-my $newline = qr/\r\n/s;
-my $o;
-
-# MAIN
-while ($keep)
-{
-    my $cont_two = 1;
-    while ($cont2 =~ m/[^d]stream/im)
-    {
-        $cont2 =~ s/$stream_r//;
-        $keep_cont2 = $cont2;
-        print ("\n >>> " . length ($cont2));
-        $cont2 =~ s/$endstream_after_r//;
-        print ("\n 2>>> " . length ($cont2));
-        $cont2 =~ s/$newline//img;
-        $keep_cont2 =~ s/$endstream_before_r//;
-        print ("\n 3>>> " . length ($keep_cont2));
-
-        # Compressed
-        my $outfile2 = "perl_stream.$keep.zip";
-        open my $out, '>', $outfile2 or die;
-        binmode $out;
-        print $out $cont2;
-        close $out;
-
-        # Decompressed
-        my $d = new Compress::Raw::Zlib::Inflate();
-        my $output = $d->inflate ($cont2, $o);
-        print " xxxx after inflate..>> $output \n";
-        my $outfile2 = $outfile . ".$keep.txt";
-        open my $out, '>', $outfile2 or die;
-        binmode $out;
-        print $out $o;
-        close $out;
-
-        get_pdf_text ($o);
-
-        $keep++;
-        $cont2 = $keep_cont2;
-    }
-    
-    print ("$overall_text\n");
-    $keep = 0;
-}
- 
-$cont =~ s/\W/_/img;
-$cont =~ s/___*/_/img;
-#print $cont;
-
-say length($cont);
-print ("$infile >> ",  -s $infile, "\n");
-print ("$outfile >> ",  -s $outfile, "\n");