=0;) { $Num=ord($Url{$i}); $Hash3=$Hash3*3+$Num; $Hash5=$Hash5*5+$Num; $Hash7=$Hash7*7+$Num; $Hash3=$Hash3%10000^$Hash3/10000; $Hash5=$Hash5%10000^$Hash5/10000; $Hash7=$Hash7%10000^$Hash7/10000; } $Hash=$Hash7*100000000+$Hash5*10000+$Hash3; $HashText=$Hash; while(strlen($HashText)<12) $HashText="0".$HashText; $HashText=substr($HashText,0,2)." ".substr($HashText,2,2)." ".substr($HashText,4,2)." ".substr($HashText,6,2)." ".substr($HashText,8,2)." ".substr($HashText,10,2); $SqlId=mysql_connect($SqlServer,$SqlUser,$SqlPass); $SqlDb=mysql_select_db($SqlBase,$SqlId); $Ret=mysql_query("INSERT INTO $SqlTable (Code,Url) VALUES ($Hash,\"$Url\")"); if(!$Ret) { $Ret=mysql_query("SELECT Sub FROM $SqlTable WHERE Code=$Hash AND Url=\"$Url\""); if($Ret) { $Data=mysql_fetch_row($Ret); $Sub=$Data[0]; } else { $Ret=mysql_query("SELECT MAX(Sub) FROM $SqlTable WHERE Code=$Hash"); if($Ret) { $Data=mysql_fetch_row($Ret); $Sub=$Data[0]+1; } else $Sub=0; $Ret=mysql_query("INSERT INTO $SqlTable (Code,Sub,Url) VALUES ($Hash,$Sub,\"$Url\")"); } if($Sub) $HashText=$Sub." ".$HashText; if(!$Ret) $HashText="Erreur"; } $Fh=fopen("sub/in.txt","a"); if($Fh) { if($Ret) fwrite($Fh,date("H:i:s d/m/y")." $Hash $Sub\n"); else fwrite($Fh,date("H:i:s d/m/y")." *ERR* $Url\n"); fclose($Fh); } } else $HashText="Adresse non valable"; echo(""); echo(""); } else { echo(""); echo(""); } ?>
CodeInter.net
Tout le Web en 12 chiffres
CodeInter.net est un service qui permet de rendre simples
les adresses Internet les plus compliquées.

Si l'on vous a communiqué un code CodeInter.net, entrez-le dans
la case ci-dessous (avec ou sans espaces) et cliquez sur
le bouton "Aller à cette adresse".

Si vous voulez obtenir le code CodeInter.net d'une adresse, entrez-la
dans la case plus bas et cliquez sur le bouton "Coder l'adresse".
 

Accéder à une adresse codée
 >>> "); ?>
Coder une adresse Internet
Copiez ici l'adresse à coder :
"); echo("
 >>> Son code est :
Copiez ici l'adresse à coder :
"); echo("
 >>> Son code est :
Présentation du service
CodeInter.net n'a pas pour ambition de remplacer les signets du
navigateur et n'est guère utile en cas de communication
par courrier électronique. Par contre, dès qu'une adresse
Internet doit être transmise par écrit ou verbalement,
l'utilisation de CodeInter.net est plus pratique.
Les applications possibles sont nombreuses :
courrier papier, téléphone, SMS, radio, télévision.

Par exemple, pour accéder aux prévisions météo sur
l'île de Ré, il est beaucoup plus simple de communiquer
le code 09 99 71 77 57 48 plutôt que l'adresse équivalente :
http://www.meteofrance.com/FR/mameteo/prevVille.jsp?LIEUID=FR17369

Pour plus d'infos, cliquez ici.

Des questions ? Des suggestions ? Des problèmes ?
Contact : info@codeinter.net

Get Firefox!   Get Thunderbird!