Toutes diodes oranges (meme avec un vieux routeur)

var firmwarelimit="-violet-";;

fun getbinary bin src i off len=
/*      while i<len do
        (
                strset bin i (htoi strsub src off 2);
                set i=i+1;
                set off=off+2
        );;
*/
        if i<len then
        (
                strset bin i (htoi strsub src off 2);
                getbinary bin src i+1 off+2 len
        );;

fun getfirmware req=
        let strstr req firmwarelimit 0 -> i0 in
        if i0!=nil then let i0+8->i0 in
        let htoi strsub req i0 8 -> len in
        let i0+8->i0 in
        let strsub req i0+len 8 -> end in
        if !strcmp end firmwarelimit then
        let strnew len>>1 -> bin in
        (
                Secholn "getbinary";
                setleds 0xff0000;
                getbinary bin req 0 i0 len>>1;
                uncrypt bin 0 nil 0x47 47;
                bin
        );;

fun httpflash req=
        Secholn "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFf";
//      Secholn req;
        let getfirmware req -> firm in
        if firm!=nil then
        (
//              dump firm;
                Secholn "######### firmware found";
                setleds 0xffffff;
                flashFirmware firm 0x13fb6754 0x0407FE58;
                nil
        )
        else
        (
                setleds 0xff;
                page_error
        );;