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 ]