Algoritmo de cifrado Base64 en lenguaje sencillo
. Parámetros texto sin formato, conjunto de bytes
. Resto de variable local, número entero
. Datos de variable local de tres bytes, tipo de byte, "3"
Conjunto de códigos de variable local, conjunto de bytes
. Variable local len_x, número entero
. Variable local len_y, número entero
. Resultado de variable local, conjunto de bytes
. Variable local i, número entero
. Variable local k, entero len_x = Obtener la longitud del conjunto de bytes (longitud original)
. Si es verdadero (len_x < 1)
devuelve ({ })
. Si es verdadero final
resto = len_x % 3
. Si es verdadero (resto > 0)
original = original + conjunto de bytes de espacios en blanco (3 - resto) p>
len_x = len_x + 3 - resto
. Si es verdadero, final
len_y = len_x × 4 ÷ 3
Resultado = tomar el conjunto de bytes en blanco (len_y)
i = 1
lista de códigos = { 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 48, 49, 50.51, 52, 53, 54, 55, 56, 57, 43, 47 }
, 63)+ 1]
. El bucle variable termina ()
Comienza el juicio (resto = 2)
Resultado [len_y] = 61
.Sentencia (resto = 1)
Resultado [len_y] = 61
Resultado [len_y - 1] = 61
.Predeterminado. Fin del juicio
Regreso (resultado). Subroutine_Button1_Clicked Edit Box 1. Agregue texto (al texto (codificación Base64 (al conjunto de bytes (Edit Box 1. contenido))))
Espero que esto pueda ayudarlo
.