Again: perl version of that tin opener (IOS decrypt.c)

[mesrik () CC JYU FI (Riku Meskanen)]

On Mon, 12 Jan 1998, Riku Meskanen wrote:
> Howdy,
>
> Squeezed the decrypt.c[1] with perl a bit, just for seeing

Sorry about commenting my self but, just noticed a flaw in
the perl script I posted <blush>.

Following patch should be applied (hopefully before
posting the script to BUGTRAQ if possible!)

--- ios7decrypt.pl.orig Mon Jan 12 01:17:07 1998
+++ ios7decrypt.pl      Mon Jan 12 01:08:36 1998
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: ios7decrypt.pl,v 1.1 1998/01/11 21:31:12 mesrik Exp $
+# $Id: ios7decrypt.pl,v 1.3 1998/01/11 23:08:36 mesrik Exp $
 #
 # Credits for orginal code and description hobbit () avian org,
 # SPHiXe, .mudge et al. and for John Bashinski <jbash () CISCO COM>
@@ -20,7 +20,7 @@
                for ($i = 0; $i < length($e); $i+=2) {
                    $dp .= sprintf "%c",hex(substr($e,$i,2))^$xlat[$s++];
                }
-               s/$ep/$dp/;
+               s/7\s+$ep/$dp/;
            }
        }
        print;

just in case anybody tries to reload a -confg file. Just apply
the patch (or add "7\s+" in front of $ep on line 23), please.

*****************************************************************
*  Without this patch the script will not strip that seven (7)  *
*  and then reloading the confg -file will mess up your device! *
*****************************************************************

I'm sorry the inconvinience caused.

:-) riku
--
    [ This .signature intentionally left blank ]