易语言使用 打开加密文件() 实现RC4算法加解密字节集数据(加密后长度不变,返回字节集)

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 加密后, 字节集
    
15. .局部变量 解密后, 字节集
    
16. .局部变量 加密前, 字节集
    
17. 
    
18. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
19. 
    
20. 
    
21. 加密前 ＝ 到字节集 (“Hello World!中文测试”)
    
22. 
    
23. 加密后 ＝ 字节集_加解密 (加密前, “123456”)
    
24. 解密后 ＝ 字节集_加解密 (加密后, “123456”)
    
25. 调试输出 (加密前)
    
26. 调试输出 (加密后)
    
27. 调试输出 (解密后, 到文本 (解密后))
    
28. 检查 (加密前 ＝ 解密后)
    
29. 
    
30. 
    
31. .子程序 字节集_加解密, 字节集, 公开, 使用 打开加密文件() 加解密字节集数据，成功返回字节集，失败返回空字节集
    
32. .参数 字节集, 字节集
    
33. .参数 数据密码, 文本型, , 密钥必须正确，否则将返回错误的数据
    
34. .局部变量 临时文件名, 文本型
    
35. .局部变量 文件号, 整数型
    
36. .局部变量 返回值, 字节集
    
37. 
    
38. 临时文件名 ＝ 取临时文件名 ()
    
39. 文件号 ＝ 打开加密文件 (临时文件名, #重写, #禁止读写, 数据密码, )
    
40. .判断开始 (文件号 ＝ 0)
    
41.     返回 ({  })
    
42. .判断 (写出字节集 (文件号, 字节集) ＝ 假)
    
43.     返回 ({  })
    
44. .默认
    
45. 
    
46. .判断结束
    
47. 关闭文件 (文件号)
    
48. 返回值 ＝ 读入文件 (临时文件名)
    
49. 删除文件 (临时文件名)
    
50. 返回 (返回值)
    
51. 
    

复制代码