Ce code a été fourni par Elian Lacroix , n'hésitez pas à lire son blog.

FONCTION VersBinaire(nValeurDecimal)

sBinaire est une chaîne = ""
nb est un entier = nValeurDecimal

TANTQUE nb > 0
        SI modulo(nb,2) ALORS
                sBinaire = "1" + sBinaire
        SINON
                sBinaire = "0" + sBinaire
        FIN
        nb = nb/2
FIN
RENVOYER sBinaire

###########################################################################"

FONCTION DepuisBinaire(schaineBinaire)

sBinaire est une chaîne = schaineBinaire
i est un entier
j est un entier
nDecimal est un entier
nCalcul est un entier

POUR i = Taille (sBinaire) A 1 PAS -1
        nCalcul = 2*Val (sBinaire[[i A i]])
        SI nCalcul ALORS
                nDecimal += Puissance (nCalcul,j)
        FIN
        j++
FIN

RENVOYER nDecimal