<?php
// ------------------------------------------------------------------------- //
// Générateur de pseudo unique //
// ------------------------------------------------------------------------- //
// Auteur: octo <pascal@saturne.net> //
// Web: http://www.saturne.net //
// ------------------------------------------------------------------------- //
/*
le script genere un pseudo unique pour un couple IP/Navigateur donc assez stable.
Et ce automatiquement. Pour un Forum c'est pratique pas besoin pour l'utilisateur
d'entrer son pseudo c'est automatique il reste anonyme mais il ne peut pas changer
de pseudo
*/
//================================================================
// Bienvenue sur WWW.SATURNE.NET site pour lequel j'ai fait le script
// merci de ne pas modifier sans mon accord
// dite moi si vous utilisez le script je vous tiendrez au courant des évolutions
// des bugs ...
// et ainsi tout le monde aura le meme pseudo partout
//================================================================
$cons = array(
"B","D","F","G","H","L","M","N","P","R","S","T","V","W","X","Z",
"CH","BL","CL","FL","PL","SL","BR","GR","TR","CR","DR","FR","PR","SR");
$voy = array("A","E","I","O","U","Y",
"ON","UN","AN","AI","AU","EI","EU","OU","OI","EN");
$col = array("#00","#FF","#FF00","#FF0000");
$useragent = $HTTP_USER_AGENT ;
$cle = ($useragent[0]+0x55);
for ($i=1;$i<strlen($useragent);$i++){ $cle = $cle ^$useragent[$i];}
$numero = explode(".",$REMOTE_ADDR);
$m1 = ($numero[2]>>2) & 0x1F;
$m2 = ($numero[2]>>2) & 0x0F;
$m3 = ($numero[2]>>1) & 0x1F;
$m4 = ($numero[2]>>1) & 0x0F;
$c1 = ($numero[0]>>3)^$m1;
$c2 = (($numero[0] & 7)<< 1 + $numero[1]>>7)^$m2;
$c3 = (($numero[1] & 0x7F)>> 2)^$m3;
$c4 = (($numero[1] & 3)<< 2 + $numero[2]>>6)^$m4;
$c3 = $c3 ^ ($cle&0x1F);
$c4 = $c4 ^ ($cle&0xF);
$c1 &= 0x1F;
$c2 &= 0x0F;
$c3 &= 0x1F;
$c4 &= 0x0F;
$nom = $cons[$c1].$voy[$c2].$cons[$c3].$voy[$c4];
$couleur = $col[($cle& 0x3)];
print("<a href='ident.php' class='texte' target='mainFrame'> ");
print("Bienvenue ".$nom."</a><br><br>");
?>