src = "1101000110010111011001101100110111111010001100101110110011011001101111"
res = "1110100000110010100110111111110101000110100101111101100111101100110111"
//--------------------------------
src,oct1,oct2 is string
i,pos,cpt,inc is int
//--------------------------------
//init variables
pos = 1 cpt = 7 inc = 1
src = "1101000110010111011001101100110111111010001100101110110011011001101111"
Trace (src)
POUR i = 1 A (Taille(src)/7)
oct1 = Milieu(src,pos,cpt)
pos = pos+7
oct2 = Milieu(src,(pos+cpt),inc)
//Trace(oct2)
inc = inc+1
cpt = cpt -1
res = res+oct2+oct1
SI inc = 7 ALORS
inc = 1
cpt =7
FIN
FIN
Trace(res)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=6586&post_id=25851