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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  SHA1加base64，FT如何写代码？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136467)

--  作者：iceblock
--  发布时间：2019/6/13 21:08:00
--  SHA1加base64，FT如何写代码？
加密某字符串，先sha1，然后再用base64。

这是c#算密码的方式
SHA1 sha1 = SHA1.Create();
byte[] bytResult = sha1.ComputeHash(Encoding.UTF8.GetBytes(pwd));
string pwdAfter = Convert.ToBase64String(bytResult);
请教如何在FOXTABLE实现

--  作者：有点甜
--  发布时间：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
--  发布时间：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)