1. <?
2. /*===============================================
3. * function str_b64 ($text):
4. * by: Lestat de Lioncourt
5. * to: http://n3ur0n4.org
6. * reply to: lestat[at]n3ur0n4[dot]org
7. * algoritmo para la generacion de una cadena en
8. * base64 a partir de un texto dado por la llamada
9. * a dicha funcion.
10. * algoritmo de la funcion base64_encode()
11. ===============================================*/
12. $cadena = "str_b64 by Lestat de Lioncourt to n3ur0n4.org.";
13. echo str_b64($cadena);
14. echo "<br />".base64_encode($cadena);
15. function str_b64 ($text) {
16. /*===============================================
17. * declaramos el array de caracteres de base 64
18. * consta de 64 caracteres 0 -- 63.
19. =================================================*/
20. $b64chr = array ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P',
21. 'Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f',
22. 'g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v',
23. 'w','x','y','z','0','1','2','3','4','5','6','7','8','9','+','/');
24. /*===============================================*/
25. /*===============================================
26. * paso 1: convertimos a binario cada caracter de la
27. * cadena y lo guardamos en una cadena auxiliar
28. * llamada $binstring (cadena en binario).
29. =================================================*/
30. for ($x = 0; $x < strlen($text); $x++) {
31. $binstring .= atob ($text[$x]);
32. }
33. /*=================fin paso 1====================*/
34. /*===============================================
35. * paso 2: una vez obtenido el binario del texto
36. * a convertir, generamos sexetos del binario
37. * no siempre tendremos sexetos enteros al final
38. * es desir "000000" en caso de lo contrario se
39. * rellenara con "0" el ultimo sexeto hasta completarlo
40. * los sexetos obtenidos los guardamos en un arreglo
41. * para su mejor manipulacion en el sig. paso.
42. =================================================*/
43. $i = 0;
44. while ($i < strlen($binstring)) {
45. if (strlen(substr($binstring,$i,6)) == 6) {
46. # obtenemos nuesto sexeto y lo guardamos en el arreglo $sexetos[]
47. $sexetos[] = substr($binstring,$i,6);
48. } else {
49. /* si el sexeto no es entero rellenamos por obiedad esto siempre pasa en el ultimo sexeto */
50. $sexeto = substr($binstring,$i,6);
51. while (strlen($sexeto) < 6) {
52. $sexeto .= "0";
53. }
54. $sexetos[] = $sexeto;
55. }
56. $i+=6;
57. }
58. /*=================fin paso 2====================*/
59. /*===============================================
60. * paso 3: una vez obtenidos los sexetos los
61. * convertimos a su respectivo desimal, obteniendo
62. * asi nuemenos que van de [0-63] para compararlos
63. * uno a uno contra la tabla de caracteres base64
64. =================================================*/
65. foreach ($sexetos as $pr) {
66. $b64string .= $b64chr[btod($pr)];
67. }
68. /*=================fin paso 3====================*/
69. /*===============================================
70. * paso 4: la divicion de la longitud de la cadena
71. * entre cuaatro deve dar como resultado un modulo
72. * igual a 0 (cero) de lo contrario se añadira un
73. * caracter de relleno (=) al final de la cadena
74. * hasta lograr un modulo igual a 0.
75. =================================================*/
76. while((strlen($b64string)%4) != 0) {
77. $b64string .= "=";
78. }
79. /*=================fin paso 4====================*/
80. return $b64string;
81. }
82. /*===============================================*/
83. ###################################################
84. # funciones auxiliares
85. ###################################################
86. /*===============================================
87. * atob (alphabetic to binary):
88. * dado un caracter alfanumerico generamos su
89. * correspondiente octeto en binario
90. =================================================*/
91. function atob ($chr) {
92. $num = ord($chr);
93. $i = 0;
94. // el metodo para la convercion de desimal a binario dicta si hay resto entonces da un alto "1" si no hay resto un bajo "0"
95. while ($num > 0){
96. if ($num%2==1) {
97. $bin[$i++] = $num % 2;
98. $num = ($num -- 1) / 2;
99. } else {
100. $bin[$i++] = $num % 2;
101. $num = $num / 2;
102. }
103. }
104. // completamos los 8 bits
105. if ($i < 8) {
106. do {
107. $bin[$i++] = 0;
108. } while ($i < 8);
109. }
110. // todos los que saben convertir a binario sabemos que despues de realizar
111. // nuestras operaciones para determinar los 0 y 1 del nuemero en cuestion
112. // devemos leer de manera inversa los resultados (de deracha a izquierda,
113. // de abajo hacia arriba, etc). asi que invertimos nuestro arreglo $bin
114. // y lo concatenamos en una cadena de ocho caracteres que retornaremos.
115. while ($i >= 0){
116. $cadena .= $bin[$i--];
117. }
118. return $cadena;
119. }
120. /*===============================================*/
121. /*===============================================
122. * btod (binary to decimal):
123. * el octeto en bonario lo convertimos a desimal
124. * bajo el metodo de posicion, es desir, nuestro bit
125. * binario multiplicado por la base 2 elevada a la
126. * potencia de su pocicion y sumadas entre si.
127. * ejemplo: 1011
128. * (1*2^3)+(0*2^2)+(1*2^1)+(1*2^0) = 8 + 0 + 2 + 1 = 11
129. =================================================*/
130. function btod ($sbin) {
131. $i = strlen($sbin)-1;
132. $des = 0;
133. $j = 0;
134. while ($i >= 0) {
135. $des += $sbin[$i--]*(pow(2,$j++));
136. }
137. return $des;
138. }
139. /*===============================================*/
140. ?>

