Un cordial saludo a todos los programadores expertos y aficionados, hace un par de días encontré un artículo de CrashCool en un ahora extinto foro hackxcrack, trata de el algoritmo a seguir para pasar cualquier texto a base64.

Ya que muchos usamos funciones para codificar en tal base sin embargo muchos no se preocupan por el funcionamiento detrás de esas funciones. Así que tome como ejercicio de programación el base64_encode().

Bueno eso es todo por parte de CrashCool después nos brinda el algoritmo de un codificador en java pero solo lo teórico es lo que nos importa por ahora ya que crearemos nuestro propio algoritmo.

Algoritmo

Todos los que usamos PHP como lenguaje de base para nuestras plataformas web conocemos la función base64_encode() que traduce a base64 cualquier string que le pasemos como parámetro. Sin embargo pocos sabemos nos damos a la tarea de saber que hay detrás de dicha función. Vamos por decirlo así: “que hay bajo la falda de la señorita base64_encode()” XD.

Ahora después de conocer el algoritmo por el que se rige el base64 nos podemos dar a la tarea de lograr nuestra propia función base64_encode() a la cual llamare str_b64() y el lenguaje de desarrollo ustedes lo eligen, yo elegí PHP.

Sin más jerga les dejo mi código espero les ayude a comprender el algoritmo antes citado por CrashCool.

Base64 code:

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. ?>

algoritmos, Codex, funciones, php, scripts

Tratando de resolver el reto de yashira llamado Nº195 – Zero Zero Killed! y buscando un interprete de lenguaje Ook! funcional, me tope con la triste realidad de no encontrar nada, quizás busque mal, después de un rato me baje un interprete de brainfuck otro lenguaje esotérico.

después de codear un instante, me logre este traductor funcional de Ook! a brainfuck, cuya traducción es interpretada a la perfección el compilador brianfuck_machine que esta en la sección de XFiles en esta pagina. sin mas les dejo el código del php que he creado. esperando les sea útil el aporte…

Saludos n3ur0n1705…
Lestat de Lioncourt

PD: Aca les dejo el code ya en funcionamiento: http://n3ur0n4.byethost9.com/ook_to_bf.php

Traductor Ook! a Brainfuck:

<div align="center">

<?

if ($_POST[f]!=NULL){
	$ook=$_POST[f];
	for ($x=0;$x<strlen($ook);$x++){
		$as=ord(substr($ook,$x,1));
		if ($as!=13) {
			$_ook=$_ook.chr($as);
		}
	}	

	echo "Conversor Ook! to Brainfuck By Lestat de Lioncourt<br>#n3ur0n4.org<br><br>Ook! Codex:<form action=\"\" method=\"POST\">
		<textarea name=\"f\" style=\"width:495px; height:250px; scroll:auto;\">".$_ook."</textarea>
		<br><input type=\"submit\" value=\"send\">
	      </form><br><br>";

	echo "Brainfuck codex:<form action=\"\">
		<textarea name=\"x\" style=\"width:495px; height:250px; scroll:auto;\">";

	$x=0;
	while ($x<strlen($_ook)){
		if (substr($_ook,$x,9)=="Ook. Ook?"){
			echo ">";
		} else if (substr($_ook,$x,9)=="Ook? Ook."){
			echo "<";
		} else if (substr($_ook,$x,9)=="Ook. Ook."){
			echo "+";
		} else if (substr($_ook,$x,9)=="Ook! Ook!"){
			echo "-";
		} else if (substr($_ook,$x,9)=="Ook! Ook."){
			echo ".";
		} else if (substr($_ook,$x,9)=="Ook. Ook!"){
			echo ",";
		} else if (substr($_ook,$x,9)=="Ook! Ook?"){
			echo "[";
		} else if (substr($_ook,$x,9)=="Ook? Ook!"){
			echo "]";
		}
		$x+=10;
	}
	echo "</textarea>
	      </form>";
} else {
	echo "Conversor Ook! to Brainfuck By Lestat de Lioncourt<br>#n3ur0n4.org<br><br>Ook! Codex:<form action=\"\" method=\"POST\">
		<textarea name=\"f\" style=\"width:495px; height:250px; scroll:auto;\"></textarea>
		<br><input type=\"submit\" value=\"send\">
	</form>";
}
?>

</div>

Brainfuck, Codex, esotérico, Ook!, php, programación, scripts

Todo se ve mejor en la consola de comandos, así que aquí les dejo un simple sh script para poder twittear desde la consola, solo necesitamos cURL instalado, sin mas preámbulos les dejo el código de una sola linea para lograr nuestro objetivo.

#==================================
# script para actualizar nuesto 
# estado en twitter by z3r0.und3r
#==================================
curl --basic --user tu_user:tu_password --data status="$1" http://twitter.com/statuses/update.xml

El uso del script para Linux es:

lestat@matrix:~$> sh tweet.sh “Actualizando estado en twitter desde consola”

tendrán que poner su nuevo estado entrecomillado ya que de lo contrario solo twittearan la primer palabra (variable $1 véase algún tutoríal de programación shell).

batch, Codex, codigo, consola, scripts, twitter

==================================
By: z3r0.und3r
To: #n3ur0n4
Url: http://n3ur0n4.org
Reply to: z3r0.und3r@n3ur0n4.org
==================================

==================================
Habilitar/Deshabilitar el Firewall de Windows
==================================

Este pequeño batch script no tiene nada de ciencia solo pretende dar a conocer la forma en que se puede deshabilitar el firewall de Windows desde la consola. El comando usado no ha sido probado en otro sistema operativo mas que en Windows XP, pero no hace falta decir que el probar en otros no esta permitido XD.

CODE Fire.bat
==============================
@echo off
rem Firewall switch by z3r0.und3r
rem http://n3ur0n4.org
if %1 == on netsh firewall set opmode mode = enable
if %1 == off netsh firewall set opmode mode = disable
==============================

Bien como pueden ver usamos el comando NETSH lo demás es solo intuición.

El uso del comando es “Fire on/off” claro sin comillas ;) donde Fire es el nombre con el que hayan guardado el .bat, en mi caso lo llame Fire.bat

batch, Codex, consola, hack, scripts, trucos