易語言加密源碼

1. 請問大神們易語言源碼設置了密碼了，這么能打開源碼

我沒在電腦旁邊，往前看過一個辦法，你把那個源程序另存一份，用記事本打開，都是亂碼，沒關系，往下翻，在裡面看看有沒有比較像密碼的字元串。不保證有效哦

2. 易語言源碼編碼或加密類型。我想做一個易語言源碼查看器但是不知道是怎麼編碼或者怎麼加密的，求大神指點

易語言普通源碼是沒有加密的，只有設置了密碼的源碼才會被加密(標准RC4加密)

如下圖：

兩個相同的源碼，一個未設置密碼，一個設置了密碼

3. 易語言 Base64的加密演算法

代碼-----------.版本 2.子程序 Base64編碼, 位元組集, 公開
.參數 原文, 位元組集
.局部變數 余數, 整數型
.局部變數 三位元組數據, 位元組型, , "3"
.局部變數 碼表, 位元組集
.局部變數 len_x, 整數型
.局部變數 len_y, 整數型
.局部變數 結果, 位元組集
.局部變數 i, 整數型
.局部變數 k, 整數型len_x ＝ 取位元組集長度 (原文)
.如果真 (len_x ＜ 1)
返回 ({ })
.如果真結束
余數 ＝ len_x ％ 3
.如果真 (余數 ＞ 0)
原文 ＝ 原文 ＋ 取空白位元組集 (3 － 余數)
len_x ＝ len_x ＋ 3 － 余數
.如果真結束
len_y ＝ len_x × 4 ÷ 3
結果 ＝ 取空白位元組集 (len_y)
i ＝ 1
碼表 ＝ { 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 }
.變數循環首 (1, len_x, 3, k)
三位元組數據 [1] ＝ 原文 [k]
三位元組數據 [2] ＝ 原文 [k ＋ 1]
三位元組數據 [3] ＝ 原文 [k ＋ 2]
結果 [i] ＝ 碼表 [右移 (三位元組數據 [1], 2) ＋ 1]
結果 [i ＋ 1] ＝ 碼表 [左移 (位與 (三位元組數據 [1], 3), 4) ＋ 右移 (三位元組數據 [2], 4) ＋ 1]
結果 [i ＋ 2] ＝ 碼表 [左移 (位與 (三位元組數據 [2], 15), 2) ＋ 右移 (三位元組數據 [3], 6) ＋ 1]
結果 [i ＋ 3] ＝ 碼表 [位與 (三位元組數據 [3], 63) ＋ 1]
i ＝ i ＋ 4
.變數循環尾 ()
.判斷開始 (余數 ＝ 2)
結果 [len_y] ＝ 61
.判斷 (余數 ＝ 1)
結果 [len_y] ＝ 61
結果 [len_y － 1] ＝ 61
.默認.判斷結束
返回 (結果).子程序 _按鈕1_被單擊編輯框1.加入文本 (到文本 (Base64編碼 (到位元組集 (編輯框1.內容))))
希望我可以幫到你

4. qq密碼加密易語言源代碼

源碼在這里哈，主要是參考十六進制下的一個簡單的演算法

扣摳上的演算法每時每刻都在更新你摸不著，這里只能簡單介紹一個加密解密的問題

.版本2

.子程序加密為rc4,文本型,公開,用RC4演算法對文本進行加密
.參數加密的數據,文本型,,欲加密的文本
.參數加密密鑰,文本型,可空,用作加密的密碼
.局部變數臨時,位元組集
.局部變數s,位元組型,,"256"
.局部變數k,位元組型,,"256"
.局部變數i,整數型
.局部變數j,整數型
.局部變數y,整數型
.局部變數outstr,文本型
.局部變數temp,位元組型
.局部變數x,整數型
.局部變數t,整數型
.局部變數aaa,文本型

臨時＝到位元組集(文本)
.計次循環首(256,i)
s[i]＝i－1
.計次循環尾()
j＝1
.計次循環首(256,i)
.如果真(j＞取文本長度(密碼))
j＝1
.如果真結束
k[i]＝取代碼(取文本中間(密碼,j,1),)
j＝j＋1
.計次循環尾()
j＝0
.計次循環首(256,i)
j＝(j＋s[i]＋k[i])％256＋1
temp＝s[i]
s[i]＝s[j]
s[j]＝temp
.計次循環尾()
i＝0
j＝0
.計次循環首(取位元組集長度(臨時),x)
i＝(i＋1)％256＋1
j＝(j＋s[i])％256＋1
temp＝s[i]
s[i]＝s[j]
s[j]＝temp
t＝(s[i]＋s[j]％256)％256＋1
y＝s[t]
aaa＝到十六進制文本(位異或(臨時[x],y))
outstr＝outstr＋選擇(取文本長度(aaa)＞1,「」,「0」)＋aaa＋「,」
.計次循環尾()
返回(outstr)

.子程序到十六進制文本,文本型
.參數數值,整數型,,

返回(多項選擇(右移(數值,4)＋1,「0」,「1」,「2」,「3」,「4」,「5」,「6」,「7」,「8」,「9」,「A」,「B」,「C」,「D」,「E」,「F」)＋多項選擇(位與(數值,15)＋1,「0」,「1」,「2」,「3」,「4」,「5」,「6」,「7」,「8」,「9」,「A」,「B」,「C」,「D」,「E」,「F」))