你给的网址没有意义，找了一遍没有找到可以使用的。

1、crypt这种加密不具有通用性，可能是某种程序语言自己实现的，如 php等，加密方式加密逻辑不知道，无法移植到别的程序语言去；

就好像foxtable自己写的EncryptText，那你尝试用php给我还原一下试试咯，你也做不到。

2、c#常见的加密方式都在这里了，你看你需要哪个？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:cryptapi_3.0.zip

3、一定要按照 crypt 这种方式？能不能双方规定一下使用通用的加密方式处理？

比如说哪一种通用的加密方式？有利用我们这边实现的。我好和对方沟通。

还有就是能否让对方做出一个可执行程序，我们ft是否可以用这个可执行程序。

就是怎么有利用ft就怎么来。

https://www.jianshu.com/p/78c12e990cc9----假如过我让对方用这个加密。

EncryptUtil---这个我们ft能用吗？

让对方提供一个接口是不是更合适？

我记得之前让对方提供一个java的接口，然后我们再VS构建了一个函数，生成了dll，然后ft引用这个dll。

用这种方式可以吗？

function PassCrypt($mac)

{

$Password=md5($mac);

$Salt=substr($Password,16,4);

$Password = $mac+$Salt;

$Password=md5($Password);

$Password=substr($Password,-1,5);

Return $Password;

}

他们改为这样了。是不是就可以ft实现了？

以下是引用huhu在2018/3/9 16:07:00的发言：

function PassCrypt($mac)

{

$Password=md5($mac);

$Salt=substr($Password,16,4);

$Password = $mac+$Salt;

$Password=md5($Password);

$Password=substr($Password,-1,5);

Return $Password;

}

他们改为这样了。是不是就可以ft实现了？

Dim mac = "abcdefg123abcdefg123"
Dim Password = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(mac, "MD5")
Dim Salt=Password.substring(16,4)
Password = mac & Salt
Password = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Password, "MD5")
Password=right(Password,5)
msgbox(password)

Dim dlg As New OpenFileDialog

dlg.Filter= "文件|*.txt"

If dlg.ShowDialog = DialogResult.OK Then

Dim info As new fileinfo(dlg.FileName)

If info.Extension = ".txt" Then

Dim strs As String = FileSys.ReadAllText(dlg.FileName)

strs = strs.Replace(vblf,"")

Dim rs() As String = strs.Split(vbcr)

For i As Integer = 0 To rs.Length - 2

Dim dr As DataRow = DataTables("MAC表").Addnew()

dr("MAC") = rs(i)

Dim str4 As String = rs(i).SubString(8)

dr("后四位") = str4

Dim MD5old As String

MD5old = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(dr("MAC"), "MD5").ToUpper()

dr("MD5old") = MD5old

Dim salt4 As String = MD5old.SubString(16,4)

dr("Salt") = salt4

dr("MACSalt") = dr("MAC") & dr("Salt")

Dim MD5new As String

MD5new = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(dr("MACSalt"), "MD5").ToUpper()

dr("MD5new") = MD5new

Dim pwd As String = right(MD5new,5)

dr("口令") = pwd

Dim URL As String = "http://10.1.1.1/cgi-bin/luci/mini?pwd=" & pwd & "&mac=" & dr("后四位")

dr("URL") = URL

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Bar.Code = dr("URL")

Bar.QuietZoneWidth = 2

Bar.SaveImage("E:\image\" & dr("MAC") & ".bmp")

dr.save

End If

现在上面的二维码做出来了。可是下面还有一个图片，需要二维码和下面的图片合成一个图片。这个怎么处理？

此主题相关图片如下：qq截图20180309174107.jpg

主题：二维码图片

EncryptUtil---这个我们ft能用吗？