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

From: Riku Meskanen (mesrikat_private)
Date: Sun Jan 11 1998 - 15:40:36 PST

  • Next message: Ruth Milner [VLA]: "bug in Solaris 2.6 security logging"

    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 hobbitat_private,
     # SPHiXe, .mudge et al. and for John Bashinski <jbashat_private>
    @@ -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 ]
    



    This archive was generated by hypermail 2b30 : Fri Apr 13 2001 - 13:38:39 PDT