求大佬帮忙写下登录

小麒QCC

新手实在是写不来了，求大佬帮帮忙，密码采用R4C加密形式或者其他形式都可以



补充内容 (2021-7-29 09:44):
不知道为什么压缩包没传上来
补充如下
登陆的账号密码是验证mdb数据库里面的账号密码，密码加密方式我目前是采用的精易模块里面的RC4

若筱涵

  

子程序名	返回值类型	公开	备 注
对称算法加密	文本型
参数名	类 型	参考	可空	数组	备 注
加密数据	文本型

变量名	类 型	静态	数组	备 注
加解密	加解密对象
模式	文本型
数据	字节集
密码	字节集
偏移	字节集
输出	文本型
输出方式	整数型
填充	整数型
key	文本型
iv	文本型

key ＝ "miyao"
iv ＝ "pianyi"
模式 ＝ "RC4"
数据 ＝ 到字节集 (加密数据)
密码 ＝字节集_十六进制到字节集 (key)
偏移 ＝ 字节集_十六进制到字节集 (iv)
输出方式 = #文本内容类型_Base64
填充 ＝ #填充方式_PKCS7
加解密.加密数据 (模式, 数据, 密码, 输出, 填充, 偏移, 输出方式)
返回 (输出)

子程序名	返回值类型	公开	备 注
对称算法解密	文本型
参数名	类 型	参考	可空	数组	备 注
加密数据	文本型

变量名	类 型	静态	数组	备 注
加解密	加解密对象
模式	文本型
数据	字节集
密码	字节集
偏移	字节集
输出	文本型
输出方式	整数型
填充	整数型
key	文本型
iv	文本型

key ＝ "miyao"
iv ＝ "pianyi"
模式 ＝ "RC4"
数据 ＝ 编码_BASE64解码 (加密数据)
密码 ＝字节集_十六进制到字节集 (key)
偏移 ＝ 字节集_十六进制到字节集 (iv)
输出方式 = #文本内容类型_原始内容
填充 ＝ #填充方式_PKCS7
加解密.解密数据 (模式, 数据, 密码, 输出, 填充, 偏移, 输出方式)
返回 (输出)

.版本 2<br /> <br /> .子程序 对称算法加密, 文本型<br /> .参数 加密数据, 文本型<br /> .局部变量 加解密, 加解密对象<br /> .局部变量 模式, 文本型<br /> .局部变量 数据, 字节集<br /> .局部变量 密码, 字节集<br /> .局部变量 偏移, 字节集<br /> .局部变量 输出, 文本型<br /> .局部变量 输出方式, 整数型<br /> .局部变量 填充, 整数型<br /> .局部变量 key, 文本型<br /> .局部变量 iv, 文本型<br /> <br /> key ＝ "miyao"<br /> iv ＝ "pianyi"<br /> <br /> 模式 ＝ "RC4"<br /> 数据 ＝ 到字节集 (加密数据)<br /> 密码 ＝字节集_十六进制到字节集 (key)<br /> 偏移 ＝ 字节集_十六进制到字节集 (iv)<br /> 输出方式 = #文本内容类型_Base64<br /> 填充 ＝ #填充方式_PKCS7<br /> 加解密.加密数据 (模式, 数据, 密码, 输出, 填充, 偏移, 输出方式)<br /> 返回 (输出)<br /> <br /> .版本 2<br /> <br /> .子程序 对称算法解密, 文本型<br /> .参数 加密数据, 文本型<br /> .局部变量 加解密, 加解密对象<br /> .局部变量 模式, 文本型<br /> .局部变量 数据, 字节集<br /> .局部变量 密码, 字节集<br /> .局部变量 偏移, 字节集<br /> .局部变量 输出, 文本型<br /> .局部变量 输出方式, 整数型<br /> .局部变量 填充, 整数型<br /> .局部变量 key, 文本型<br /> .局部变量 iv, 文本型<br /> <br /> key ＝ "miyao"<br /> iv ＝ "pianyi"<br /> <br /> 模式 ＝ "RC4"<br /> 数据 ＝ 编码_BASE64解码 (加密数据)<br /> 密码 ＝字节集_十六进制到字节集 (key)<br /> 偏移 ＝ 字节集_十六进制到字节集 (iv)<br /> 输出方式 = #文本内容类型_原始内容<br /> 填充 ＝ #填充方式_PKCS7<br /> 加解密.解密数据 (模式, 数据, 密码, 输出, 填充, 偏移, 输出方式)<br /> 返回 (输出)

已注销659495

留下你的QQ

han15070727425

求采纳！

小麒QCC

qiuyueling 发表于 2021-7-28 21:11
留下你的QQ

641268146

小麒QCC

han15070727425 发表于 2021-7-28 21:39
求采纳！

  

子程序名	返回值类型	公开	备 注
_登录按钮_被单击

