exploit the possibilities
Home Files News &[SERVICES_TAB]About Contact Add New

ocrshopxtr_freebie.pl.txt

ocrshopxtr_freebie.pl.txt
Posted Apr 28, 2006
Authored by venom

A perl script to bypass the OCR Shop XTR vvlicense validation scheme.

tags | exploit, perl
SHA-256 | c421e21e1e3ad1e1c704a942563a1fcee8fa3f7a4e02ebabb0989d3873c8b188

ocrshopxtr_freebie.pl.txt

Change Mirror Download
#!/usr/bin/perl
use IO::Socket;

# ocrshopxtr_freebie.pl - VeNoMouS <venom@gen-x.co.nz>
# This code bypasses the OCR Shop XTR vvlicense.
# I was doing some ocr related stuff at work, and I didnt like how windows was limited
# in what it could do, so I googled and came across OCR Shop XTR, it even picked up order
# numbers that ifilter couldnt(oh yea adobe you so rule), then I went to look at the price $2,395.00,
# you can imagine how far my jaw dropped, anyway the licencse check is retarded
# it just binds vvlicense to port 10102 on 127.0.0.1 and sends a simple cmd seq.
#
# CLIENT -> S OCRC:0.
# SERVER -> SUCCESS:1.
# CLIENT -> F OCRC:0.
# SERVER -> 11111111111111111111111111111111 (bunch more look @ the hex below you lazy cunt)
# CLIENT -> O OCRC:0.
# SERVER -> SUCCESS:1.
# CLIENT -> I OCRC:1.
# SERVER -> SUCCESS:1.
#
# And from here it starts the ocr scan proccess cause it was successful from the licencse server.
# Anyway thnx to defy for giving me his perl socket engine (saved me writing one).
# Word up to str0ke.

sub ascii_to_hex ($)
{
(my $str = shift) =~ s/(.|\n)/sprintf("%02lx", ord $1)/eg;
return $str;
}

$| = 1;
my $server = IO::Socket::INET->new(
LocalAddr => '127.0.0.1',
LocalPort => 10102,
Reuse => 1,
Listen => 9
) or die "ws: $@ on server port 10102: $!\n";

warn "ws($$): (server) ready on port @{[$server->sockport]}\n";


while($SIG{CHLD} = 'IGNORE', my $c = $server->accept) {
my $header;
while ($header !~ /\n\n/ and sysread $c, $_, 1)
{
$_ =~ s/\r//;
$header .= $_;

my $data=ascii_to_hex($header);

if ($data =~ /53204f4352433a30/)
{
print $c "\x53\x55\x43\x43\x45\x53\x53\x3a\x31\x00";
}

if ($data =~ /46204f4352433a3000/)
{
print $c "\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x31\x30\x31\x00";
}

if ($data =~ /4f204f4352433a3000/)
{
print $c "\x53\x55\x43\x43\x45\x53\x53\x3a\x31\x00";
}

if ($data =~ /49204f4352433a3100/)
{
print $c "\x53\x55\x43\x43\x45\x53\x53\x3a\x31\x00";
}
}
}
$c->close;
undef($c);
Login or Register to add favorites

File Archive:

March 2024

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Mar 1st
    16 Files
  • 2
    Mar 2nd
    0 Files
  • 3
    Mar 3rd
    0 Files
  • 4
    Mar 4th
    32 Files
  • 5
    Mar 5th
    28 Files
  • 6
    Mar 6th
    42 Files
  • 7
    Mar 7th
    17 Files
  • 8
    Mar 8th
    13 Files
  • 9
    Mar 9th
    0 Files
  • 10
    Mar 10th
    0 Files
  • 11
    Mar 11th
    15 Files
  • 12
    Mar 12th
    19 Files
  • 13
    Mar 13th
    21 Files
  • 14
    Mar 14th
    38 Files
  • 15
    Mar 15th
    15 Files
  • 16
    Mar 16th
    0 Files
  • 17
    Mar 17th
    0 Files
  • 18
    Mar 18th
    10 Files
  • 19
    Mar 19th
    32 Files
  • 20
    Mar 20th
    46 Files
  • 21
    Mar 21st
    16 Files
  • 22
    Mar 22nd
    13 Files
  • 23
    Mar 23rd
    0 Files
  • 24
    Mar 24th
    0 Files
  • 25
    Mar 25th
    12 Files
  • 26
    Mar 26th
    31 Files
  • 27
    Mar 27th
    19 Files
  • 28
    Mar 28th
    42 Files
  • 29
    Mar 29th
    0 Files
  • 30
    Mar 30th
    0 Files
  • 31
    Mar 31st
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2022 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close