Diverses fonctions

if(ereg(' `^[[:alnum:]]([-_.]?[[:alnum:]])*@[[:alnum:]]([-.]?[[:alnum:]])*\.([a-z]{2,4})$` ',$chaine))
	echo "bon"; else echo "pas bon";

if (ereg("/^((25[0-5]|2[0-4]\d|1?\d?\d).){3}(25[0-5]|2[0-4]\d|1?\d?\d)$/",$ip))
	print "Format de l'ip valide<br>";   else    print "Format d'IP invalide<br>";

$url = "http://www.jeuxvideo.com:80/test/forums.htm";
 
function cut_url($url)
{
    preg_match('`^([a-z0-9]+://)?([^/:]+)(:[\d]+)?(/.*$)?`i', $url, $out);
    return $out;
}
 
print_r(cut_url($url));
/* affichera
Array
(
    [0] => http://www.jeuxvideo.com:80/test/forums.htm
    [1] => http://
    [2] => www.jeuxvideo.com
    [3] => :80
    [4] => /test/forums.htm
)
*/

Function Base_10_n(valeur As Long, base As Integer) As String
Dim digit As Integer
         Base_10_n = ""
         While valeur > 0
             digit = valeur - Int(valeur / base) * base
             Base_10_n = Mid("01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ", digit + 1,1) & Base_10_n
             valeur = Int(valeur / base)
         Wend
End Function

Function Base_n_10(valeur As String, base As Integer) As Long
Dim digit As Integer
         Base_n_10 = 0
         While valeur <> ""
             digit = InStr("01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ",UCase(Left(valeur, 1)))
             If digit > 0 Then Base_n_10 = Base_n_10 * base + digit - 1
             valeur = Mid(valeur, 2)
         Wend
End Function

((a*256+b)*256+c)*256+d. Exemple: 212.211.210.209 (a.b.c.d) donne 3570651857

Entier vers IP (WD) :

    WDiviseur est un réel = 256
    WReste est un tableau de 5 entiers
    WResultat est un tableau de 5 réel
    I est un entier
    WResultat[1] = 3570651857
    POUR I = 2 A 5
      WResultat[I] = WResultat[I-1] / WDiviseur
      WReste[I] = modulo(WResultat[I-1],WDiviseur)
    FIN
    Info(WReste[5] + "." + WReste[4] + "." + WReste[3] + "." + WReste[2])