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

sin tener nada que hacer comencé a modificar el estilo de la php r57 shell para adaptarlo al puro estilo de n3ur0n4 c0rp les dejo un screen de la apariencia final, la he provado y es funcional a menos que el estilo de tanto cambiar por aquí y por allá se haya alterado el código esencial, si pasa lo segundo favor de hacérmelo saber :D

1. r57 n3ur0n4 shell.rar <– r57 shell modificada estilo n3ur0n4
2. shell r57.rar <– Shell Original

Codex, codigo, hack, n3ur0n4, php, r57 shell, remote shell, seguridad, shell

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