s_encode est chaîne =pUser+":"+pPass
s_encode = B64E(s_encode,Vrai)
s_header = "Authorization: Basic "+s_encode+RC
vpost = "ta commande post"
HTTPRequête(tonsite,"MOZILLA Compatible",s_header,vpost,"application/x-www-form-urlencoded")
PROCEDURE B64E(pChaine est une chaîne,pTexte est un booléen=Vrai)
T est une chaîne =""
SELON modulo(Taille(pChaine),3)
CAS 0 : T=""
CAS 1 : T="=="
CAS 2 : T="="
FIN
RENVOYER Crypte(pChaine,"",crypteAucun,pTexte)+T
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=5909&post_id=23853