我現在給妳另壹個加密代碼寫!
版本2
子程序加密文本,文本類型
參數數據,文本類型
參數密碼,整數類型
。局部變量字節集
。整數型局部變量計數周期
字節集=到字節集(數據)
。計數周期頭(取字節集長度(byte set),計數周期)
字節組[計數周期] =字節組[計數周期]+密碼
。計數周期尾部()
返回(到文本(字節集))
子程序解密文本,文本類型
參數數據,文本類型
參數密碼,整數類型
。局部變量字節集
。整數型局部變量計數周期
字節集=到字節集(數據)
。計數周期頭(取字節集長度(byte set),計數周期)
字節組[計數周期] =字節組[計數周期]-密碼
。計數周期尾部()
返回(到文本(字節集))