跪求一份e4a中文编程Base64加密和解密源码。

代码是我自己写的!水平有限,但功能还是实现了。原本是Thunderbolt link转换的一个功能,现已修改为Base64加密,可以直接使用,但不能解密。。。必要时参考彝语修订。。。以下是这些功能:

函数迅雷编码(原文为文本类型)为文本类型。

原始变量是字节类型()

变量的余数是整数。

可变三字节数据是字节类型(3)

可变代码表是字节类型(64)

变量len_x是一个整数。

变量len_y是一个整数。

变量I是一个整数。

变量k是一个整数。

变量结果是字节()

原始变量扩展为字节类型(1)

变量结果扩展为字节类型(1)

原文= " aa " &;原文和“ZZ”

原始=文本到字节(原始文本,“GBK”)

原始扩展名(0) = 0

结果扩展(0) = 61

Len_x =字节集长度(原始)

余数= len_x% 3

如果(余数= 1),则

Original =合并字节集(原始,原始扩展)

Original =合并字节集(原始,原始扩展)

len_x = len_x + 2

否则如果(余数= 2),则

Original =合并字节集(原始,原始扩展)

len_x = len_x + 1

如果…就会结束

len_y = len_x * 4 / 3

i = 1

码表(0) = 65

代码表(1) = 66

代码表(2) = 67

代码表(3) = 68

代码表(4) = 69

代码表(5) = 70

代码表(6) = 71

代码表(7) = 72

代码表(8) = 73

代码表(9) = 74

代码表(10) = 75

代码表(11) = 76

代码表(12) = 77

代码表(13) = 78

代码表(14) = 79

代码表(15) = 80

代码表(16) = 81

代码表(17) = 82

代码表(18) = 83

代码表(19) = 84

代码表(20) = 85

代码表(21) = 86

代码表(22) = 87

代码表(23) = 88

代码表(24) = 89

代码表(25) = 90

代码表(26) = 97

代码表(27) = 98

代码表(28) = 99

代码表(29) = 100

代码表(30) = 101

代码表(31) = 102

代码表(32) = 103

代码表(33) = 104

代码表(34) = 105

代码表(35) = 106

代码表(36) = 107

代码表(37) = 108

代码表(38) = 109

代码表(39) = 110

代码表(40) = 111

代码表(41) = 112

代码表(42) = 113

代码表(43) = 114

代码表(44) = 115

代码表(45) = 116

代码表(46) = 117

代码表(47) = 118

代码表(48) = 119

代码表(49) = 120

代码表(50) = 121

代码表(51) = 122

代码表(52) = 48

代码表(53) = 49

代码表(54) = 50

代码表(55) = 51

代码表(56) = 52

代码表(57) = 53

代码表(58) = 54

代码表(59) = 55

代码表(60) = 56

代码表(61) = 57

代码表(62) = 43

代码表(63) = 47

三字节数据(0) = 1

三个字节的数据(1) = 2

三个字节的数据(2) = 3

k = 0

判断周期头k

结果=合并字节集(结果,结果扩展)

k = k + 1

判断周期尾部

变量循环先k = 1到len_x第3步。

三字节数据(1-1) =原始数据(k-1)

三字节数据(2-1) =原始数据(k+1-1)

三字节数据(3-1) =原始数据(k+2-1)

结果(i-1) =码表(右移位(三字节数据(1-1),2)+1-1)。

结果(i+1-1) =码表(比特左移(比特和(三字节数据(1-1),3),4)+比特右移(三字节数据(2-1),4)。

结果(i+2-1) =码表(左移位(比特和(3-1),15),2)+右移位(3-1),6)+6544。

结果(i+3-1) =码表(位和(三字节数据(3-1),63)+1-1)。

i = i + 4

可变周期尾部

如果(余数= 1),则

结果(len_y-1) = 61。

结果(len_y-2) = 61。

否则如果(余数= 2),则

结果(len_y-1) = 61。

如果…就会结束

迅雷代码= " " &;字节到文本(结果,“GBK”)

Thunderbolt编码=字节到文本(因此,“GBK”)

结束功能