1
การนำฟังก์ชันแฮชไปใช้กับ Excel 2016
ฉันพบโพสต์เกี่ยวกับฟังก์ชันแฮช แต่ไม่สามารถใช้งานได้เนื่องจากข้อผิดพลาด ฉันยังไม่ได้ทำ VBA ตั้งแต่ปี 2010 ดังนั้นจึงค่อนข้างไกลและฉันไม่สามารถดีบักได้ โพสต์ต่อไปนี้มีฟังก์ชันแฮช: มีฟังก์ชัน Excel เพื่อสร้างค่าแฮชหรือไม่ . Public Function BASE64SHA1(ByVal sTextToHash As String) Dim asc As Object Dim enc As Object Dim TextToHash() As Byte Dim SharedSecretKey() As Byte Dim bytes() As Byte Const cutoff As Integer = 5 Set asc = CreateObject("System.Text.UTF8Encoding") Set enc …