[5932] in bugtraq
Again: perl version of that tin opener (IOS decrypt.c)
daemon@ATHENA.MIT.EDU (Riku Meskanen)
Sun Jan 11 20:38:28 1998
Date: Mon, 12 Jan 1998 01:40:36 +0200
Reply-To: Riku Meskanen <mesrik@CC.JYU.FI>
From: Riku Meskanen <mesrik@CC.JYU.FI>
To: BUGTRAQ@NETSPACE.ORG
In-Reply-To: <Pine.SOL.3.96.980111233202.26751G-100000@kanto.cc.jyu.fi>
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 ]
