當前位置:菜譜大全網 - 素菜食譜大全 - 跪求壹份e4a中文編程Base64加密和解密源碼。

跪求壹份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”)

結束功能