SHA1加base64，FT如何写代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → SHA1加base64，FT如何写代码？

共有2409人关注过本帖树形打印复制链接主题：SHA1加base64，FT如何写代码？

iceblock

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：69 积分：544 威望：0 精华：0 注册：2017/5/19 12:36:00

SHA1加base64，FT如何写代码？ 发帖心情

Post By：2019/6/13 21:08:00 [只看该作者]

加密某字符串，先sha1，然后再用base64。

这是c#算密码的方式
SHA1 sha1 = SHA1.Create();
byte[] bytResult = sha1.ComputeHash(Encoding.UTF8.GetBytes(pwd));
string pwdAfter = Convert.ToBase64String(bytResult);

请教如何在FOXTABLE实现

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/13 21:31:00 [只看该作者]

Dim sha1 = System.Security.Cryptography.SHA1.Create
Dim bytResult = sha1.ComputeHash(Encoding.UTF8.GetBytes("123"))
Dim pwdAfter = Convert.ToBase64String(bytResult)
msgbox(pwdAfter)

iceblock

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：69 积分：544 威望：0 精华：0 注册：2017/5/19 12:36:00

Post By：2019/6/13 21:38:00 [只看该作者]

谢谢老师!

在代码执行中试成了。

Dim a As String = ""

'Dim b As Byte() = System.Text.Encoding.[Default].GetBytes(a)

Dim b As Byte() = System.Text.Encoding.UTF8.GetBytes(a)

Dim sha1 As object = System.Security.Cryptography.SHA1Managed.create()

Dim c As Byte() = sha1.ComputeHash(b)

Dim base64 = Convert.ToBase64String(c)

output.show(base64)

下一主题 >> << 上一主题

主题：SHA1加base64，FT如何写代码？