<?

$server['host'] = "ruido.red-latina.org";

$server['port'] = "6667";

$bot['nick']="Akasha";



while ($sockstate!=6) {

    @$IRC = fsockopen ($server['host'], $server['port'], &$errno, &$errstr, 30);

    echo "conectado";

    if ($errno!="10060") {

        while(!feof($IRC)) {

            $readX = fgets($IRC);

            if ($k0n!=1) {

                fputs($IRC,"USER ".$bot['nick']." ".$bot['nick']." ".$bot['nick']." :".$bot['nick']."\n");

                fputs($IRC,"NICK ".$bot['nick']."\n\n");

                $k0n=1;

            } else {

                $readX=trim(str_replace(":","",$readX));

                $arrayX=explode(" ",$readX);

                //:z3r1t0!z3r0@irc.n3ur0n4.org PRIVMSG #n3ur0n4 :test

                $userX[0]=explode("@",$arrayX[0]);

                $hostX=$userX[0][1];

                $userX[1]=explode("!",$userX[0][0]);

                $ident=$userX[1][1];

                $nick=$userX[1][0];

                if ($arrayX[0]=="PING") {

                    fputs ($IRC,"PONG ".$arrayX[1]."\n");

                }

                if ($arrayX[1]=="255") {

                    fputs ($IRC,"JOIN #noc-hunt\n");

                }

                if ($ident!=NULL) { //messajes

                    switch ($arrayX[1]) {

                        case "PRIVMSG":

                            if ($arrayX[2]!=$bot['nick']) { //log de los comandos del canal

                                switch (strtolower($arrayX[3])) {

                                    case "!readme":

                                        fputs ($IRC,"PRIVMSG ".$arrayX[2]." :Te leo ".$nick."\n");

                                        break;

                                    case "!op":

                                        if ($arrayX[4]!=NULL) {

                                            fputs ($IRC,"MODE ".$arrayX[2]." +o ".$arrayX[4]."\n");

                                        } else {

                                            fputs ($IRC,"MODE ".$arrayX[2]." +o ".$nick."\n");

                                        }

                                        break;

                                    case "!dop":

                                        if ($arrayX[4]!=NULL) {

                                            fputs ($IRC,"MODE ".$arrayX[2]." -o ".$arrayX[4]."\n");

                                        } else {

                                            fputs ($IRC,"MODE ".$arrayX[2]." -o ".$nick."\n");

                                        }

                                        break;

                                }

                            } else { //log de los comandos por privado solo admins ;)

                                switch (strtolower($arrayX[3])) {

                                    case "!join":

                                        fputs ($IRC,"JOIN ".$arrayX[4]."\n");

                                        break;

                                    case "!off":

                                        fputs ($IRC,"QUIT BOT OFF\n");

                                        fclose ($IRC);

                                        exit();

                                        break;

                                    case "!left":

                                        fputs ($IRC,"PART ".$arrayX[4]."\n");

                                        break;

                                }

                            }

                            break; //end of privmsg

                    } //end of command switch

                }// end of messajes or actions

            } //end else connection rejoiner

            echo $readX."\n";

        }//end while for connection log

    }//end if not connected; reconnect

    $sockstate=1;

    $k0n=0;

}//end of while for infinite reconnect

?>