/patch_tools
  upx.exe
  perl510.dll
  perl.exe
patch_https_ujs_prompt.bat
patchscript_ujs.pl

$OPERABIN = $ARGV[0];

if ( !$OPERABIN ) {
  print " - Missing file argument for perl script!\n";
  exit 1;
}

open(FILE,'<'.$OPERABIN) or die " - Error opening file $OPERABIN for reading!\n";
binmode FILE;

my($buf, $data, $n);
$err = 0;

# read content of binary file to buf
while ( ($n = read(FILE, $data, 100000) ) != 0 ) {
  $buf .= $data;
}

# perform regepx on buf
# see if maybe already patched
if ( $buf =~ m/\x8B.\x10\xC6\x40\x38\x01/ ) {
  print " - Seems like first part of the patch is already applied. NOT proceeding!\n";
  $err = 1;
}
elsif ( $buf =~ m/\x8B.\x10\x83\x78\x38\x00/ ) {
  # pattern found
  print " - First match found (https userjs approved patch)!\n";
  $buf =~ s/\x8B(.)\x10\x83\x78\x38\x00/\x8B$1\x10\xC6\x40\x38\x01/;
}

# there are multiple matches of replaced string in file so we can't check if already patched
if ( $buf =~ m/\xC7\x40\x08\x01\x00\x00\x00\x89.\x0C/ ) {
  # pattern found
  print " - Second match found (userjs object 'modified' flag)!\n";
  $buf =~ s/\xC7\x40\x08\x01\x00\x00\x00\x89(.)\x0C/\x89$1\x08\xc7\x40\x0c\x01\x00\x00\x00/;
}
else {
  print " - Second match couldn't be found. NOT proceeding!\n";
  $err = 1;
}


close(FILE);

# return error when no match found
if ( $err ) { exit 1; }

# create file with modified buf
open(FILE, ">".$OPERABIN) or die " - Error opening file ".$OPERABIN." for writing!\n";
binmode FILE;
print FILE $buf;
close(FILE);

@echo OFF

set OPERABIN=opera.dll
set PERLPATCHFILE=patchscript_ujs.pl
set TOOLSDIR=patch_tools

echo Unpacking %OPERABIN%...
%TOOLSDIR%\upx -d %OPERABIN%

if exist temp_opera.dll del temp_opera.dll
copy %OPERABIN% temp_opera.dll

echo Patching...
%TOOLSDIR%\perl -W %PERLPATCHFILE% %OPERABIN%
if errorlevel 1 goto ERR

echo Opera patching completed successfully!
echo Your original Opera file is now '%OPERABIN%_%PERLPATCHFILE%'

:OK
echo Press any key to exit.
if exist %OPERABIN%_%PERLPATCHFILE% del %OPERABIN%_%PERLPATCHFILE%
move temp_opera.dll %OPERABIN%_%PERLPATCHFILE%
goto EOF

:ERR
echo Error! Press any key to exit.
del temp_opera.dll

:EOF
pause > nul