易語言加密演算法

① 在易語言里，加密演算法只需要作為參數，求rc4演算法易語言源碼，不是用加密數據命令，而是

.版本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」))

② 易語言命令 加密數據() 第二個參數「密碼文本」是什麼意思

易語言命令-加密數據

調用格式： 〈位元組集〉 加密數據 （位元組集 位元組集數據，文本型 密碼文本，［整數型 加密演算法］） - 數據操作支持庫一->數據加解密

英文名稱：Encrypt

加密一段位元組集數據，返回加密後的結果位元組集。如果失敗，返回空位元組集。本命令為初級命令。

參數<1>的名稱為「位元組集數據」，類型為「位元組集（bin）」。為命令提供所需的位元組集數據。

參數<2>的名稱為「密碼文本」，類型為「文本型（text）」。

參數<3>的名稱為「加密演算法」，類型為「整數型（int）」，可以被省略。指定具體使用的加密演算法，可以為以下常量值之一：1: #DES演算法； 2: #RC4演算法。加密和解密必須使用相同的演算法，有關演算法的具體說明請參閱有關文獻。如果本參數被省略，則默認值為1，即DES演算法。

而加密數據中的第二個參數「密碼文本」可以理解為加密和解密所需的密鑰。參照解密數據的調用格式來看 解密數據 （位元組集 位元組集數據，文本型 密碼文本，［整數型 加密演算法］）。密碼文本就是解密時所需的密鑰。

例一：密鑰不對：

③ 易語言配置文件如何加密

.版本2

.支持庫dp1

.支持庫spec

.程序集窗口程序集1

.程序集變數需要加密的文本,文本型

.程序集變數加密後的文本,文本型

.子程序__啟動窗口_創建完畢

需要加密的文本＝「123456」 '例子可以自己改

.子程序_按鈕1_被單擊

加密後的文本＝到文本(加密數據(到位元組集(需要加密的文本),「密碼」,#RC4演算法))

調試輸出(加密後的文本)

.子程序_按鈕2_被單擊

調試輸出(到文本(解密數據(到位元組集(加密後的文本),「密碼」,#RC4演算法)))

④ 易語言既可以加密數字也可以加密英文的演算法

本來自帶的兩種演算法都可以，#RC4演算法加密文本為「」。引號中間留空就可以了。#DES演算法也一樣可以。

⑤ 易語言 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.內容))))
希望我可以幫到你

⑥ 易語言 怎樣批量把多張PNG圖片寫到一個文件並加密

位元組集 = 讀入文件（「圖片1.png」）
位元組集 =位元組集 + 讀入文件（「圖片2.png」）
其實沒那麼簡單，因為你沒標記長度，就沒辦法解壓出來，除非尋找下png圖片的文件頭來達到解壓時分割每個圖片，其實還有更好的辦法，就是

位元組集 = 取位元組集長度（圖片1） + 圖片1
位元組集 =字 節集 + 取位元組集長度（圖片2） + 圖片2
以此類推。。。
然後加密的話你可以自己插入位元組集進行加密之類。。或者用易語言自帶的加密

⑦ 易語言如何進行文本加密

可以把文本轉換成位元組集，然後在把每個位元組加上(或減去)一個數，解密時同樣把每個位元組減去(或加上)之前那個數。易語言有加密數據()和解密數據()。還可以用RC4加密。如果處理的是密碼的話用MD5加密(不能解密)

⑧ 易語言如何實現數字的加密與解密

1,易語言有自帶的加解密
2,用常用的SHA1 或者MD5加密
3,自己編寫演算法咯