Algoritmo de cifrado Base64 en lenguaje sencillo

Código ----------. Versión 2. Subrutina de codificación Base64, conjunto de bytes, pública

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

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]

i = i + 4

. 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

.