如果 (账号编辑框.内容 ＝ “”)
信息框 (“请输入用户名”, 64, “提示”, )
账号编辑框.获取焦点 ()
如果 (密码编辑框.内容 ＝ “”)
信息框 (“请输入密码”, 64, “提示”, )
密码编辑框.获取焦点 ()
sql_全局 ＝ “select * from user_admin where user='” ＋ 账号编辑框.内容 ＋ “' and password='” ＋ 取数据摘要 (到字节集 (RC4_解密 (密码编辑框.内容, “641268146”))) ＋ “'”
数据库_全局_句柄 ＝ 数据库_全局.查询 (sql_全局)
如果 (数据库_全局.首记录前 (数据库_全局_句柄) ＝ 真)
信息框 (“用户名或密码不正确”, 64, “提示”, )
信息框 (“登录成功”, 64, “提示”, )
登陆用户 ＝ 账号编辑框.内容
' 用户已登录 ()
载入 (主窗口, , 真)

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br /> .支持库 dp1<br /> <br /> .子程序 _登录按钮_被单击<br /> <br /> .如果 (账号编辑框.内容 ＝ “”)<br />     信息框 (“请输入用户名”, 64, “提示”, )<br />     账号编辑框.获取焦点 ()<br /> .否则<br />     .如果 (密码编辑框.内容 ＝ “”)<br />         信息框 (“请输入密码”, 64, “提示”, )<br />         密码编辑框.获取焦点 ()<br />     .否则<br />         sql_全局 ＝ “select * from user_admin where user='” ＋ 账号编辑框.内容 ＋ “' and password='” ＋ 取数据摘要 (到字节集 (RC4_解密 (密码编辑框.内容, “641268146”))) ＋ “'”<br />         数据库_全局_句柄 ＝ 数据库_全局.查询 (sql_全局)<br />         .如果 (数据库_全局.首记录前 (数据库_全局_句柄) ＝ 真)<br />             信息框 (“用户名或密码不正确”, 64, “提示”, )<br />         .否则<br />             信息框 (“登录成功”, 64, “提示”, )<br />             登陆用户 ＝ 账号编辑框.内容<br />             ' 用户已登录 ()<br />             载入 (主窗口, , 真)<br />         .如果结束

我是这个意思
登录.zip (25.41 KB, 下载次数: 2)

2021-7-28 20:58 上传

点击文件名下载附件

小麒QCC

yuhan520 发表于 2021-7-28 21:14

  

子程序名	返回值类型	公开	备 注
对称算法加密	文本型

[/quote]
大哥，你理解错了！
[e=0].版本 2

子程序名	返回值类型	公开	备 注
_登录按钮_被单击

如果 (账号编辑框.内容 ＝ “”)
信息框 (“请输入用户名”, 64, “提示”, )
账号编辑框.获取焦点 ()
如果 (密码编辑框.内容 ＝ “”)
信息框 (“请输入密码”, 64, “提示”, )
密码编辑框.获取焦点 ()
sql_全局 ＝ “select * from user_admin where user='” ＋ 账号编辑框.内容 ＋ “' and password='” ＋ 取数据摘要 (到字节集 (RC4_解密 (密码编辑框.内容, “641268146”))) ＋ “'”
数据库_全局_句柄 ＝ 数据库_全局.查询 (sql_全局)
如果 (数据库_全局.首记录前 (数据库_全局_句柄) ＝ 真)
信息框 (“用户名或密码不正确”, 64, “提示”, )
信息框 (“登录成功”, 64, “提示”, )
登陆用户 ＝ 账号编辑框.内容
' 用户已登录 ()
载入 (主窗口, , 真)

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br /> <br /> .子程序 对称算法加密, 文本型</blockquote></div><br /> 大哥，你理解错了！<br /> [e=0].版本 2<br /> .支持库 dp1<br /> <br /> .子程序 _登录按钮_被单击<br /> <br /> .如果 (账号编辑框.内容 ＝ “”)<br />     信息框 (“请输入用户名”, 64, “提示”, )<br />     账号编辑框.获取焦点 ()<br /> .否则<br />     .如果 (密码编辑框.内容 ＝ “”)<br />         信息框 (“请输入密码”, 64, “提示”, )<br />         密码编辑框.获取焦点 ()<br />     .否则<br />         sql_全局 ＝ “select * from user_admin where user='” ＋ 账号编辑框.内容 ＋ “' and password='” ＋ 取数据摘要 (到字节集 (RC4_解密 (密码编辑框.内容, “641268146”))) ＋ “'”<br />         数据库_全局_句柄 ＝ 数据库_全局.查询 (sql_全局)<br />         .如果 (数据库_全局.首记录前 (数据库_全局_句柄) ＝ 真)<br />             信息框 (“用户名或密码不正确”, 64, “提示”, )<br />         .否则<br />             信息框 (“登录成功”, 64, “提示”, )<br />             登陆用户 ＝ 账号编辑框.内容<br />             ' 用户已登录 ()<br />             载入 (主窗口, , 真)<br />         .如果结束

小麒QCC

yuhan520 发表于 2021-7-28 21:14
[e=0].版本 2

.子程序 对称算法加密, 文本型

登录.zip (25.41 KB, 下载次数: 0)

2021-7-29 09:50 上传

点击文件名下载附件
我是这个意思